Start preparing fix for libcc.fs

parent 5835866c
Pipeline #655 passed with stage
in 8 minutes and 48 seconds
......@@ -3034,6 +3034,7 @@ ghost :,
ghost peephole-compile,
2drop
ghost does,
ghost doesxt,
ghost extraxt,
2drop drop
ghost value,
......
......@@ -617,7 +617,8 @@ Create vttemplate
: set-defer@ ( defer@-xt -- ) vttemplate >vtdefer@ ! ;
: set->int ( xt -- ) vttemplate >vt>int ! ;
: set->comp ( xt -- ) vttemplate >vt>comp ! ;
: set-does> ( xt -- ) !doesxt ; \ more work than the aboves
: set-does> ( xt -- ) !extraxt ; \ more work than the aboves
: set-doesxt> ( xt -- ) !doesxt ; \ more work than the aboves
:noname ( -- colon-sys ) start-xt set-optimizer ;
:noname ['] set-optimizer start-xt-like ;
......
......@@ -542,10 +542,10 @@ cell% -2 * 0 0 field body> ( xt -- a_addr )
dup @ dodoes: = if
cell+ @
else dup @ dodoesxt: = if
cell+ @
cell+ @ >body
else
dup @ doextraxt: = IF
>namevt @ >vtextra @
>namevt @ >vtextra @ >body
ELSE
drop 0
THEN
......
......@@ -900,7 +900,7 @@ tmp$ $execstr-ptr !
['] rt-does> swap body> doesxt-code! ;
: ?link-wrapper ( addr -- xf-cfr )
dup body> >does-code [ ' rt-does> >body ]L <> IF
dup body> >does-code [ ' rt-does> >body ]L <> IF
dup make-rt
dup link-wrapper-function over ! 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