compiler.codegen.gc-maps: the gc-map-needed? word can be called with f

db4
Björn Lindqvist 2014-08-26 20:40:01 +02:00 committed by Doug Coleman
parent 8c0f9698de
commit 8cd2eee8e0
1 changed files with 2 additions and 3 deletions

View File

@ -30,11 +30,10 @@ IN: compiler.codegen.gc-maps
SYMBOLS: return-addresses gc-maps ;
: gc-map-needed? ( gc-map -- ? )
: gc-map-needed? ( gc-map/f -- ? )
! If there are no stack locations to scrub or check, and no GC
! roots, there's no point storing the GC map.
tuple-slots [ empty? ] all? not ;
dup [ tuple-slots [ empty? ] all? not ] when ;
: gc-map-here ( gc-map -- )
dup gc-map-needed? [