gforth/test/ttester.fs - diff

Return to ttester.fs CVS log

Up to [gforth] / gforth / test

version 1.9, 2007/11/03 08:27:14	version 1.10, 2007/11/03 09:25:35
Line 180 HAS-FLOATING-STACK [IF]	Line 180 HAS-FLOATING-STACK [IF]
: F} ( ... -- ... )	: F} ( ... -- ... )
FDEPTH ACTUAL-FDEPTH @ = IF	FDEPTH ACTUAL-FDEPTH @ = IF
FDEPTH START-FDEPTH @ > IF	FDEPTH START-FDEPTH @ > IF
FDEPTH START-FDEPTH @ DO	FDEPTH START-FDEPTH @ - 0 DO
ACTUAL-FRESULTS I FLOATS + F@ FCONF= INVERT IF	ACTUAL-FRESULTS I FLOATS + F@ FCONF= INVERT IF
S" INCORRECT FP RESULT: " ERROR LEAVE	S" INCORRECT FP RESULT: " ERROR LEAVE
THEN	THEN
Line 260 HAS-FLOATING-STACK [IF]	Line 260 HAS-FLOATING-STACK [IF]
\ (ACTUAL) CONTENTS.	\ (ACTUAL) CONTENTS.
DEPTH ACTUAL-DEPTH @ = IF \ IF DEPTHS MATCH	DEPTH ACTUAL-DEPTH @ = IF \ IF DEPTHS MATCH
DEPTH START-DEPTH @ > IF \ IF THERE IS SOMETHING ON THE STACK	DEPTH START-DEPTH @ > IF \ IF THERE IS SOMETHING ON THE STACK
DEPTH START-DEPTH @ DO \ FOR EACH STACK ITEM	DEPTH START-DEPTH @ - 0 DO \ FOR EACH STACK ITEM
ACTUAL-RESULTS I CELLS + @ \ COMPARE ACTUAL WITH EXPECTED	ACTUAL-RESULTS I CELLS + @ \ COMPARE ACTUAL WITH EXPECTED
<> IF S" INCORRECT RESULT: " ERROR LEAVE THEN	<> IF S" INCORRECT RESULT: " ERROR LEAVE THEN
LOOP	LOOP