gforth/assert.fs - diff

Return to assert.fs CVS log

Up to [gforth] / gforth

version 1.5, 1995/11/07 18:06:32	version 1.7, 1998/12/08 22:02:35
Line 1	Line 1
\ assertions	\ assertions

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.

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

Line 51 variable assert-level ( -- a-addr ) \ gf	Line 51 variable assert-level ( -- a-addr ) \ gf
: (endassert) ( flag -- ) \ gforth-internal	: (endassert) ( flag -- ) \ gforth-internal
\ inline argument sourcepos	\ inline argument sourcepos
if	if
r> sourcepos drop + >r EXIT	r> sourcepos %size + >r EXIT
else	else
r> print-sourcepos ." : failed assertion"	r> print-sourcepos ." : failed assertion"
true abort" assertion failed" \ !! or use a new throw code?	true abort" assertion failed" \ !! or use a new throw code?