gforth/test/ttester.fs - diff

Return to ttester.fs CVS log

Up to [gforth] / gforth / test

version 1.2, 2007/08/21 09:22:28	version 1.3, 2007/08/22 06:34:52
Line 227 HAS-FLOATING-STACK [IF]	Line 227 HAS-FLOATING-STACK [IF]
: F} ;	: F} ;
: F...}T ;	: F...}T ;

	DECIMAL
: COMPUTE-CELLS-PER-FP ( -- U )	: COMPUTE-CELLS-PER-FP ( -- U )
DEPTH 0E DEPTH >R FDROP R> SWAP - ;	DEPTH 0E DEPTH 1- >R FDROP R> SWAP - ;
	HEX

COMPUTE-CELLS-PER-FP CONSTANT CELLS-PER-FP	COMPUTE-CELLS-PER-FP CONSTANT CELLS-PER-FP

Line 260 HAS-FLOATING-STACK [IF]	Line 262 HAS-FLOATING-STACK [IF]
' ERROR1 ERROR-XT !	' ERROR1 ERROR-XT !

: T{ \ ( -- ) SYNTACTIC SUGAR.	: T{ \ ( -- ) SYNTACTIC SUGAR.
DEPTH START-DEPTH ! F{ ;	DEPTH START-DEPTH ! 0 XCURSOR ! F{ ;

: -> \ ( ... -- ) RECORD DEPTH AND CONTENT OF STACK.	: -> \ ( ... -- ) RECORD DEPTH AND CONTENT OF STACK.
DEPTH DUP ACTUAL-DEPTH ! \ RECORD DEPTH	DEPTH DUP ACTUAL-DEPTH ! \ RECORD DEPTH