chore: handle context

krigga · Aug 21, 2024 · 557fe13 · 557fe13
1 parent 6ce7ff3
commit 557fe13
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/crypto/fift/lib/Asm.fif b/crypto/fift/lib/Asm.fif
@@ -1547,9 +1547,10 @@ variable asm-mode  1 asm-mode !
 variable @oldcurrent  variable @oldctx
 Fift-wordlist dup @oldcurrent ! @oldctx !
 { current@ @oldcurrent !  context@ @oldctx !  Asm definitions
-  @proccnt @ @proclist @ @procdict @ @procinfo @ @gvarcnt @ @parent-state @ current@ @oldcurrent @ @oldctx @
-  9 tuple @parent-state !
+  @proccnt @ @proclist @ @procdict @ @procinfo @ @gvarcnt @ @parent-state @ current@ @oldcurrent @ @oldctx @ @alldebugmarks @ @debugmarks @
+  11 tuple @parent-state !
   hole current!
+  @alldebugmarks null! @debugmarks null!
   0 =: main  @proclist null!  @proccnt 0!  @gvarcnt 0!
   { bl word @newproc } : NEWPROC
   { bl word dup (def?) ' drop ' @newproc cond } : DECLPROC
@@ -1622,19 +1623,20 @@ Fift-wordlist dup @oldcurrent ! @oldctx !
     drop swap 2dup @procinfo@ @chkprocdef (forget)
   } while
   drop @proclist null! @procinfo null! @proccnt 0!
+  @alldebugmarks dup @ swap null!
   @procdict dup @ swap null!
   @parent-state @ dup null? { drop } {
-    9 untuple
-    @oldctx ! @oldcurrent ! current! @parent-state ! @gvarcnt ! @procinfo ! @procdict ! @proclist ! @proccnt !
+    11 untuple
+    @debugmarks ! @alldebugmarks ! @oldctx ! @oldcurrent ! current! @parent-state ! @gvarcnt ! @procinfo ! @procdict ! @proclist ! @proccnt !
   } cond
   @oldctx @ context!  @oldcurrent @ current!
 } : }END
 forget @proclist  forget @proccnt
 { }END <{ SETCP0 swap @procdictkeylen DICTPUSHCONST DICTIGETJMPZ 11 THROWARG }> } : }END>
-{ }END> b> } : }END>c
-{ }END>c <s } : }END>s
+{ }END> b> swap drop } : }END>c
+{ }END>c <s swap drop } : }END>s
 
-{ }END>c @alldebugmarks @ } : }END>cd
+{ }END> b> swap } : }END>cd
 
 0 constant recv_internal
 -1 constant recv_external