mirror of
https://github.com/PDP-10/its.git
synced 2026-01-30 21:41:56 +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:
committed by
Adam Sampson
parent
7c877e3cbc
commit
d88315865a
@@ -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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user