diff -r -c gforth-0.2.0/CVS/Entries gforth-0.2.1/CVS/Entries *** gforth-0.2.0/CVS/Entries Tue Dec 10 14:27:10 1996 --- gforth-0.2.1/CVS/Entries Sat Dec 14 15:33:03 1996 *************** *** 105,111 **** /alpha.h/1.9/Wed Oct 2 09:15:44 1996// /blocks.fs/1.11/Tue Oct 1 16:55:18 1996// /acconfig.h/1.4/Thu Oct 3 07:02:19 1996// - /atanh.c/1.1/Sun Oct 6 22:24:14 1996// /io.c/1.18/Tue Oct 8 14:27:17 1996// /os2conf.h/1.1/Sun Oct 6 22:24:19 1996// /stuff.fs/1.5/Tue Oct 8 14:27:18 1996// --- 105,110 ---- *************** *** 123,131 **** /testdist/1.1/Thu Oct 31 15:36:05 1996// /testdist1/1.1/Thu Oct 31 17:06:09 1996// /INSTALL/1.25/Mon Nov 11 16:55:21 1996// - /dosconf.h/1.3/Mon Nov 11 16:55:22 1996// - /main.c/1.46/Mon Nov 11 16:55:22 1996// - /Makefile.in/1.75/Mon Nov 11 16:55:21 1996// /ToDo/1.7/Sun Nov 10 17:43:37 1996// /ans-report.fs/1.1/Sun Nov 10 17:30:45 1996// /gforth.ds/1.40/Sun Nov 10 17:53:58 1996// --- 122,127 ---- *************** *** 134,143 **** /kernel.fs/1.8/Wed Nov 27 18:41:40 1996// /oof.fs/1.4/Wed Nov 27 18:41:41 1996// /BUGS/1.23/Thu Nov 28 14:34:51 1996// - /NEWS/1.3/Thu Nov 28 14:53:27 1996// /INSTALL.DOS/1.5/Tue Dec 10 13:27:09 1996// - /README/1.20/Mon Nov 11 16:57:03 1996// /configure.bat/1.9/Tue Dec 10 13:27:09 1996// /configure.cmd/1.3/Tue Dec 10 13:27:10 1996// /mkdosmf.sed/1.7/Tue Dec 10 13:27:10 1996// /mkos2mf.sed/1.3/Tue Dec 10 13:27:10 1996// --- 130,143 ---- /kernel.fs/1.8/Wed Nov 27 18:41:40 1996// /oof.fs/1.4/Wed Nov 27 18:41:41 1996// /BUGS/1.23/Thu Nov 28 14:34:51 1996// /INSTALL.DOS/1.5/Tue Dec 10 13:27:09 1996// /configure.bat/1.9/Tue Dec 10 13:27:09 1996// /configure.cmd/1.3/Tue Dec 10 13:27:10 1996// /mkdosmf.sed/1.7/Tue Dec 10 13:27:10 1996// /mkos2mf.sed/1.3/Tue Dec 10 13:27:10 1996// + /README/1.21/Tue Dec 10 13:27:09 1996// + /Makefile.in/1.76/Sat Dec 14 14:15:18 1996// + /atanh.c/1.2/Fri Dec 13 17:52:51 1996// + /dosconf.h/1.4/Sat Dec 14 14:17:44 1996// + /main.c/1.47/Sat Dec 14 14:18:27 1996// + /NEWS/1.4/Sat Dec 14 14:32:29 1996// diff -r -c gforth-0.2.0/Makefile.in gforth-0.2.1/Makefile.in *** gforth-0.2.0/Makefile.in Mon Nov 11 17:55:21 1996 --- gforth-0.2.1/Makefile.in Sat Dec 14 15:15:18 1996 *************** *** 23,30 **** # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. ! VERSION =0.2.0#gforth version ! DOSVERSION=020#gforth version SHELL = /bin/sh RM = rm RMTREE = rm -rf --- 23,30 ---- # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. ! VERSION =0.2.1#gforth version ! DOSVERSION=021#gforth version SHELL = /bin/sh RM = rm RMTREE = rm -rf diff -r -c gforth-0.2.0/atanh.c gforth-0.2.1/atanh.c *** gforth-0.2.0/atanh.c Mon Oct 7 00:24:14 1996 --- gforth-0.2.1/atanh.c Fri Dec 13 18:52:51 1996 *************** *** 8,25 **** double r3=log((r2/(1.0-r2)*2)+1)/2; return r1 < 0 ? -r3 : r3; ! // fdup f0< >r fabs 1. d>f fover f- f/ f2* flnp1 f2/ ! // r> IF fnegate THEN ; } double asinh(double r1) { return atanh(r1/sqrt(1.0+r1*r1)); ! // fdup fdup f* 1. d>f f+ fsqrt f/ fatanh ; } double acosh(double r1) { return(log(r1+sqrt(r1*r1-1.0))); ! // fdup fdup f* 1. d>f f- fsqrt f+ fln ; } --- 8,26 ---- double r3=log((r2/(1.0-r2)*2)+1)/2; return r1 < 0 ? -r3 : r3; ! /* fdup f0< >r fabs 1. d>f fover f- f/ f2* flnp1 f2/ ! r> IF fnegate THEN ; ! */ } double asinh(double r1) { return atanh(r1/sqrt(1.0+r1*r1)); ! /* fdup fdup f* 1. d>f f+ fsqrt f/ fatanh ; */ } double acosh(double r1) { return(log(r1+sqrt(r1*r1-1.0))); ! /* fdup fdup f* 1. d>f f- fsqrt f+ fln ; */ } diff -r -c gforth-0.2.0/dosconf.h gforth-0.2.1/dosconf.h *** gforth-0.2.0/dosconf.h Mon Nov 11 17:55:22 1996 --- gforth-0.2.1/dosconf.h Sat Dec 14 15:17:44 1996 *************** *** 51,59 **** #define HAVE_LIBM 1 /* Of course, sys_siglist is a variable, not a function */ - /* Define FUZZ for better image positioning */ - #define FUZZ 0x4000 - /* Define if you want to force a direct threaded code implementation (does not work on all machines */ /* Define if you want to force an indirect threaded code implementation */ --- 51,56 ---- diff -r -c gforth-0.2.0/gforth.info gforth-0.2.1/gforth.info *** gforth-0.2.0/gforth.info Sun Nov 10 18:39:46 1996 --- gforth-0.2.1/gforth.info Thu Dec 12 15:47:31 1996 *************** *** 1,4 **** ! This is Info file gforth.info, produced by Makeinfo-1.64 from the input file gforth.texi. This file documents Gforth 0.2 --- 1,4 ---- ! This is Info file gforth.info, produced by Makeinfo-1.55 from the input file gforth.texi. This file documents Gforth 0.2 diff -r -c gforth-0.2.0/gforth.info-1 gforth-0.2.1/gforth.info-1 *** gforth-0.2.0/gforth.info-1 Sun Nov 10 18:39:46 1996 --- gforth-0.2.1/gforth.info-1 Thu Dec 12 15:47:26 1996 *************** *** 1,4 **** ! This is Info file gforth.info, produced by Makeinfo-1.64 from the input file gforth.texi. This file documents Gforth 0.2 --- 1,4 ---- ! This is Info file gforth.info, produced by Makeinfo-1.55 from the input file gforth.texi. This file documents Gforth 0.2 diff -r -c gforth-0.2.0/gforth.info-2 gforth-0.2.1/gforth.info-2 *** gforth-0.2.0/gforth.info-2 Sun Nov 10 18:39:46 1996 --- gforth-0.2.1/gforth.info-2 Thu Dec 12 15:47:27 1996 *************** *** 1,4 **** ! This is Info file gforth.info, produced by Makeinfo-1.64 from the input file gforth.texi. This file documents Gforth 0.2 --- 1,4 ---- ! This is Info file gforth.info, produced by Makeinfo-1.55 from the input file gforth.texi. This file documents Gforth 0.2 diff -r -c gforth-0.2.0/gforth.info-3 gforth-0.2.1/gforth.info-3 *** gforth-0.2.0/gforth.info-3 Sun Nov 10 18:39:46 1996 --- gforth-0.2.1/gforth.info-3 Thu Dec 12 15:47:29 1996 *************** *** 1,4 **** ! This is Info file gforth.info, produced by Makeinfo-1.64 from the input file gforth.texi. This file documents Gforth 0.2 --- 1,4 ---- ! This is Info file gforth.info, produced by Makeinfo-1.55 from the input file gforth.texi. This file documents Gforth 0.2 *************** *** 139,145 **** Gforth provides some words for defining primitives (words written in machine code), and for defining the the machine-code equivalent of `DOES>'-based defining words. However, the machine-independent nature ! of Gforth poses a few problems: First of all. Gforth runs on several architectures, so it can provide no standard assembler. What's worse is that the register allocation not only depends on the processor, but also on the `gcc' version and options used. --- 139,145 ---- Gforth provides some words for defining primitives (words written in machine code), and for defining the the machine-code equivalent of `DOES>'-based defining words. However, the machine-independent nature ! of Gforth poses a few problems: First of all, Gforth runs on several architectures, so it can provide no standard assembler. What's worse is that the register allocation not only depends on the processor, but also on the `gcc' version and options used. diff -r -c gforth-0.2.0/gforth.info-4 gforth-0.2.1/gforth.info-4 *** gforth-0.2.0/gforth.info-4 Sun Nov 10 18:39:46 1996 --- gforth-0.2.1/gforth.info-4 Thu Dec 12 15:47:31 1996 *************** *** 1,4 **** ! This is Info file gforth.info, produced by Makeinfo-1.64 from the input file gforth.texi. This file documents Gforth 0.2 --- 1,4 ---- ! This is Info file gforth.info, produced by Makeinfo-1.55 from the input file gforth.texi. This file documents Gforth 0.2 *************** *** 763,770 **** * ?LEAVE COMPILATION - ; RUN-TIME F | F LOOP-SYS - gforth: Arbitrary control structures. * @ A-ADDR - W core: Stack-Memory transfers. * @local# - W gforth: Implementation. - * ['] COMPILATION. "NAME" - ; RUN-TIME. - XT core: Tokens for Words. - * [COMP'] COMPILATION "NAME" - ; RUN-TIME - W XT gforth: Tokens for Words. * abs N1 - N2 core: Single precision. * ADDRESS-UNIT-BITS - N environment: Address arithmetic. * AGAIN COMPILATION DEST - ; RUN-TIME - core-ext: Arbitrary control structures. --- 763,768 ---- *************** *** 907,918 **** * invert W1 - W2 core: Bitwise operations. * IS ADDR "NAME" - gforth: Simple Defining Words. * laddr# - C-ADDR gforth: Implementation. ! * lastxt - XT gforth <1>: Tokens for Words. * lastxt - XT gforth: Supplying names. * LEAVE COMPILATION - ; RUN-TIME LOOP-SYS - core: Arbitrary control structures. * list-size LIST - U gforth-internal: Implementation. * LOOP COMPILATION DO-SYS - ; RUN-TIME LOOP-SYS1 - | LOOP-SYS2 core: Arbitrary control structures. ! * lp! C-ADDR - gforth <1>: Implementation. * lp! C-ADDR - gforth: Stack pointer manipulation. * lp+!# - gforth: Implementation. * lp@ - ADDR gforth: Stack pointer manipulation. --- 905,916 ---- * invert W1 - W2 core: Bitwise operations. * IS ADDR "NAME" - gforth: Simple Defining Words. * laddr# - C-ADDR gforth: Implementation. ! * lastxt - XT gforth: Tokens for Words. * lastxt - XT gforth: Supplying names. * LEAVE COMPILATION - ; RUN-TIME LOOP-SYS - core: Arbitrary control structures. * list-size LIST - U gforth-internal: Implementation. * LOOP COMPILATION DO-SYS - ; RUN-TIME LOOP-SYS1 - | LOOP-SYS2 core: Arbitrary control structures. ! * lp! C-ADDR - gforth: Implementation. * lp! C-ADDR - gforth: Stack pointer manipulation. * lp+!# - gforth: Implementation. * lp@ - ADDR gforth: Stack pointer manipulation. *************** *** 977,982 **** --- 975,982 ---- * Variable "NAME" - core: Simple Defining Words. * WHILE COMPILATION DEST - ORIG DEST ; RUN-TIME F - core: Arbitrary control structures. * xor W1 W2 - W core: Bitwise operations. + * ['] COMPILATION. "NAME" - ; RUN-TIME. - XT core: Tokens for Words. + * [COMP'] COMPILATION "NAME" - ; RUN-TIME - W XT gforth: Tokens for Words. * ~~ COMPILATION - ; RUN-TIME - gforth: Debugging.  diff -r -c gforth-0.2.0/gforth.ps gforth-0.2.1/gforth.ps *** gforth-0.2.0/gforth.ps Tue Dec 10 14:33:31 1996 --- gforth-0.2.1/gforth.ps Sat Dec 14 15:27:52 1996 *************** *** 7,13 **** %%EndComments %DVIPSCommandLine: dvips -D300 gforth.dvi -o gforth.ps %DVIPSParameters: dpi=300, compressed, comments removed ! %DVIPSSource: TeX output 1996.12.10:1433 %%BeginProcSet: texc.pro /TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N /X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72 --- 7,13 ---- %%EndComments %DVIPSCommandLine: dvips -D300 gforth.dvi -o gforth.ps %DVIPSParameters: dpi=300, compressed, comments removed ! %DVIPSSource: TeX output 1996.12.14:1527 %%BeginProcSet: texc.pro /TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N /X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72 Binary files gforth-0.2.0/kernl16b.fi and gforth-0.2.1/kernl16b.fi differ Binary files gforth-0.2.0/kernl16l.fi and gforth-0.2.1/kernl16l.fi differ Binary files gforth-0.2.0/kernl32b.fi and gforth-0.2.1/kernl32b.fi differ Binary files gforth-0.2.0/kernl32l.fi and gforth-0.2.1/kernl32l.fi differ Binary files gforth-0.2.0/kernl64b.fi and gforth-0.2.1/kernl64b.fi differ Binary files gforth-0.2.0/kernl64l.fi and gforth-0.2.1/kernl64l.fi differ diff -r -c gforth-0.2.0/main.c gforth-0.2.1/main.c *** gforth-0.2.0/main.c Mon Nov 11 17:55:22 1996 --- gforth-0.2.1/main.c Sat Dec 14 15:18:27 1996 *************** *** 40,45 **** --- 40,48 ---- jmp_buf throw_jmp_buf; #endif + /* Define FUZZ for better image positioning */ + #define FUZZ 0x4000 + #ifndef DEFAULTPATH # define DEFAULTPATH "/usr/local/lib/gforth:." #endif *************** *** 406,412 **** pend=path+strlen(path); if (strlen(path)==0) { fprintf(stderr,"%s: cannot open image file %s in path %s for reading\n", ! progname, imagename, path); exit(1); } { --- 409,415 ---- pend=path+strlen(path); if (strlen(path)==0) { fprintf(stderr,"%s: cannot open image file %s in path %s for reading\n", ! progname, imagename, path1); exit(1); } { diff -r -c gforth-0.2.0/makefile.dos gforth-0.2.1/makefile.dos *** gforth-0.2.0/makefile.dos Tue Dec 10 14:33:10 1996 --- gforth-0.2.1/makefile.dos Sat Dec 14 15:21:29 1996 *************** *** 23,30 **** # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. ! VERSION =0.2.0#gforth version ! DOSVERSION=020#gforth version SHELL = command.com RM = del RMTREE = del -rf --- 23,30 ---- # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. ! VERSION =0.2.1#gforth version ! DOSVERSION=021#gforth version SHELL = command.com RM = del RMTREE = del -rf diff -r -c gforth-0.2.0/makefile.os2 gforth-0.2.1/makefile.os2 *** gforth-0.2.0/makefile.os2 Tue Dec 10 14:33:10 1996 --- gforth-0.2.1/makefile.os2 Sat Dec 14 15:21:29 1996 *************** *** 23,30 **** # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. ! VERSION =0.2.0#gforth version ! DOSVERSION=020#gforth version SHELL = bash RM = del RMTREE = del -rf --- 23,30 ---- # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. ! VERSION =0.2.1#gforth version ! DOSVERSION=021#gforth version SHELL = bash RM = del RMTREE = del -rf