Commit cf88fd78 authored by Bernd Paysan's avatar Bernd Paysan

Add location info in name, and 0name,

parent bb52bfb4
Pipeline #851 passed with stage
in 9 minutes and 50 seconds
......@@ -147,13 +147,15 @@ Defer check-shadow ( addr u wid -- )
dup here + dup cfaligned >align
nlstring,
get-current 1 or A,
here xt-location drop
\ link field; before revealing, it contains the
\ tagged reveal-into wordlist
here cell+ last ! ; \ set last header
: 0name, ( -- )
cfalign 0 last ! ;
cfalign 0 last !
here xt-location drop ;
: namevt, ( namevt -- )
here xt-location drop , here lastcfa ! ; \ add location stamps on vt+cf
, here lastcfa ! ; \ add location stamps on vt+cf
: noname-vt ( -- )
\G modify vt for noname words
......
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