[ ] [ 1 get instructions>> allocation-size 123 <alien> size assert= ] unit-test
-2 \ vreg-counter set-global
+2 vreg-counter set-global
: gc-check? ( bb -- ? )
instructions>>
T{ ##branch }
} = ;
-4 \ vreg-counter set-global
+4 vreg-counter set-global
[ t ] [ <gc-call> gc-call? ] unit-test
-30 \ vreg-counter set-global
+30 vreg-counter set-global
V{
T{ ##prologue }
0 1 edge
1 2 edge
-2 \ vreg-counter set-global
+2 vreg-counter set-global
[ ] [ test-gc-checks ] unit-test
0 1 edge
1 2 edge
-2 \ vreg-counter set-global
+2 vreg-counter set-global
[ ] [ test-gc-checks ] unit-test
H{ } clone representations set
-3 \ vreg-counter set-global
+3 vreg-counter set-global
[
{
3 { 3 4 } edges
2 4 edge
-3 \ vreg-counter set-global
+3 vreg-counter set-global
[ ] [ test-representations ] unit-test
! Don't convert the def site into anything but tagged-rep since
! we might lose precision
-5 \ vreg-counter set-global
+5 vreg-counter set-global
[ f ] [
V{
] unit-test
! Peephole optimization if input to ##shl-imm is tagged
-3 \ vreg-counter set-global
+3 vreg-counter set-global
[
V{
} test-peephole
] unit-test
-3 \ vreg-counter set-global
+3 vreg-counter set-global
[
V{
} test-peephole
] unit-test
-6 \ vreg-counter set-global
+6 vreg-counter set-global
! Peephole optimization if input to ##sar-imm is tagged
[
} test-peephole
] unit-test
-6 \ vreg-counter set-global
+6 vreg-counter set-global
! (Lack of) peephole optimization if output of ##sar-imm needs to be tagged
[
} test-peephole
] unit-test
-6 \ vreg-counter set-global
+6 vreg-counter set-global
[
V{
! Make sure we don't exceed immediate bounds
cpu x86.64? [
- 4 \ vreg-counter set-global
+ 4 vreg-counter set-global
[
V{
} test-peephole
] unit-test
-4 \ vreg-counter set-global
+4 vreg-counter set-global
[
V{
} test-peephole
] unit-test
-4 \ vreg-counter set-global
+4 vreg-counter set-global
[
V{
] unit-test
! Tag/untag elimination for ##not
-2 \ vreg-counter set-global
+2 vreg-counter set-global
[
V{