Verified Commit 2d01f8ba authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Start preparing fix for libcc.fs

parent 5835866c

cross.fs

+1 −0
Original line number Diff line number Diff line
@@ -3034,6 +3034,7 @@ ghost :, 
ghost peephole-compile,

2drop

ghost does,

ghost doesxt,

ghost extraxt,

2drop drop

ghost value,

kernel/comp.fs

+2 −1
Original line number Diff line number Diff line
@@ -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 ;

kernel/int.fs

+2 −2
Original line number Diff line number Diff line
@@ -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

libcc.fs

+1 −1

File changed.

Contains only whitespace changes.