[gforth] / gforth / lib.fs  

gforth: gforth/lib.fs

Diff for /gforth/lib.fs between version 1.2 and 1.4

version 1.2, Sun Dec 14 01:15:19 1997 UTC version 1.4, Tue Dec 8 22:02:46 1998 UTC
Line 1 
Line 1 
 \ lib.fs        shared library support package          11may97py  \ lib.fs        shared library support package          11may97py
   
 \ Copyright (C) 1995-1997 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 49 
Line 49 
     \G    OS name of symbol as counted string      \G    OS name of symbol as counted string
     here 2dup swap 2 cells + dup @ A, !      here 2dup swap 2 cells + dup @ A, !
     2swap  1 and  IF  fcall-table  ELSE  icall-table  THEN  swap      2swap  1 and  IF  fcall-table  ELSE  icall-table  THEN  swap
     cells 2* + , 0 , bl parse-word string, @proc ;      cells 2* + , 0 , bl sword string, @proc ;
   
 -1 Constant (addr)  -1 Constant (addr)
  0 Constant (int)   0 Constant (int)
Line 99 
Line 99 
     \G    linked list of library's procs      \G    linked list of library's procs
     \G    OS name of library as counted string      \G    OS name of library as counted string
     Create  here libs @ A, dup libs !      Create  here libs @ A, dup libs !
     0 , 0 A, bl parse-word string, @lib      0 , 0 A, bl sword string, @lib
 DOES> ( pars/ type -- )  DOES> ( pars/ type -- )
     over -1 = IF  label:      over -1 = IF  label:
     ELSE      ELSE

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help