x86 compiler backend fix for inline allocators

release
Slava 2007-10-03 18:54:01 -04:00
parent 443fc8fb04
commit 3914576d25
1 changed files with 2 additions and 0 deletions

View File

@ -186,7 +186,9 @@ M: x86-backend %unbox-any-c-ptr ( dst src -- )
{ "is-byte-array" "end" "start" } [ define-label ] each { "is-byte-array" "end" "start" } [ define-label ] each
! Address is computed in ds-reg ! Address is computed in ds-reg
ds-reg PUSH ds-reg PUSH
ds-reg 0 MOV
! Object is stored in ds-reg ! Object is stored in ds-reg
rs-reg PUSH
rs-reg swap v>operand MOV rs-reg swap v>operand MOV
! We come back here with displaced aliens ! We come back here with displaced aliens
"start" resolve-label "start" resolve-label