changed stack effect of name>view

parent c715c96c
Pipeline #801 passed with stage
in 8 minutes and 54 seconds
......@@ -141,7 +141,7 @@ is ?warning
dup >r name>string ." redefined " 2dup type ( c-addr u c-addr2 u2 )
2over str= 0= if
." with " 2dup type then
cr r@ name>view @ .sourceview ." : warning: original location"
cr r@ name>view .sourceview ." : warning: original location"
r> ;
: shadow-num-warning ( c-addr u -- c-addr u )
." defined literal " 2dup type ." as word" ;
......
......@@ -65,7 +65,7 @@ s" forward must be resolved with :" exception constant forward-needs-:
: .unresolved ( -- )
\G print all unresolved forward references
[: [: replace-sourceview >r dup name>view @ to replace-sourceview
[: [: replace-sourceview >r dup name>view to replace-sourceview
dup is-forward? [: dup .name ." is unresolved" cr ;] ?warning
r> to replace-sourceview
drop true ;] swap traverse-wordlist ;] map-vocs ;
......
......@@ -292,12 +292,13 @@ Defer xt-location
current-sourceview dup r> 1+ locs[] $[] cell- 2! ;
' xt-location1 is xt-location
: name>view ( addr -- viewaddr )
: addr>view ( ip-addr -- view / 0 )
\G give @i{view} information for instruction address @i{ip-addr}
dup cell- locs-start here within locs-start and ?dup-IF
- cell/ 1- locs[] $[] EXIT
- cell/ 1- locs[] $[] @ EXIT
THEN drop 0 ;
: addr>view ( addr -- view / 0 )
name>view ?dup-IF @ THEN ;
' addr>view alias name>view ( nt -- view / 0 )
\G give @i{view} information for name token @i{nt}
has? primcentric [IF]
has? peephole [IF]
......
......@@ -104,7 +104,7 @@ variable included-file-buffers
l1 ;
: name-set-located-view ( nt -- )
dup name>view @ swap name>string nip set-located-view ;
dup name>view swap name>string nip set-located-view ;
: locate-name ( nt -- )
name-set-located-view l ;
......
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