Commit cff93f16 authored by bernd's avatar bernd

Free stacks when task terminates

parent f5cf8637
......@@ -541,6 +541,23 @@ Defer init-reply
: free-statbuf ( -- )
statbuf file-stat freez 0 to statbuf ;
User string-stack
User object-stack
User t-stack
User nest-stack
: stacks-off ( -- )
string-stack off
object-stack off
t-stack off
nest-stack off ;
: stacks-$off ( -- )
string-stack $off
object-stack $off
t-stack $off
nest-stack $off ;
: alloc-io ( -- ) \ allocate IO and reset generic user variables
-other ind-addr off reqmask off
alloc-buf to inbuf alloc-buf to outbuf
......@@ -550,7 +567,8 @@ Defer init-reply
sockaddr_in %size alloz to sockaddr1
$400 allocate throw to aligned$
init-statbuf
init-ed25519 c:init ;
init-ed25519 c:init
stacks-off ;
: free-io ( -- )
free-ed25519 c:free
......@@ -561,24 +579,14 @@ Defer init-reply
init0buf maxdata 2/ mykey-salt# + $10 + freez
cmd0buf maxdata freez
inbuf free-buf
outbuf free-buf ;
outbuf free-buf
stacks-$off ;
alloc-io
User string-stack
User object-stack
User t-stack
User nest-stack
: stacks-off ( -- )
string-stack off
object-stack off
t-stack off
nest-stack off ;
: net2o-pass ( params xt n task ) pass
b-out op-vector @ debug-vector !
init-reply prep-socks alloc-io stacks-off catch free-io
init-reply prep-socks alloc-io catch free-io
?dup-IF DoError THEN ;
: net2o-task ( params xt n -- task )
stacksize4 NewTask4 dup >r net2o-pass r> ;
......
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