[BACK]Return to oldlib.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/oldlib.fs between versions 1.4 and 1.7

version 1.4, 2005/12/31 15:46:09 version 1.7, 2007/12/31 18:40:24
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,2005 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2007 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
 \ Gforth is free software; you can redistribute it and/or  \ Gforth is free software; you can redistribute it and/or
 \ modify it under the terms of the GNU General Public License  \ modify it under the terms of the GNU General Public License
 \ as published by the Free Software Foundation; either version 2  \ as published by the Free Software Foundation, either version 3
 \ of the License, or (at your option) any later version.  \ of the License, or (at your option) any later version.
   
 \ This program is distributed in the hope that it will be useful,  \ This program is distributed in the hope that it will be useful,
Line 15 Line 15
 \ GNU General Public License for more details.  \ GNU General Public License for more details.
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ along with this program. If not, see http://www.gnu.org/licenses/.
 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.  
   
 Create icall-table  Create icall-table
     ] icall0 ;s icall1 ;s icall2 ;s icall3 ;s icall4 ;s icall5 ;s icall6 ;s      ] icall0 ;s icall1 ;s icall2 ;s icall3 ;s icall4 ;s icall5 ;s icall6 ;s
Line 42  Variable legacy  legacy off Line 41  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
Removed from v.1.4  
changed lines
  Added in v.1.7

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