X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=f67d3927dfdb0d72cbd620aeea0f4f606901376b;hp=59a5c3d5fa7f6f11dc9e65e6b1974f59fca12770;hb=f4aa48e4c1e3b81ccbe3da5c33fdaba3a46081dd;hpb=c535b4be889716bfd37a4f0dd888f398534bc306

diff --git a/src/oberon.c b/src/oberon.c
index 59a5c3d..f67d392 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -3443,6 +3443,10 @@ oberon_case_statement(oberon_context_t * ctx)
 		oberon_assert_token(ctx, ELSE);
 		oberon_statement_seq(ctx);
 	}
+	else
+	{
+		oberon_generate_trap(ctx, -1);
+	}
 
 	oberon_generate_label(ctx, end);
 	oberon_assert_token(ctx, END);
@@ -3509,6 +3513,10 @@ oberon_with_statement(oberon_context_t * ctx)
 		oberon_assert_token(ctx, ELSE);
 		oberon_statement_seq(ctx);
 	}
+	else
+	{
+		oberon_generate_trap(ctx, -2);
+	}
 
 	oberon_generate_label(ctx, end);
 	oberon_assert_token(ctx, END);