fixup for wrapper-procedure
original commit: 91c411aa2834a0220a5cc557deb62bc8b316d0fa
This commit is contained in:
parent
51fc773598
commit
cdc552b4c5
|
@ -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]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user