gforth/test/tester.fs - diff

Return to tester.fs CVS log

Up to [gforth] / gforth / test

version 1.3, 2007/08/12 13:13:20	version 1.4, 2007/08/12 13:24:08
Line 7	Line 7
\ VERSION 1.1	\ VERSION 1.1

\ revised by Anton Ertl 2007-08-12	\ revised by Anton Ertl 2007-08-12
\ added fp comparisons (note: BASE is HEX after loading this file)	\ Added support for separate fp stack.
\ environmental dependency on separate fp stack	\ Note: BASE is HEX after loading this file)
\ the sensitivity of the fp comparison is determined by FSENSITIVITY	\ The sensitivity of the fp comparison is determined by FSENSITIVITY;
\ added support for non-empty stack at the start	\ Note that this fvariable is present and works only if the FP
	\ stack is separate (default sensitivity: 0e, i.e., exact equality).
	\ added support for non-empty stack at {.
HEX	HEX

\ SET THE FOLLOWING FLAG TO TRUE FOR MORE VERBOSE OUTPUT; THIS MAY	\ SET THE FOLLOWING FLAG TO TRUE FOR MORE VERBOSE OUTPUT; THIS MAY
Line 45 VARIABLE ERROR-XT	Line 47 VARIABLE ERROR-XT
FALSE	FALSE
[THEN]	[THEN]
[IF] \ WE HAVE FP WORDS AND A SEPARATE FP STACK	[IF] \ WE HAVE FP WORDS AND A SEPARATE FP STACK
FVARIABLE FSENSITIVITY -1E-12 FSENSITIVITY F!	FVARIABLE FSENSITIVITY DECIMAL 0E HEX FSENSITIVITY F!
VARIABLE ACTUAL-FDEPTH	VARIABLE ACTUAL-FDEPTH
CREATE ACTUAL-FRESULTS 20 FLOATS ALLOT	CREATE ACTUAL-FRESULTS 20 FLOATS ALLOT
VARIABLE START-FDEPTH	VARIABLE START-FDEPTH