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

tools.image-analyzer.gc-info.tests: fix word>gc-info-expected word, 

fixes #1436
db4
Björn Lindqvist 2015-08-15 06:06:01 +02:00 committed by John Benediktsson
parent 18bbe6292a
commit 0f68d4c051
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/tools/image-analyzer/gc-info/gc-info-tests.factor
View File

@ -1,5 +1,5 @@
USING: accessors alien.c-types alien.syntax arrays assocs bit-arrays USING: accessors alien.c-types alien.syntax arrays assocs bit-arrays
classes.struct combinators combinators.short-circuit compiler classes.struct combinators combinators.short-circuit compiler compiler.cfg
compiler.cfg.debugger compiler.cfg.instructions compiler.cfg.linearization compiler.cfg.debugger compiler.cfg.instructions compiler.cfg.linearization
compiler.cfg.stack-frame compiler.codegen.gc-maps compiler.units fry generic compiler.cfg.stack-frame compiler.codegen.gc-maps compiler.units fry generic
grouping io io.encodings.binary io.streams.byte-array kernel math namespaces grouping io io.encodings.binary io.streams.byte-array kernel math namespaces
@ -10,6 +10,7 @@ IN: tools.image-analyzer.gc-info.tests
QUALIFIED: cpu.x86.features.private QUALIFIED: cpu.x86.features.private
QUALIFIED: crypto.aes.utils QUALIFIED: crypto.aes.utils
QUALIFIED: effects QUALIFIED: effects
QUALIFIED: gtk-samples.opengl
QUALIFIED: opencl QUALIFIED: opencl
: normal? ( word -- ? ) : normal? ( word -- ? )
@ -35,7 +36,7 @@ QUALIFIED: opencl
! Like word>gc-info but uses the compiler ! Like word>gc-info but uses the compiler
: word>gc-info-expected ( word -- seq/f ) : word>gc-info-expected ( word -- seq/f )
test-regs first cfg>gc-maps tally-gc-maps ; test-regs first [ cfg set ] [ cfg>gc-maps tally-gc-maps ] bi ;
! Handle f f as input. Deferred words don't have any gc-info. See #1394. ! Handle f f as input. Deferred words don't have any gc-info. See #1394.
: same-gc-info? ( compiler-gc-info/f gc-info/f -- ? ) : same-gc-info? ( compiler-gc-info/f gc-info/f -- ? )
@ -127,6 +128,12 @@ FUNCTION: void LLVMDisposeTypeHandle ( LLVMTypeHandleRef TypeHandle )
[ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info? [ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
] unit-test ] unit-test
! #1436
{ t } [
\ gtk-samples.opengl:opengl-main
[ word>gc-info-expected ] [ word>gc-info ] bi same-gc-info?
] unit-test
! Ensure deterministic gc map generation. ! Ensure deterministic gc map generation.
: recompile-word>gc-info ( word -- gc-info ) : recompile-word>gc-info ( word -- gc-info )
[ 1array compile ] keep word>gc-info ; [ 1array compile ] keep word>gc-info ;