Добавлена конструкция LOOP/EXIT

[dsw-obn.git] / src / oberon-internals.h

diff --git a/src/oberon-internals.h b/src/oberon-internals.h
index f0a6bed23e96fa8ec6b70d9cafc3a133713485ba..7a776d695502bec8b53225c031e31f808d207841 100644 (file)
--- a/src/oberon-internals.h
+++ b/src/oberon-internals.h
@@ -30,6 +30,8 @@ struct oberon_scope_t
        int local;
        oberon_object_t * parent;
        oberon_type_t * parent_type;
+
+       gen_label_t * exit_label;
 };
 
 enum oberon_type_kind