Consider OP_FORK a nonlocal goto so that no variables are undefined

when it happens (the saved environment has to be complete for the forked
task).

1 files changed, 6 insertions, 1 deletions

diff --git a/code_gen.c b/code_gen.c
index 3ae5275..163a0f5 100644
--- a/code_gen.c
+++ b/code_gen.c
@@ -1187,7 +1187,7 @@ stmt_to_code(Stmt * stmt, GState * gstate)
     bbd[n_bbd++] = 0;
     bbd[n_bbd++] = state.num_bytes;
     for (fixup = state.fixups, fix_i = 0; fix_i < state.num_fixups; ++fix_i, ++fixup)
-	if (fixup->kind == FIXUP_LABEL)
+	if (fixup->kind == FIXUP_LABEL || fixup->kind == FIXUP_FORK)
 	    bbd[n_bbd++] = fixup->pc;
     qsort(bbd, n_bbd, sizeof(*bbd), bbd_cmp);
 
@@ -1334,6 +1334,11 @@ char rcsid_code_gen[] = "$Id$";
 
 /* 
  * $Log$
+ * Revision 1.8  1999/08/12 05:40:09  bjj
+ * Consider OP_FORK a nonlocal goto so that no variables are undefined
+ * when it happens (the saved environment has to be complete for the forked
+ * task).
+ *
  * Revision 1.7  1999/08/11 07:51:03  bjj
  * Fix problem with last checkin which prevented compiling without B_R_R, duh.
  *