gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.162, 2006/10/25 22:01:16	version 1.164, 2007/02/18 18:30:51
Line 1	Line 1
\ converts primitives to, e.g., C code	\ converts primitives to, e.g., C code

\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006 Free Software Foundation, Inc.

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

Line 140 $12340000 immarg !	Line 140 $12340000 immarg !

: ?print-error { f addr u -- }	: ?print-error { f addr u -- }
f ?not? if	f ?not? if
outfile-id >r try	stderr >outfile
stderr to outfile-id	filename 2@ type ." :" line @ 0 .r ." : " addr u type cr
filename 2@ type ." :" line @ 0 .r ." : " addr u type cr	print-error-line
print-error-line	outfile<
0
recover endtry
r> to outfile-id throw
1 (bye) \ abort	1 (bye) \ abort
endif ;	endif ;