compiler.codegen.gc-maps: the gc-map-needed? word can be called with f
parent
8c0f9698de
commit
8cd2eee8e0
|
@ -30,11 +30,10 @@ IN: compiler.codegen.gc-maps
|
||||||
|
|
||||||
SYMBOLS: return-addresses gc-maps ;
|
SYMBOLS: return-addresses gc-maps ;
|
||||||
|
|
||||||
|
: gc-map-needed? ( gc-map/f -- ? )
|
||||||
: gc-map-needed? ( gc-map -- ? )
|
|
||||||
! If there are no stack locations to scrub or check, and no GC
|
! If there are no stack locations to scrub or check, and no GC
|
||||||
! roots, there's no point storing the GC map.
|
! 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 -- )
|
: gc-map-here ( gc-map -- )
|
||||||
dup gc-map-needed? [
|
dup gc-map-needed? [
|
||||||
|
|
Loading…
Reference in New Issue