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

tools.image-analyzer.gc-info: Deferred words don't have any gc-info. Fix the unit test to account for this. Fixes #1394.

db4
Doug Coleman 2015-08-04 14:40:40 -07:00
parent dcc1e7773f
commit 18699e83c1
1 changed files with 8 additions and 3 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

@ -37,9 +37,14 @@ QUALIFIED: opencl
: word>gc-info-expected ( word -- seq/f )
test-regs first cfg>gc-maps tally-gc-maps ;
: same-gc-info? ( compiler-gc-info gc-info -- ? )
[ struct-slot-values = ]
[ [ not ] dip return-address-count>> 0 = and ] 2bi or ;
! 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 -- ? )
2dup = [
2drop t
] [
[ struct-slot-values = ]
[ [ not ] dip return-address-count>> 0 = and ] 2bi or
] if ;
: base-pointer-groups-expected ( word -- seq )
test-regs first cfg>gc-maps [ derived-root-offsets { } like ] { } map-as ;