gforth/oldlib.fs - diff

Return to oldlib.fs CVS log

Up to [gforth] / gforth

version 1.3, 2005/11/20 23:15:42	version 1.5, 2007/10/03 17:03:10
Line 1	Line 1
\ lib.fs shared library support package 11may97py	\ lib.fs shared library support package 11may97py

\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005 Free Software Foundation, Inc.

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

Line 42 Variable legacy legacy off	Line 42 Variable legacy legacy off
cell+ tuck 2 cells + count rot cell+ @	cell+ tuck 2 cells + count rot cell+ @
lib-sym dup 0= abort" Proc not found!" swap cell+ ! ;	lib-sym dup 0= abort" Proc not found!" swap cell+ ! ;

-1 Constant (addr)	-1 Constant <addr>
0 Constant (int)	0 Constant <int>
1 Constant (float)	1 Constant <float>
2 Constant (void)	2 Constant <void>
4 Constant (int...)	4 Constant <int...>
5 Constant (float...)	5 Constant <float...>
6 Constant (void...)	6 Constant <void...>

: proc, ( pars type lib addr -- )	: proc, ( pars type lib addr -- )
\G allocates and initializes proc stub	\G allocates and initializes proc stub