Commit d4716fc7 authored by pazsan's avatar pazsan

Some fixes to make it run.

0.2.9 is out, go to 0.2.91 or so next.
parent 5e542775
......@@ -86,6 +86,7 @@ INCLUDES = forth.h threading.h io.h
KERN_SRC = \
aliases0.fs \
aliases.fs \
args.fs \
conditionals.fs \
cross.fs \
errore.fs \
......@@ -118,6 +119,7 @@ GFORTH_FI_SRC = \
look.fs \
search-order.fs \
see.fs \
see-ext.fs \
source.fs \
startup.fs \
struct.fs \
......@@ -135,7 +137,7 @@ FORTH_SRC = $(KERN_SRC) $(GFORTH_FI_SRC) \
doskey.fs ds2texi.fs \
etags.fs filedump.fs \
glosgen.fs gray.fs \
makedoc.fs \
makedoc.fs comp-image.fs \
mach16b.fs mach16l.fs mach32b.fs mach32l.fs mach64b.fs mach64l.fs \
more.fs other.fs prims2x.fs random.fs \
sieve.fs \
......@@ -252,7 +254,7 @@ dist: $(SOURCES) $(FORTH_GEN0) @KERNEL@ $(DOCDIST)
dosdist: $(SOURCES) $(FORTH_GEN0) @KERNEL@ $(DOCDIST)
-$(RMTREE) gforth.$(DOSVERSION)
mkdir gforth.$(DOSVERSION)
$(CP) -rp $(SOURCES) $(FORTH_GEN0) @KERNEL@ $(DOCDIST) gforth.$(DOSVERSION)
$(CP) -rp $(SOURCES) $(FORTH_GEN) $(DOCDIST) gforth.$(DOSVERSION)
zip -r9 gforth.zip gforth.$(DOSVERSION)/*
-$(RMTREE) gforth.$(DOSVERSION)
......
......@@ -41,6 +41,6 @@ IF "%THREAD%"=="d" ECHO #endif >>CONFIG.H
IF "%FREGS%"=="y" ECHO #ifndef FORCE_REG >>CONFIG.H
IF "%FREGS%"=="y" ECHO #define FORCE_REG 1 >>CONFIG.H
IF "%FREGS%"=="y" ECHO #endif >>CONFIG.H
ECHO static char gforth_version[]="0.2.0"; >VERSION.H1
ECHO : version-string s" 0.2.0" ; >VERSION.FS
ECHO static char gforth_version[]="0.2.9"; >VERSION.H1
ECHO : version-string s" 0.2.9" ; >VERSION.FS1

\ No newline at end of file
......@@ -75,5 +75,5 @@ IF FREGS="y" THEN do
call lineout config.h, "#define FORCE_REG 1"
call lineout config.h, "#endif"
end
call lineout version.h1, 'static char gforth_version[]="0.2.0";'
call lineout version.fs1, ': version-string s" 0.2.0" ;'
call lineout version.h1, 'static char gforth_version[]="0.2.9";'
call lineout version.fs1, ': version-string s" 0.2.9" ;'
......@@ -528,6 +528,7 @@ ghost (does>) ghost noop 2drop
ghost (.") ghost (S") ghost (ABORT") 2drop drop
ghost ' drop
ghost :docol ghost :doesjump ghost :dodoes 2drop drop
ghost over ghost = ghost drop 2drop drop
\ compile 10may93jaw
......@@ -779,11 +780,11 @@ Build: ( d -- ) T , , H ;
DO: ( ghost -- d ) T dup cell+ @ swap @ H ;DO
Builder 2Constant
Build: T 0 , H ;
Build: T , H ;
by (Constant)
Builder Value
Build: T 0 A, H ;
Build: T A, H ;
by (Constant)
Builder AValue
......@@ -864,6 +865,12 @@ Cond: AGAIN restrict? sys? compile branch <resolve ;Cond
Cond: UNTIL restrict? sys? compile ?branch <resolve ;Cond
Cond: REPEAT restrict? over 0= ?struc compile AGAIN compile THEN ;Cond
Cond: CASE restrict? 0 ;Cond
Cond: OF restrict? 1+ >r compile over compile = compile IF compile drop
r> ;Cond
Cond: ENDOF restrict? >r compile ELSE r> ;Cond
Cond: ENDCASE restrict? compile drop 0 ?DO compile THEN LOOP ;Cond
\ Structural Conditionals 12dec92py
Cond: DO restrict? compile (do) T here H ;Cond
......
......@@ -26,12 +26,13 @@
\ `documentation'. Each word resides there under its own name.
script? [IF]
warnings off
require search-order.fs
require glocals.fs
require float.fs
require struct.fs
require debugging.fs
warnings off
require extend.fs
require search-order.fs
require glocals.fs
require float.fs
require struct.fs
require debugging.fs
[THEN]
wordlist constant documentation
......
......@@ -31,8 +31,10 @@ s%@LINK_KERNL@%-$(CP) kernl32l.fi kernel.fi%g
s%@PATHSEP@%;%g
s%-fforce-mem -fforce-addr %%g
s%echo "static char gforth_version.*;" >$@%$(CP) VERSION.H1 version.h%g
s%echo ": version-string.*;" >$@%$(CP) VERSION.FS version.fs%g
s%echo ": version-string.*;" >$@%$(CP) VERSION.FS1 version.fs%g
s%$(srcdir)/config.h.in: stamp-h.in%#$(srcdir)/config.h.in: stamp-h.in%g
s%config.h: stamp-h%#config.h: stamp-h%g
s%$(FORTHPATH)$(PATHSEP)%%g
s%@FORTHSIZES@%%g
s%test x'$(VERSION)' = x`cat $@` || %%g
s%--clear-dictionary%-c%g
......@@ -58,3 +58,5 @@ s%config.h: stamp-h%#config.h: stamp-h%g
s%$(FORTHPATH)$(PATHSEP)%%g
s%@FORTHSIZES@%%g
s%$(PATHSEP)$(srcdir)%%g
s%test x'$(VERSION)' = x`cat $@` || %%g
s%--clear-dictionary%-c%g
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