T{ ##peek f 2 D 2 }
T{ ##compare f 4 2 1 cc= }
T{ ##copy f 6 4 any-rep }
- T{ ##replace f 6 D 0 }
+ T{ ##replace f 4 D 0 }
}
] [
V{
T{ ##peek f 1 D 1 }
T{ ##compare-imm f 2 1 16 cc= }
T{ ##copy f 3 2 any-rep }
- T{ ##replace f 3 D 0 }
+ T{ ##replace f 2 D 0 }
}
] [
V{
T{ ##peek f 2 D 2 }
T{ ##compare-integer f 4 2 1 cc> }
T{ ##copy f 6 4 any-rep }
- T{ ##replace f 6 D 0 }
+ T{ ##replace f 4 D 0 }
}
] [
V{
T{ ##peek f 0 D 0 }
T{ ##peek f 1 D 1 }
T{ ##copy f 3 0 any-rep }
- T{ ##replace f 3 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
T{ ##peek f 0 D 0 }
T{ ##peek f 1 D 1 }
T{ ##copy f 3 0 any-rep }
- T{ ##replace f 3 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
T{ ##peek f 0 D 0 }
T{ ##peek f 1 D 1 }
T{ ##copy f 3 0 any-rep }
- T{ ##replace f 3 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 1 0 any-rep }
- T{ ##replace f 1 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 1 0 any-rep }
- T{ ##replace f 1 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 1 0 any-rep }
- T{ ##replace f 1 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 1 0 any-rep }
- T{ ##replace f 1 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 1 0 any-rep }
- T{ ##replace f 1 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 2 0 any-rep }
- T{ ##replace f 2 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 2 0 any-rep }
- T{ ##replace f 2 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 2 0 any-rep }
- T{ ##replace f 2 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
V{
T{ ##peek f 0 D 0 }
T{ ##copy f 2 0 any-rep }
- T{ ##replace f 2 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
T{ ##peek f 0 D 0 }
T{ ##box-alien f 1 0 }
T{ ##copy f 2 0 any-rep }
- T{ ##replace f 2 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
T{ ##peek f 0 D 0 }
T{ ##box-alien f 1 0 }
T{ ##copy f 2 0 any-rep }
- T{ ##replace f 2 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
T{ ##peek f 0 D 0 }
T{ ##load-integer f 2 0 }
T{ ##copy f 1 0 any-rep }
- T{ ##replace f 1 D 0 }
+ T{ ##replace f 0 D 0 }
}
] [
V{
T{ ##peek f 0 D 0 }
T{ ##load-integer f 2 0 }
T{ ##copy f 3 0 any-rep }
- T{ ##replace f 3 D 1 }
+ T{ ##replace f 0 D 1 }
}
] [
V{
[ ] [
cfg new 0 get >>entry
value-numbering
- eliminate-dead-code
drop
] unit-test