gforth/assert.fs - diff

Return to assert.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/assert.fs between versions 1.14 and 1.16

version 1.14, 2007/12/31 18:40:23	version 1.16, 2010/04/07 20:46:27
Line 1	Line 1
\ assertions	\ assertions

\ Copyright (C) 1995,1996,1997,1999,2002,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1999,2002,2003,2007 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 32 variable assert-level ( -- a-addr ) \ gf	Line 32 variable assert-level ( -- a-addr ) \ gf

: assert0( ( -- ) \ gforth assert-zero	: assert0( ( -- ) \ gforth assert-zero
\G Important assertions that should always be turned on.	\G Important assertions that should always be turned on.
0 assertn ; immediate	0 assertn ; immediate compile-only
: assert1( ( -- ) \ gforth assert-one	: assert1( ( -- ) \ gforth assert-one
\G Normal assertions; turned on by default.	\G Normal assertions; turned on by default.
1 assertn ; immediate	1 assertn ; immediate compile-only
: assert2( ( -- ) \ gforth assert-two	: assert2( ( -- ) \ gforth assert-two
\G Debugging assertions.	\G Debugging assertions.
2 assertn ; immediate	2 assertn ; immediate compile-only
: assert3( ( -- ) \ gforth assert-three	: assert3( ( -- ) \ gforth assert-three
\G Slow assertions that you may not want to turn on in normal debugging;	\G Slow assertions that you may not want to turn on in normal debugging;
\G you would turn them on mainly for thorough checking.	\G you would turn them on mainly for thorough checking.
3 assertn ; immediate	3 assertn ; immediate compile-only
: assert( ( -- ) \ gforth	: assert( ( -- ) \ gforth
\G Equivalent to @code{assert1(}	\G Equivalent to @code{assert1(}
POSTPONE assert1( ; immediate	POSTPONE assert1( ; immediate compile-only

: (end-assert) ( flag nfile nline -- ) \ gforth-internal	: (end-assert) ( flag nfile nline -- ) \ gforth-internal
rot if	rot if

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.14
changed lines
	Added in v.1.16