steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cpu.x86.tests: more tests

db4
Björn Lindqvist 2014-12-08 22:39:35 +01:00 committed by John Benediktsson
parent 52d3affeb8
commit ba6accb983
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
basis/cpu/x86/x86-tests.factor
View File

@ -1,10 +1,33 @@
IN: cpu.x86.tests IN: cpu.x86.tests
USING: cpu.x86.features tools.test math.libm kernel.private math USING: compiler.cfg.debugger compiler.cfg.instructions
compiler.cfg.instructions compiler.cfg.debugger kernel ; compiler.codegen.gc-maps compiler.codegen.relocation cpu.architecture
cpu.x86.features kernel kernel.private make math math.libm namespaces sequences
tools.test ;
[ ] [ { } [
[ { float } declare fsqrt ] [ { float } declare fsqrt ]
[ ##sqrt? ] contains-insn? [ ##sqrt? ] contains-insn?
sse2? sse2?
assert= assert=
] unit-test ] unit-test
! %call-gc
{ V{ } } [
init-relocation init-gc-maps
[ T{ gc-map { scrub-d V{ } } } %call-gc ] B{ } make drop
gc-maps get
] unit-test
{ 1 } [
init-relocation init-gc-maps
[ T{ gc-map { scrub-d V{ 0 0 } } } %call-gc ] B{ } make drop
gc-maps get length
] unit-test
! %alien-invoke
{ 1 } [
init-relocation init-gc-maps [
{ } { } { } { } 0 0 { } "dll" T{ gc-map { scrub-d V{ 0 } } } %alien-invoke
] B{ } make drop
gc-maps get length
] unit-test