parent
d3a1ba25a4
commit
be25dc2b7e
|
@ -53,7 +53,7 @@ IN: tools.gc-decode
|
||||||
|
|
||||||
: read-gc-maps ( gc-info -- assoc )
|
: read-gc-maps ( gc-info -- assoc )
|
||||||
[ return-addresses ] [ scrub-bit-groups ] [ base-pointer-groups ] tri
|
[ return-addresses ] [ scrub-bit-groups ] [ base-pointer-groups ] tri
|
||||||
{ } zip-as { } zip-as ;
|
zip zip ;
|
||||||
|
|
||||||
: word>gc-info ( word -- gc-info )
|
: word>gc-info ( word -- gc-info )
|
||||||
word-code nip gc-info struct-size - <alien> gc-info memory>struct ;
|
word-code nip gc-info struct-size - <alien> gc-info memory>struct ;
|
||||||
|
|
Loading…
Reference in New Issue