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:
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
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user