Fix compile errors
parent
608f70a52c
commit
39180371de
|
@ -6,13 +6,13 @@ IN: bootstrap.x86
|
|||
|
||||
4 \ cell set
|
||||
|
||||
: arg0 EAX ;
|
||||
: arg1 EDX ;
|
||||
: temp-reg EBX ;
|
||||
: stack-reg ESP ;
|
||||
: ds-reg ESI ;
|
||||
: fixnum>slot@ arg0 1 SAR ;
|
||||
: rex-length 0 ;
|
||||
: arg0 ( -- reg ) EAX ;
|
||||
: arg1 ( -- reg ) EDX ;
|
||||
: temp-reg ( -- reg ) EBX ;
|
||||
: stack-reg ( -- reg ) ESP ;
|
||||
: ds-reg ( -- reg ) ESI ;
|
||||
: fixnum>slot@ ( -- ) arg0 1 SAR ;
|
||||
: rex-length ( -- n ) 0 ;
|
||||
|
||||
<< "resource:core/cpu/x86/bootstrap.factor" parse-file parsed >>
|
||||
call
|
||||
|
|
|
@ -6,13 +6,13 @@ IN: bootstrap.x86
|
|||
|
||||
8 \ cell set
|
||||
|
||||
: arg0 RDI ;
|
||||
: arg1 RSI ;
|
||||
: temp-reg RBX ;
|
||||
: stack-reg RSP ;
|
||||
: ds-reg R14 ;
|
||||
: fixnum>slot@ ;
|
||||
: rex-length 1 ;
|
||||
: arg0 ( -- reg ) RDI ;
|
||||
: arg1 ( -- reg ) RSI ;
|
||||
: temp-reg ( -- reg ) RBX ;
|
||||
: stack-reg ( -- reg ) RSP ;
|
||||
: ds-reg ( -- reg ) R14 ;
|
||||
: fixnum>slot@ ( -- ) ;
|
||||
: rex-length ( -- n ) 1 ;
|
||||
|
||||
<< "resource:core/cpu/x86/bootstrap.factor" parse-file parsed >>
|
||||
call
|
||||
|
|
|
@ -9,7 +9,7 @@ big-endian off
|
|||
|
||||
1 jit-code-format set
|
||||
|
||||
: stack-frame-size 4 bootstrap-cells ;
|
||||
: stack-frame-size ( -- n ) 4 bootstrap-cells ;
|
||||
|
||||
[
|
||||
! Load word
|
||||
|
|
Loading…
Reference in New Issue