alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Allow more posix params.

Browse Source
This commit is contained in:
Brad Nelson
2022-04-19 22:08:32 -07:00
parent 7426ce9b04
commit 12f80aec2b
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
posix/posix.fs
View File

@ -21,8 +21,9 @@ vocabulary posix posix definitions
: dlopen ( z n -- a ) 'dlopen [ internals ] call2 [ posix ] ; : dlopen ( z n -- a ) 'dlopen [ internals ] call2 [ posix ] ;
create calls create calls
internals internals
' call0 , ' call1 , ' call2 , ' call3 , ' call4 , ' call5 , ' call0 , ' call1 , ' call2 , ' call3 , ' call4 ,
' call6 , ' call7 , ' call8 , ' call9 , ' call10 , ' call5 , ' call6 , ' call7 , ' call8 , ' call9 ,
' call10 , ' call11 , ' call12 , ' call13 , ' call14 , ' call15 ,
posix posix
: sofunc ( z n a "name" -- ) : sofunc ( z n a "name" -- )
swap >r swap dlsym dup 0= throw create , r> cells calls + @ , swap >r swap dlsym dup 0= throw create , r> cells calls + @ ,