Diff for /gforth/oldlib.fs between versions 1.2 and 1.3

version 1.2, 2003/08/25 14:17:46 version 1.3, 2005/11/20 23:15:42
Line 30  Create fcall-table Line 30  Create fcall-table
 Variable libs 0 libs !  Variable libs 0 libs !
 \G links between libraries  \G links between libraries
   
   Variable legacy  legacy off
   
 : @lib ( lib -- )  : @lib ( lib -- )
     \G obtains library handle      \G obtains library handle
     cell+ dup 2 cells + count open-lib      cell+ dup 2 cells + count open-lib
Line 40  Variable libs 0 libs ! Line 42  Variable libs 0 libs !
     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)
    0 Constant (int)
    1 Constant (float)
    2 Constant (void)
    4 Constant (int...)
    5 Constant (float...)
    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
     \G stub format:      \G stub format:
Line 47  Variable libs 0 libs ! Line 57  Variable libs 0 libs !
     \G    address of proc      \G    address of proc
     \G    offset in lcall1-table to call proc      \G    offset in lcall1-table to call proc
     \G    OS name of symbol as counted string      \G    OS name of symbol as counted string
       legacy @ IF  (int) -rot  THEN
     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 sword string, @proc ;      cells 2* + , 0 , bl sword string, @proc ;
   
 -1 Constant (addr)  
  0 Constant (int)  
  1 Constant (float)  
  2 Constant (void)  
  4 Constant (int...)  
  5 Constant (float...)  
  6 Constant (void...)  
   
 : proc:  ( pars type lib "name" "string" -- )  : proc:  ( pars type lib "name" "string" -- )
     \G Creates a named proc stub      \G Creates a named proc stub
     Create proc,      Create proc,

Removed from v.1.2  
changed lines
  Added in v.1.3


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