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

tools.image-analyzer.data-heap-reader: cell => cell_t.

db4
John Benediktsson 2015-07-20 09:36:20 -07:00
parent 3ea9f09f6a
commit df7ce245ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/tools/image-analyzer/data-heap-reader/data-heap-reader.factor
View File

@ -62,7 +62,7 @@ GENERIC: read-payload ( rel-base struct -- tuple )
] [ object seek-past-padding ] bi ; ] [ object seek-past-padding ] bi ;
: read-array-payload ( array -- payload ) : read-array-payload ( array -- payload )
[ capacity>> -4 shift ] keep cell read-padded-payload ; [ capacity>> -4 shift ] keep cell_t read-padded-payload ;
: read-uchar-payload ( n-bytes object -- payload ) : read-uchar-payload ( n-bytes object -- payload )
uchar read-padded-payload ; uchar read-padded-payload ;
@ -94,7 +94,7 @@ M: tuple read-payload ( rel-base tuple -- payload )
layout-address seek-absolute seek-input layout-address seek-absolute seek-input
tuple-layout read-struct size>> -4 shift tuple-layout read-struct size>> -4 shift
] save-io-excursion ] save-io-excursion
] keep cell read-padded-payload ; ] keep cell_t read-padded-payload ;
: peek-read-object ( -- object ) : peek-read-object ( -- object )
[ object read-struct ] save-io-excursion ; [ object read-struct ] save-io-excursion ;