Changes for fixed parbox-dispose

parent e97addd7
......@@ -41,6 +41,22 @@ update-gsize#
0.4e to slide-time%
\ check if dispose damages things
[IFDEF] dispose-check
: pollfds-check ( -- )
pollfds ['] @ catch nip IF
." Dispose check failed! " up@ hex. cr
THEN ;
: net2o:dispose-check ( -- )
up@ >r
net2o-tasks $@ bounds U+DO
I @ up! pollfds-check
cell +LOOP
r> up! pollfds-check ;
' net2o:dispose-check is dispose-check
[THEN]
\ frames
0 Value pw-frame
......@@ -868,8 +884,7 @@ Variable emojis$ "👍👎🤣😍😘😛🤔😭😡😱🔃" emojis$ $! \
p-format
ELSE 2drop THEN ;
: display-posting ( addr u -- )
posting-vp >o ( dispose-childs ) childs[] $free \ !!FIXME!!
free-thumbs 0 to active-w o>
posting-vp >o dispose-childs free-thumbs 0 to active-w o>
project:branch$ $@ { d: branch }
dvcs:new-posting-log >o
>group msg-log@ 2dup { log u }
......@@ -1376,7 +1391,7 @@ wmsg-o >o msg-table @ token-table ! o>
reset-time
64#0 to last-tick last-bubble-pk $free
0 to msg-par 0 to msg-box
( msgs-box .dispose-childs ) msgs-box .childs[] $free \ !!FIXME!!
msgs-box .dispose-childs
load-msg msg-log@ { log u }
log u gen-calendar ?dup-IF msgs-box .child+ THEN
glue*lll }}glue msgs-box .child+
......
......@@ -147,10 +147,10 @@ alloc-io
Variable net2o-tasks
: net2o-pass ( params xt n task -- )
dup net2o-tasks >stack pass
dup net2o-tasks >stack pass debug-out debug-vector !
?salt-init off rng-o off \ make double sure no rng is active
alloc-io prep-socks catch-loop
1+ ?dup-IF free-io 1- ?dup-IF DoError THEN
1+ ?dup-IF free-io 1- ?dup-IF ['] DoError do-debug THEN
ELSE ~~ bflush 0 (bye) ~~ THEN ;
: net2o-task ( params xt n -- task )
stacksize4 NewTask4 dup >r net2o-pass r> ;
......
......@@ -1052,7 +1052,7 @@ edit-terminal edit-out !
: ?int ( throw-code -- throw-code ) dup -28 = IF bye THEN ;
: .loop-err ( throw xt -- )
.name dup . cr DoError cr ;
[: ." Task: " .name dup . cr DoError cr ;] do-debug ;
: catch-loop { xt -- flag }
BEGIN xt catch dup -1 = ?EXIT
......
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