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
|
||||||
[ -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: -10000000 >fixnum [ 0 swap fixnum- ] compile-call ] unit-test
|
||||||
[ HEX: 10000000 ] [ HEX: -fffffff >fixnum [ 1 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
|
! f30, f31: float scratch
|
||||||
|
|
||||||
enable-float-intrinsics
|
enable-float-intrinsics
|
||||||
enable-fixnum*-intrinsic
|
|
||||||
|
|
||||||
<< \ ##integer>float t frame-required? set-word-prop
|
<< \ ##integer>float t frame-required? set-word-prop
|
||||||
\ ##float>integer t frame-required? set-word-prop >>
|
\ ##float>integer t frame-required? set-word-prop >>
|
||||||
|
|
Loading…
Reference in New Issue