version 1.11, 2005/12/11 20:14:37
|
version 1.14, 2006/05/25 22:10:16
|
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 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 127 also c-decl definitions
|
Line 127 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 196 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 |