cpu.x86.32: fix callbacks on platforms where stack is not aligned

db4
Slava Pestov 2009-10-17 21:20:08 -05:00
parent 0653bae7ec
commit 86c16eeb6a
1 changed files with 2 additions and 2 deletions

View File

@ -250,10 +250,10 @@ M:: x86.32 %unbox-large-struct ( n c-type -- )
] with-aligned-stack ;
M: x86.32 %nest-stacks ( -- )
! Save current frame. See comment in vm/contexts.hpp
EAX stack-reg stack-frame get total-size>> 3 cells - [+] LEA
8 [
push-vm-ptr
! Save current frame. See comment in vm/contexts.hpp
EAX stack-reg stack-frame get total-size>> [+] LEA
EAX PUSH
"nest_stacks" f %alien-invoke
] with-aligned-stack ;