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.165, 2007/02/23 22:33:21
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 138 $12340000 immarg !	Line 138 $12340000 immarg !
over - type cr	over - type cr
line-start @ rawinput @ over - typewhite ." ^" cr ;	line-start @ rawinput @ over - typewhite ." ^" cr ;

	: print-error { addr u -- }
	filename 2@ type ." :" line @ 0 .r ." : " addr u type cr
	print-error-line ;

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