From ee2ed2913463eecbb379e8c018006cc911d4b683 Mon Sep 17 00:00:00 2001 From: DeaDDooMER Date: Fri, 28 Jul 2017 01:07:45 +0300 Subject: [PATCH] =?utf8?q?JVM:=20=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB?= =?utf8?q?=D0=B5=D0=BD=D0=B0=20=D0=B7=D0=B0=D0=B3=D0=BB=D1=83=D1=88=D0=BA?= =?utf8?q?=D0=B0=20=D0=BD=D0=B0=20=D0=BA=D0=BE=D0=BF=D0=B8=D1=80=D0=BE?= =?utf8?q?=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5=20=D0=BC=D0=B0=D1=81=D1=81=D0=B8?= =?utf8?q?=D0=B2=D0=BE=D0=B2=20=D0=B8=D0=BB=D0=B8=20=D0=B7=D0=B0=D0=BF?= =?utf8?q?=D0=B8=D1=81=D0=B5=D0=B9?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- src/backends/jvm/generator-jvm.c | 11 +++++++++++ src/test.c | 2 +- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/src/backends/jvm/generator-jvm.c b/src/backends/jvm/generator-jvm.c index 84ebe51..1d4f970 100644 --- a/src/backends/jvm/generator-jvm.c +++ b/src/backends/jvm/generator-jvm.c @@ -997,6 +997,17 @@ store_expr(gen_proc_t * p, oberon_expr_t * dst, oberon_expr_t * src) assert(dst -> is_item); oberon_item_t * item = (oberon_item_t *) dst; + if(dst -> result -> class == OBERON_TYPE_ARRAY + || src -> result -> class == OBERON_TYPE_ARRAY) + { + gen_error("array copy not implemented"); + } + else if(dst -> result -> class == OBERON_TYPE_RECORD + || src -> result -> class == OBERON_TYPE_RECORD) + { + gen_error("record copy not implemented"); + } + switch(item -> mode) { case MODE_VAR: diff --git a/src/test.c b/src/test.c index 69cfc99..7d3ce62 100644 --- a/src/test.c +++ b/src/test.c @@ -11,7 +11,7 @@ static char source_test[] = " l : POINTER TO ARRAY 16 OF BOOLEAN;" "BEGIN" " NEW(l);" - " l[0] := l[5];" + " l^ := l^;" "END Test." ; -- 2.29.2