steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

set fortran abi in fortran-invoke macro

db4
Joe Groff 2009-02-10 16:39:24 -06:00
parent 0279270dda
commit a0421edf97
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/alien/fortran/fortran.factor
View File

@ -418,8 +418,12 @@ PRIVATE>
: RECORD: scan in get parse-definition define-fortran-record ; parsing : RECORD: scan in get parse-definition define-fortran-record ; parsing
: set-fortran-abi ( library -- )
library-fortran-abis get-global at fortran-abi set ;
: (fortran-invoke) ( return library function parameters -- quot ) : (fortran-invoke) ( return library function parameters -- quot )
{ {
[ 2drop nip set-fortran-abi ]
[ 2nip [<fortran-result>] ] [ 2nip [<fortran-result>] ]
[ nip nip nip [fortran-args>c-args] ] [ nip nip nip [fortran-args>c-args] ]
[ [fortran-invoke] ] [ [fortran-invoke] ]
@ -445,5 +449,5 @@ MACRO: fortran-invoke ( return library function parameters -- )
: LIBRARY: : LIBRARY:
scan scan
[ "c-library" set ] [ "c-library" set ]
[ library-fortran-abis get-global at fortran-abi set ] bi ; parsing [ set-fortran-abi ] bi ; parsing