error handling

parent f27aa86d
Pipeline #1297 passed with stage
in 15 minutes and 41 seconds
......@@ -168,11 +168,11 @@ Semaphore opus-block-sem
: opus-block-task ( -- )
stacksize4 NewTask4 to opus-task
opus-task activate debug-out debug-vector !
opus-task activate debug-out debug-vector ! nothrow
[: BEGIN
1-opus-block
opus-blocks $[]# 4 >= IF stop THEN
read-opus $@len 0= UNTIL ;] catch DoError
read-opus $@len 0= UNTIL ;] catch ?dup-IF DoError THEN
0 to opus-task ;
: read-opus-buf ( -- buf )
......
......@@ -147,7 +147,7 @@ Variable def-output$
: pulse-init ( -- )
stacksize4 NewTask4 to pa-task
pa-task activate debug-out debug-vector !
pa-task activate debug-out debug-vector ! nothrow
[: pa_mainloop_new to pa-ml
pa-ml pa_mainloop_get_api to pa-api
pa-api app-name $@ pa_context_new to pa-ctx
......@@ -163,7 +163,7 @@ Variable def-output$
dup pa_operation_get_state
PA_OPERATION_RUNNING = IF >request ELSE drop THEN
LOOP
AGAIN ;] catch DoError ;
AGAIN ;] catch ?dup-IF DoError THEN ;
event: :>exec ( xt -- ) execute ;
event: :>execq ( xt -- ) dup >r execute r> >addr free throw ;
......
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