ARM fixes

release
Slava Pestov 2007-11-02 03:52:48 -05:00
parent 59f197df9a
commit ee9fafd183
2 changed files with 3 additions and 3 deletions

View File

@ -278,7 +278,7 @@ M: arm-backend %alien-indirect ( -- )
M: arm-backend %alien-callback ( quot -- )
R0 load-indirect
"run_callback" f %alien-invoke ;
"c_to_factor" f %alien-invoke ;
M: arm-backend %callback-value ( ctype -- )
! Save top of data stack

View File

@ -3,7 +3,7 @@
USING: alien alien.c-types kernel math namespaces
cpu.architecture cpu.arm.architecture cpu.arm.assembler
cpu.arm.intrinsics generator generator.registers continuations
compiler io vocabs.loader sequences ;
compiler io vocabs.loader sequences system ;
! EABI passes floats in integer registers.
[ alien-float ]
@ -53,4 +53,4 @@ T{ arm-backend } compiler-backend set-global
t have-BLX? set-global
] when
7 cells set-profiler-prologue
7 cells set-profiler-prologues