--- gforth/fflib.fs 2003/08/17 12:21:05 1.4 +++ gforth/fflib.fs 2005/08/21 22:09:14 1.6 @@ -71,7 +71,7 @@ DOES> ( x1 .. xn -- r ) \G linked list of library's procs \G OS name of library as counted string Create here libs @ A, dup libs ! - 0 , 0 A, bl sword string, @lib + 0 , 0 A, parse-name string, @lib DOES> ( -- ) dup thislib ! proc: ; : init-shared-libs ( -- ) @@ -107,7 +107,7 @@ DOES> ( -- ) dup thislib ! proc: ; r> compile, postpone EXIT ; : symbol, ( "c-symbol" -- ) - here thisproc @ 2 cells + ! bl sword s, + here thisproc @ 2 cells + ! parse-name s, thislib @ thisproc @ @proc ; : rettype ( endxt startxt "name" -- ) @@ -208,7 +208,7 @@ library libc libc.so.6 libc sleep int (int) sleep libc open int int ptr (int) open -libc lseek int llong int (llong) lseek +libc lseek int llong int (llong) lseek64 libc read int ptr int (int) read libc close int (int) close