gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.132, 2003/02/01 14:28:06	version 1.135, 2003/03/22 10:04:07
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 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.

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

Line 63 warnings off	Line 63 warnings off
\ warnings on	\ warnings on

include ./gray.fs	include ./gray.fs
32 constant max-effect \ number of things on one side of a stack effect	128 constant max-effect \ number of things on one side of a stack effect
4 constant max-stacks \ the max. number of stacks (including inst-stream).	4 constant max-stacks \ the max. number of stacks (including inst-stream).
255 constant maxchar	255 constant maxchar
maxchar 1+ constant eof-char	maxchar 1+ constant eof-char
Line 608 wordlist constant type-names \ this is h	Line 608 wordlist constant type-names \ this is h
get-current type-names set-current	get-current type-names set-current
stack-type 2dup nextname stack-type-name	stack-type 2dup nextname stack-type-name
set-current	set-current
stack-pointer lastxt >body stack-name nextname make-stack ;	stack-pointer latestxt >body stack-name nextname make-stack ;

stack inst-stream IP Cell	stack inst-stream IP Cell
' inst-in-index inst-stream stack-in-index-xt !	' inst-in-index inst-stream stack-in-index-xt !