Take care of sh$ in multithreading

parent 71ae90d4
......@@ -36,4 +36,8 @@ User sh$ cell uallot drop
:noname '`' parse sh-get ;
:noname '`' parse postpone SLiteral postpone sh-get ;
interpret/compile: s` ( "eval-string" -- addr u )
\ No newline at end of file
interpret/compile: s` ( "eval-string" -- addr u )
[IFDEF] thread-init
:noname defers thread-init #0. sh$ 2! ; is thread-init
[THEN]
......@@ -193,6 +193,7 @@ IS kill-task
Defer thread-init
:noname ( -- )
rp@ cell+ backtrace-rp0 ! tmp$[] off ofile off tfile off
[IFDEF] sh$ #0. sh$ 2! [THEN]
current-input off create-input ; IS thread-init
: newtask4 ( dsize rsize fsize lsize -- task )
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment