Commit 99717fa8 authored by jwilke's avatar jwilke

fix: cross now works again on top of kernlXYZ.fi

parent 464dc269
......@@ -202,6 +202,13 @@ Create bases 10 , 2 , A , 100 ,
[THEN]
\ this provides assert( and struct stuff
\GFORTH [IFUNDEF] assert1(
\GFORTH also forth definitions require assert.fs previous
\GFORTH [THEN]
>CROSS
hex \ the defualt base for the cross-compiler is hex !!
\ Warnings off
......@@ -1007,10 +1014,13 @@ Variable reuse-ghosts reuse-ghosts off
\ ' >ghostname ALIAS @name
: findghost ( "ghostname" -- ghost )
bl word gfind 0= ABORT" CROSS: Ghost don't exists" ;
: [G'] ( -- ghost : name )
\G ticks a ghost and returns its address
\ bl word gfind 0= ABORT" CROSS: Ghost don't exists"
ghost state @ IF postpone literal THEN ; immediate
findghost
state @ IF postpone literal THEN ; immediate
: g>xt ( ghost -- xt )
\G Returns the xt (cfa) of a ghost. Issues a warning if undefined.
......@@ -1061,8 +1071,15 @@ Ghost :dovar drop
Ghost over Ghost = Ghost drop 2drop drop
Ghost 2drop drop
Ghost 2dup drop
Ghost state drop
Ghost call drop
Ghost @ drop
Ghost useraddr drop
Ghost execute drop
Ghost + drop
Ghost (C") drop
Ghost decimal drop
Ghost hex drop
\ \ Parameter for target systems 06oct92py
......@@ -2177,8 +2194,7 @@ Comment ( Comment \
\ compile 10may93jaw
: compile ( "name" -- ) \ name
\ bl word gfind 0= ABORT" CROSS: Can't compile "
ghost
findghost
dup >exec-compile @ ?dup
IF nip compile,
ELSE postpone literal postpone gexecute THEN ; immediate restrict
......@@ -2200,7 +2216,8 @@ Cond: ['] T ' H alit, ;Cond
: [T']
\ returns the target-cfa of a ghost, or compiles it as literal
postpone [G'] state @ IF postpone g>xt ELSE g>xt THEN ; immediate
postpone [G']
state @ IF postpone g>xt ELSE g>xt THEN ; immediate
\ \ threading modell 13dec92py
\ modularized 14jun97jaw
......@@ -2325,6 +2342,7 @@ Cond: MAXI
;Cond
>CROSS
\ Target compiling loop 12dec92py
\ ">tib trick thrown out 10may93jaw
\ number? defined at the top 11may93jaw
......@@ -2345,10 +2363,11 @@ Cond: MAXI
IF 0> IF swap lit, THEN lit, discard
ELSE 2drop restore-input throw Ghost gexecute THEN ;
>TARGET
\ : ; DOES> 13dec92py
\ ] 9may93py/jaw
>CROSS
: compiling-state ( -- )
\G set states to compililng
Compiling comp-state !
......@@ -2363,6 +2382,8 @@ Cond: MAXI
IF >ghost-xt @ execute X off ELSE drop THEN
Interpreting comp-state ! ;
>TARGET
: ]
compiling-state
BEGIN
......
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