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

alien.fortran: fix stack effect of SUBROUTINE: and FUNCTION: words to include out parameters

db4
Joe Groff 2010-12-01 07:04:15 +05:30
parent f27080498d
commit 2dbfc7df33
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -427,8 +427,10 @@ MACRO: fortran-invoke ( return library function parameters -- )
{ [ 2drop nip set-fortran-abi ] [ (fortran-invoke) ] } 4 ncleave ; { [ 2drop nip set-fortran-abi ] [ (fortran-invoke) ] } 4 ncleave ;
: parse-arglist ( parameters return -- types effect ) : parse-arglist ( parameters return -- types effect )
[ 2 group unzip [ "," ?tail drop ] map ] [ 2 group
[ [ { } ] [ 1array ] if-void ] [ unzip [ "," ?tail drop ] map ]
[ [ first "!" head? ] filter [ second "," ?tail drop "'" append ] map ] bi
] [ [ { } ] [ 1array ] if-void swap append ]
bi* <effect> ; bi* <effect> ;
:: define-fortran-function ( return library function parameters -- ) :: define-fortran-function ( return library function parameters -- )