Fix bootstrap, add a unit test
parent
ff000f3e82
commit
6400085bea
|
@ -213,6 +213,7 @@ IN: compiler.tests
|
|||
[ -1 ] [ [ -123 -64 fixnum-shift ] compile-call ] unit-test
|
||||
[ -1 ] [ -123 -64 [ fixnum-shift ] compile-call ] unit-test
|
||||
|
||||
[ HEX: 10000000 ] [ HEX: 1000000 HEX: 10 [ fixnum* ] compile-call ] unit-test
|
||||
[ HEX: 10000000 ] [ HEX: -10000000 >fixnum [ 0 swap fixnum- ] compile-call ] unit-test
|
||||
[ HEX: 10000000 ] [ HEX: -fffffff >fixnum [ 1 swap fixnum- ] compile-call ] unit-test
|
||||
|
||||
|
|
|
@ -17,7 +17,6 @@ IN: cpu.ppc
|
|||
! f30, f31: float scratch
|
||||
|
||||
enable-float-intrinsics
|
||||
enable-fixnum*-intrinsic
|
||||
|
||||
<< \ ##integer>float t frame-required? set-word-prop
|
||||
\ ##float>integer t frame-required? set-word-prop >>
|
||||
|
|
Loading…
Reference in New Issue