gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/prims2x.fs between versions 1.161 and 1.165

version 1.161, 2006/01/27 10:43:52	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 ;

Line 505 defer inst-stream-f ( -- stack )	Line 503 defer inst-stream-f ( -- stack )
." vm_two"	." vm_two"
r@ item-stack-type-name type ." 2"	r@ item-stack-type-name type ." 2"
r@ item-type @ print-type-prefix ." ("	r@ item-type @ print-type-prefix ." ("
r@ item-in-index r@ item-stack @ 2dup ." (Cell)" stack-read	r@ item-in-index r@ item-stack @ 2dup stack-read
." , " -1 under+ ." (Cell)" stack-read	." , " -1 under+ stack-read
." , " r@ item-name 2@ type	." , " r@ item-name 2@ type
." )" cr	." )" cr
rdrop ;	rdrop ;

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

Removed from v.1.161
changed lines
	Added in v.1.165