fixup for wrapper-procedure

original commit: 91c411aa2834a0220a5cc557deb62bc8b316d0fa
This commit is contained in:
Matthew Flatt 2019-01-15 17:19:58 -07:00
parent 51fc773598
commit cdc552b4c5

View File

@ -32,10 +32,10 @@
[%yp %r11 #f 11] [%yp %r11 #f 11]
[%cp %r15 #t 15] [%cp %r15 #t 15]
[#;%ret %rsi #t 6] [#;%ret %rsi #t 6]
[ %rcx %Carg1 #f 1]
[ %rdx %Carg2 #f 2] [ %rdx %Carg2 #f 2]
[ %r8 %Carg3 #f 8] [ %r8 %Carg3 #f 8]
[ %r9 %Carg4 #f 9]) [ %r9 %Carg4 #f 9]
[ %rcx %Carg1 #f 1]) ; last to avoid use as a Scheme argument
(machine-dependent (machine-dependent
[%Cfparg1 %Cfpretval #f 0] [%Cfparg1 %Cfpretval #f 0]
[%Cfparg2 #f 1] [%Cfparg2 #f 1]