Commit 62956219 authored by Jens Wilke's avatar Jens Wilke
Browse files

changes from gforth-ec: 

updated cross (side-effect: no more warnings :-)
some changed other forth-files
['] can not do forward references any more
parent 170e3b6b

cross.fs

+916 −232

File changed.

Preview size limit exceeded, changes collapsed.

environ.fs

+4 −0
Original line number Diff line number Diff line
@@ -31,6 +31,10 @@ Create environment-wordlist wordlist drop 


: e? name environment? ; immediate



: has? name environment? IF ELSE false THEN ;



: $has? environment? IF ELSE false THEN ;



environment-wordlist set-current

get-order environment-wordlist swap 1+ set-order

kernel/args.fs

+2 −1
Original line number Diff line number Diff line
@@ -47,7 +47,7 @@ Variable argc ( -- addr ) \ gforth 
	r> >tib +!  2 EXIT  THEN

    ." Unknown option: " type cr 2drop 1 ;



: process-args ( -- )

: (process-args) ( -- )

    true to script?

    >tib @ >r

    argc @ 1
@@ -64,3 +64,4 @@ Variable argc ( -- addr ) \ gforth 
    false to script?

;



' (process-args) IS process-args

kernel/basics.fs

+9 −0
Original line number Diff line number Diff line
@@ -28,8 +28,10 @@ HEX 


\ Aliases



[IFUNDEF] r@

' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch

\G copy w from the return stack to the data stack

[THEN]



\ !! this is machine-dependent, but works on all but the strangest machines
@@ -50,8 +52,14 @@ HEX 


\ UNUSED                                                17may93jaw



has? ec 

[IF]

unlock ram-dictionary area nip lock

Constant dictionary-end

[ELSE]

: dictionary-end ( -- addr )

    forthstart [ 3 cells ] Aliteral @ + ;

[THEN]



: unused ( -- u ) \ core-ext

    dictionary-end here - [ word-pno-size pad-minsize + ] Literal - ;
@@ -65,6 +73,7 @@ HEX 


\ on off                                               23feb93py



\ on is used by docol:

: on  ( addr -- ) \ gforth

    true  swap ! ;

: off ( addr -- ) \ gforth

kernel/files.fs

+3 −0
Original line number Diff line number Diff line
@@ -67,6 +67,8 @@ 


\ additional words only needed if there is file support



Warnings off



: ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file	paren

    loadfile @ 0= IF  postpone (  EXIT  THEN

    BEGIN
@@ -84,3 +86,4 @@ 
	THEN

    REPEAT ; immediate



Warnings on