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

Clean up include, autoboot, split windows, shorten start.

Browse Source 
Drop startup timeout to 100ms.
Clean up exceptions in include.
Cleanup stack in autoboot.
Split out windows into a second string, to work around overflow issue.
This commit is contained in:
Brad Nelson
2023-01-22 16:44:42 -08:00
parent 40400b873e
commit 9ef1ea9f90
7 changed files with 48 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
posix/posix.fs
View File

@ -26,11 +26,11 @@ internals
' call10 , ' call11 , ' call12 , ' call13 , ' call14 , ' call15 ,
posix
: sofunc ( z n a "name" -- )
swap >r swap dlsym dup 0= throw create , r> cells calls + @ ,
swap >r swap dlsym dup 0= -38 and throw create , r> cells calls + @ ,
does> dup @ swap cell+ @ execute ;
: sysfunc ( z n "name" -- ) 0 sofunc ;
: shared-library ( z "name" -- )
RTLD_NOW dlopen dup 0= throw create , does> @ sofunc ;
RTLD_NOW dlopen dup 0= -38 and throw create , does> @ sofunc ;
: sign-extend ( n -- n ) >r rp@ sl@ rdrop ;
( Major Syscalls )