version 1.11, 2005/12/11 20:14:37
|
version 1.16, 2007/01/05 13:50:53
|
Line 1
|
Line 1
|
\ lib.fs shared library support package 16aug03py |
\ lib.fs shared library support package 16aug03py |
|
|
\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 64 DOES> ( x1 .. xn -- r )
|
Line 64 DOES> ( x1 .. xn -- r )
|
dup cell+ @ swap 3 cells + >r ; |
dup cell+ @ swap 3 cells + >r ; |
|
|
Variable ind-call ind-call off |
Variable ind-call ind-call off |
: fptr: ( "name" -- ) |
: fptr ( "name" -- ) |
Create here thisproc ! 0 , 0 , 0 , 0 also c-decl ind-call on |
Create here thisproc ! 0 , 0 , 0 , 0 also c-decl ind-call on |
DOES> 3 cells + >r ; |
DOES> 3 cells + >r ; |
|
|
Line 80 Variable ind-call ind-call off
|
Line 80 Variable ind-call ind-call off
|
DOES> ( -- ) dup thislib ! proc: ; |
DOES> ( -- ) dup thislib ! proc: ; |
|
|
: init-shared-libs ( -- ) |
: init-shared-libs ( -- ) |
defers 'cold libs |
defers 'cold |
0 libs BEGIN @ dup WHILE dup REPEAT drop |
0 libs BEGIN |
BEGIN dup WHILE >r |
@ dup WHILE |
r@ @lib |
dup REPEAT |
r@ 2 cells + BEGIN @ dup WHILE r@ over @proc REPEAT |
drop BEGIN |
drop rdrop |
dup WHILE |
REPEAT drop ; |
>r |
|
r@ @lib |
|
r@ 2 cells + BEGIN |
|
@ dup WHILE |
|
r@ over @proc REPEAT |
|
drop rdrop |
|
REPEAT |
|
drop ; |
|
|
' init-shared-libs IS 'cold |
' init-shared-libs IS 'cold |
|
|
Line 127 also c-decl definitions
|
Line 134 also c-decl definitions
|
' av-int ' av-int-r ' >r argtype int |
' av-int ' av-int-r ' >r argtype int |
' av-float ' av-float-r ' f>l argtype sf |
' av-float ' av-float-r ' f>l argtype sf |
' av-double ' av-double-r ' f>l argtype df |
' av-double ' av-double-r ' f>l argtype df |
' av-longlong ' av-longlong-r ' 2>r argtype llong |
' av-longlong ' av-longlong-r ' 2>r argtype dlong |
' av-ptr ' av-ptr-r ' >r argtype ptr |
' av-ptr ' av-ptr-r ' >r argtype ptr |
|
|
' av-call-void ' av-start-void rettype (void) |
' av-call-void ' av-start-void rettype (void) |
' av-call-int ' av-start-int rettype (int) |
' av-call-int ' av-start-int rettype (int) |
' av-call-float ' av-start-float rettype (sf) |
' av-call-float ' av-start-float rettype (sf) |
' av-call-double ' av-start-double rettype (fp) |
' av-call-double ' av-start-double rettype (fp) |
' av-call-longlong ' av-start-longlong rettype (llong) |
' av-call-longlong ' av-start-longlong rettype (dlong) |
' av-call-ptr ' av-start-ptr rettype (ptr) |
' av-call-ptr ' av-start-ptr rettype (ptr) |
|
|
: (addr) postpone EXIT drop symbol, previous revarg off ; |
: (addr) postpone EXIT drop symbol, previous revarg off ; |
Line 196 also cb-decl definitions
|
Line 203 also cb-decl definitions
|
' va-arg-int Alias int |
' va-arg-int Alias int |
' va-arg-float Alias sf |
' va-arg-float Alias sf |
' va-arg-double Alias df |
' va-arg-double Alias df |
' va-arg-longlong Alias llong |
' va-arg-longlong Alias dlong |
' va-arg-ptr Alias ptr |
' va-arg-ptr Alias ptr |
|
|
' va-return-void ' va-start-void va-ret (void) |
' va-return-void ' va-start-void va-ret (void) |
' va-return-int ' va-start-int va-ret (int) |
' va-return-int ' va-start-int va-ret (int) |
' va-return-float ' va-start-float va-ret (sf) |
' va-return-float ' va-start-float va-ret (sf) |
' va-return-double ' va-start-double va-ret (fp) |
' va-return-double ' va-start-double va-ret (fp) |
' va-return-longlong ' va-start-longlong va-ret (llong) |
' va-return-longlong ' va-start-longlong va-ret (dlong) |
' va-return-ptr ' va-start-ptr va-ret (ptr) |
' va-return-ptr ' va-start-ptr va-ret (ptr) |
|
|
previous definitions |
previous definitions |