gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.161, 2006/01/27 10:43:52	version 1.163, 2006/12/31 13:39:13
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 505 defer inst-stream-f ( -- stack )	Line 505 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 ;