1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-16 16:28:40 +00:00

Use .MCALL instead of MCALL for complex args.

MCALL tries to make its second arg global, which doesn't work when it's
an expression.
This commit is contained in:
Adam Sampson 2018-04-23 19:22:38 +01:00 committed by Adam Sampson
parent 7c877e3cbc
commit d88315865a

View File

@ -4475,7 +4475,7 @@ GTINTC: PUSH TP,$TCHAN ;SAVE THE CHANNEL...WE'LL CLOBBER B
PUSH P,0
PUSH TP,$TCHAN
PUSH TP,B
MCALL 1,INTFCN-1(B)
.MCALL 1,INTFCN-1(B)
GETYP A,A
CAIE A,TCHRS
JRST BADRET
@ -4506,7 +4506,7 @@ PTINTC: PUSH TP,$TCHAN ;SAVE THE CHANNEL...WE'LL CLOBBER B
PUSH TP,A ;PUSH THE CHAR
PUSH TP,$TCHAN ;PUSH THE CHANNEL
PUSH TP,B
MCALL 2,INTFCN-1(B) ;APPLY THE FUNCTION TO THE CHAR
.MCALL 2,INTFCN-1(B) ;APPLY THE FUNCTION TO THE CHAR
JRST INTRET