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