fix x86 (32-bit) __collect-safe
callable
original commit: 530e6ac49b6ac31c2993517cb15633de73e6c85a
This commit is contained in:
parent
16b9ffb57c
commit
b5bce547d2
2
s/x86.ss
2
s/x86.ss
|
@ -2846,7 +2846,7 @@
|
||||||
(set! ,%eax ,(%mref ,%sp ,(+ 8 (push-registers-size result-regs result-num-fp-regs 1))))
|
(set! ,%eax ,(%mref ,%sp ,(+ 8 (push-registers-size result-regs result-num-fp-regs 1))))
|
||||||
,(%inline push ,%eax)
|
,(%inline push ,%eax)
|
||||||
,(%inline unactivate-thread)
|
,(%inline unactivate-thread)
|
||||||
,(%inline pop ,%eax))])
|
(set! ,%eax ,(%inline pop)))])
|
||||||
(if (and (null? result-regs) (fx= 0 result-num-fp-regs))
|
(if (and (null? result-regs) (fx= 0 result-num-fp-regs))
|
||||||
e
|
e
|
||||||
(%seq
|
(%seq
|
||||||
|
|
Loading…
Reference in New Issue
Block a user