Исправлена инициализация записей

[dsw-obn.git] / src / oberon.c

diff --git a/src/oberon.c b/src/oberon.c
index 5a93489b35ed197ee2ac10b262a95c042583d146..349015dc163318316d7ccbc8c40e964b9c78839f 100644 (file)
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -1453,7 +1453,7 @@ oberon_make_record_selector(oberon_context_t * ctx, oberon_expr_t * expr, char *
                }
        }
 
-       int read_only = 0;
+       int read_only = expr -> read_only;
        if(field -> read_only)
        {
                if(field -> module != ctx -> mod)