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