Skip to content

gforth
gforth
Commit cf88fd78 authored by Bernd Paysan's avatar Bernd Paysan
Browse files
Options

Add location info in name, and 0name,

parent bb52bfb4
Pipeline #851 passed with stage
    in 9 minutes and 50 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 4 additions and 2 deletions
    kernel/comp.fs
    View file @ cf88fd78
    ...@@ -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