Commit 979cd371 authored by Anton Ertl's avatar Anton Ertl

locate info for primitives

parent fc538e2d
......@@ -1243,8 +1243,10 @@ variable tail-nextp2 \ xt to execute for printing NEXT_P2 in INST_TAIL
: output-label ( -- )
." INST_ADDR(" prim prim-c-name 2@ type ." )," cr ;
: output-alias ( -- )
( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;
: output-alias ( -- )
name-line @ 1- . 0 . ." #loc " name-filename 2@ type space
\ I don't know why the "1-" above is necessary, but it works
." Primitive " prim prim-name 2@ type cr ;
defer output-c-prim-num ( -- )
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment