Remove dummy name and link from :noname

parent ffe9fd60
Pipeline #804 failed with stage
in 5 minutes and 19 seconds
......@@ -2796,7 +2796,7 @@ ghost :-dummy Constant :-ghost
: :noname ( -- xt colon-sys )
switchrom vt, vt-noname
[ X has? f83headerstring 0= ] [IF]
T 0 cell+ cfalign# 0 , 0 , here cell+ H
T 0 cell+ cfalign# here cell+ H
[IFDEF] alias-mask t>flag >r alias-mask T r@ c@ xor r> c! H
[ELSE] drop [THEN]
:-ghost >do:ghost @ >exec2 @ execute
......@@ -2878,7 +2878,7 @@ X has? primcentric [IF]
IF there resolve THEN ;
Cond: DOES>
T here cfaligned H [ T has? primcentric H [IF] ] #8 [ [ELSE] ] #7 [ [THEN] ] T cells
T here cfaligned H [ T has? primcentric H [IF] ] #6 [ [ELSE] ] #7 [ [THEN] ] T cells
H + alit, compile set-does> compile ;
Last-Header-Ghost @ >do:ghost @ >r
T :noname H
......@@ -2887,7 +2887,7 @@ T :noname H
: DOES>
['] does-resolved created >comp !
T here cfaligned #12 cells H \ includes noname header+vtable
T here cfaligned #10 cells H \ includes noname header+vtable
+ !newdoes
T :noname H 2drop
instant-interpret-does>-hook
......
......@@ -197,8 +197,7 @@ defer header ( -- ) \ gforth
['] nextname-header IS (header) ;
: noname, ( -- )
0 last ! vt, here dup cfaligned >align 0 ( alias-mask ) ,
0 , \ link field
0 last ! vt, here dup cfaligned >align
here xt-location drop \ add location stamps on vt+cf
vttemplate , \ vtable field
noname-vt ;
......
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