Merge branch 'master' of git://factorcode.org/git/factor

db4
Joe Groff 2009-08-26 09:14:13 -05:00
commit 1420b6f4ee
2 changed files with 46 additions and 30 deletions

View File

@ -656,14 +656,17 @@ V{
T{ ##copy T{ ##copy
{ dst 689481 } { dst 689481 }
{ src 689475 } { src 689475 }
{ rep int-rep }
} }
T{ ##copy T{ ##copy
{ dst 689482 } { dst 689482 }
{ src 689474 } { src 689474 }
{ rep int-rep }
} }
T{ ##copy T{ ##copy
{ dst 689483 } { dst 689483 }
{ src 689473 } { src 689473 }
{ rep int-rep }
} }
T{ ##branch } T{ ##branch }
} 2 test-bb } 2 test-bb
@ -672,14 +675,17 @@ V{
T{ ##copy T{ ##copy
{ dst 689481 } { dst 689481 }
{ src 689473 } { src 689473 }
{ rep int-rep }
} }
T{ ##copy T{ ##copy
{ dst 689482 } { dst 689482 }
{ src 689475 } { src 689475 }
{ rep int-rep }
} }
T{ ##copy T{ ##copy
{ dst 689483 } { dst 689483 }
{ src 689474 } { src 689474 }
{ rep int-rep }
} }
T{ ##branch } T{ ##branch }
} 3 test-bb } 3 test-bb
@ -742,10 +748,12 @@ V{
T{ ##copy T{ ##copy
{ dst 689608 } { dst 689608 }
{ src 689600 } { src 689600 }
{ rep int-rep }
} }
T{ ##copy T{ ##copy
{ dst 689610 } { dst 689610 }
{ src 689601 } { src 689601 }
{ rep int-rep }
} }
T{ ##branch } T{ ##branch }
} 2 test-bb } 2 test-bb
@ -758,14 +766,17 @@ V{
T{ ##copy T{ ##copy
{ dst 689607 } { dst 689607 }
{ src 689600 } { src 689600 }
{ rep int-rep }
} }
T{ ##copy T{ ##copy
{ dst 689608 } { dst 689608 }
{ src 689601 } { src 689601 }
{ rep int-rep }
} }
T{ ##copy T{ ##copy
{ dst 689610 } { dst 689610 }
{ src 689609 } { src 689609 }
{ rep int-rep }
} }
T{ ##branch } T{ ##branch }
} 3 test-bb } 3 test-bb
@ -816,6 +827,7 @@ V{
T{ ##copy T{ ##copy
{ dst 2 } { dst 2 }
{ src 1 } { src 1 }
{ rep int-rep }
} }
T{ ##branch } T{ ##branch }
} 2 test-bb } 2 test-bb
@ -828,6 +840,7 @@ V{
T{ ##copy T{ ##copy
{ dst 2 } { dst 2 }
{ src 3 } { src 3 }
{ rep int-rep }
} }
T{ ##branch } T{ ##branch }
} 3 test-bb } 3 test-bb
@ -1121,7 +1134,7 @@ V{
{ slot 1 } { slot 1 }
{ tag 2 } { tag 2 }
} }
T{ ##copy { dst 79 } { src 69 } } T{ ##copy { dst 79 } { src 69 } { rep int-rep } }
T{ ##slot-imm T{ ##slot-imm
{ dst 85 } { dst 85 }
{ obj 62 } { obj 62 }
@ -1169,22 +1182,22 @@ V{
T{ ##peek { dst 114 } { loc D 1 } } T{ ##peek { dst 114 } { loc D 1 } }
T{ ##peek { dst 116 } { loc D 4 } } T{ ##peek { dst 116 } { loc D 4 } }
T{ ##peek { dst 119 } { loc R 0 } } T{ ##peek { dst 119 } { loc R 0 } }
T{ ##copy { dst 109 } { src 108 } } T{ ##copy { dst 109 } { src 108 } { rep int-rep } }
T{ ##copy { dst 111 } { src 110 } } T{ ##copy { dst 111 } { src 110 } { rep int-rep } }
T{ ##copy { dst 113 } { src 112 } } T{ ##copy { dst 113 } { src 112 } { rep int-rep } }
T{ ##copy { dst 115 } { src 114 } } T{ ##copy { dst 115 } { src 114 } { rep int-rep } }
T{ ##copy { dst 117 } { src 116 } } T{ ##copy { dst 117 } { src 116 } { rep int-rep } }
T{ ##copy { dst 120 } { src 119 } } T{ ##copy { dst 120 } { src 119 } { rep int-rep } }
T{ ##branch } T{ ##branch }
} 3 test-bb } 3 test-bb
V{ V{
T{ ##copy { dst 109 } { src 62 } } T{ ##copy { dst 109 } { src 62 } { rep int-rep } }
T{ ##copy { dst 111 } { src 61 } } T{ ##copy { dst 111 } { src 61 } { rep int-rep } }
T{ ##copy { dst 113 } { src 62 } } T{ ##copy { dst 113 } { src 62 } { rep int-rep } }
T{ ##copy { dst 115 } { src 79 } } T{ ##copy { dst 115 } { src 79 } { rep int-rep } }
T{ ##copy { dst 117 } { src 64 } } T{ ##copy { dst 117 } { src 64 } { rep int-rep } }
T{ ##copy { dst 120 } { src 69 } } T{ ##copy { dst 120 } { src 69 } { rep int-rep } }
T{ ##branch } T{ ##branch }
} 4 test-bb } 4 test-bb
@ -1306,12 +1319,12 @@ V{
T{ ##peek { dst 162 } { loc D 1 } } T{ ##peek { dst 162 } { loc D 1 } }
T{ ##peek { dst 164 } { loc D 4 } } T{ ##peek { dst 164 } { loc D 4 } }
T{ ##peek { dst 167 } { loc R 0 } } T{ ##peek { dst 167 } { loc R 0 } }
T{ ##copy { dst 157 } { src 156 } } T{ ##copy { dst 157 } { src 156 } { rep int-rep } }
T{ ##copy { dst 159 } { src 158 } } T{ ##copy { dst 159 } { src 158 } { rep int-rep } }
T{ ##copy { dst 161 } { src 160 } } T{ ##copy { dst 161 } { src 160 } { rep int-rep } }
T{ ##copy { dst 163 } { src 162 } } T{ ##copy { dst 163 } { src 162 } { rep int-rep } }
T{ ##copy { dst 165 } { src 164 } } T{ ##copy { dst 165 } { src 164 } { rep int-rep } }
T{ ##copy { dst 168 } { src 167 } } T{ ##copy { dst 168 } { src 167 } { rep int-rep } }
T{ ##branch } T{ ##branch }
} 4 test-bb } 4 test-bb

View File

@ -3,7 +3,7 @@ compiler.cfg.debugger compiler.cfg.instructions compiler.cfg.mr
compiler.cfg.registers compiler.codegen compiler.units compiler.cfg.registers compiler.codegen compiler.units
cpu.architecture hashtables kernel namespaces sequences cpu.architecture hashtables kernel namespaces sequences
tools.test vectors words layouts literals math arrays tools.test vectors words layouts literals math arrays
alien.syntax ; alien.syntax math.private ;
IN: compiler.tests.low-level-ir IN: compiler.tests.low-level-ir
: compile-cfg ( cfg -- word ) : compile-cfg ( cfg -- word )
@ -46,8 +46,10 @@ IN: compiler.tests.low-level-ir
} compile-test-bb } compile-test-bb
] unit-test ] unit-test
! ##copy on floats ! ##copy on floats. We can only run this test if float intrinsics
[ 1.5 ] [ ! are enabled.
\ float+ "intrinsic" word-prop [
[ 1.5 ] [
V{ V{
T{ ##load-reference f 4 1.5 } T{ ##load-reference f 4 1.5 }
T{ ##unbox-float f 1 4 } T{ ##unbox-float f 1 4 }
@ -55,7 +57,8 @@ IN: compiler.tests.low-level-ir
T{ ##box-float f 3 2 } T{ ##box-float f 3 2 }
T{ ##copy f 0 3 int-rep } T{ ##copy f 0 3 int-rep }
} compile-test-bb } compile-test-bb
] unit-test ] unit-test
] when
! make sure slot access works when the destination is ! make sure slot access works when the destination is
! one of the sources ! one of the sources