Quality control on changes, make simple decompiler work again

parent 5fadeaff
Pipeline #805 failed with stage
in 5 minutes and 21 seconds
......@@ -2878,10 +2878,12 @@ X has? primcentric [IF]
IF there resolve THEN ;
Cond: DOES>
T here cfaligned H [ T has? primcentric H [IF] ] #6 [ [ELSE] ] #7 [ [THEN] ] T cells
H + alit, compile set-does> compile ;
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
vt-noname
r> ?dup IF swap resolve ELSE drop THEN
;Cond
......@@ -3075,9 +3077,10 @@ ghost defer-defer@
ghost named>string
ghost named>link
2drop
ghost (noname->comp)
ghost noname>string
ghost noname>link
2drop
2drop drop
ghost value-to
ghost umethod,
2drop
......@@ -3145,18 +3148,20 @@ End-Struct vtable-struct
: vt-template, ( -- )
T here 0 A, H vttemplate ! ;
:noname ( -- )
[G'] default-name>int vttemplate g>vt>int !
[G'] default-name>comp vttemplate g>vt>comp !
[G'] named>string vttemplate g>vt>string !
[G'] named>link vttemplate g>vt>link ! ; is vt-named
:noname ( -- )
[G'] noop vttemplate g>vt>int !
[G'] (noname->comp) vttemplate g>vt>comp !
[G'] noname>string vttemplate g>vt>string !
[G'] noname>link vttemplate g>vt>link ! ; is vt-noname
: vt-populate ( -- )
[G'] :, vttemplate g>vtcompile, !
0 vttemplate g>vtextra !
[G'] no-to vttemplate g>vtto !
[G'] default-name>int vttemplate g>vt>int !
[G'] default-name>comp vttemplate g>vt>comp !
[G'] no-defer@ vttemplate g>vtdefer@ !
TNIL vttemplate g>vtextra !
vt-named ;
:noname ( ghost -- ) vttemplate g>vtcompile, ! ; IS gset-optimizer
......
......@@ -446,9 +446,9 @@ defer compile, ( xt -- )
: named>link ( nt1 -- nt2 / 0 ) \ gforth named-to-link
>link @ ;
: noname>string ( nt -- 0 0 ) \ gforth noname-to-string
drop 0 0 ;
: noname>link ( nt -- 0 ) \ gforth noname-to-string
: noname>string ( nt -- vt 0 ) \ gforth noname-to-string
cell- 0 ;
: noname>link ( nt -- 0 ) \ gforth noname-to-link
drop 0 ;
\ : name>view ( nt -- addr ) \ gforth name-to-view
......
......@@ -94,7 +94,7 @@ has? rom
: PrimStart ['] true >head-noprim ;
: look ( xt -- nt flag )
dup xt? ;
dup xt? IF dup name>string nip 0> ELSE 0 THEN ;
[THEN]
[THEN]
......
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