gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.133, 2003/03/08 19:52:05	version 1.136, 2003/03/22 10:15:49
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 53	Line 53

warnings off	warnings off

	\ redefinitions of kernel words not present in gforth-0.6.1
	: latestxt lastcfa @ ;
	: latest last @ ;

[IFUNDEF] try	[IFUNDEF] try
include startup.fs	include startup.fs
[THEN]	[THEN]
Line 608 wordlist constant type-names \ this is h	Line 612 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 !