X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=efa6fed9c13a02e3e3d5438a8be29c7121768970;hp=830844a16aedb87eb17d805361346d80930d0e3a;hb=757bfb90589d07922991e34a4cc36ef434c8e3bb;hpb=8e830d82ef2abb56efb2ef60e3b757c31a16ec73

diff --git a/src/oberon.c b/src/oberon.c
index 830844a..efa6fed 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -1248,7 +1248,7 @@ oberno_make_dereferencing(oberon_context_t * ctx, oberon_expr_t * expr)
 	assert(expr -> is_item);
 
 	oberon_expr_t * selector;
-	selector = oberon_new_item(MODE_DEREF, expr -> result -> base, expr -> read_only);
+	selector = oberon_new_item(MODE_DEREF, expr -> result -> base, false);
 	selector -> item.parent = (oberon_item_t *) expr;
 
 	return selector;