From 9cc08bacbf56ebf49e17c8745ac6418fa4be1d0c Mon Sep 17 00:00:00 2001 From: DeaDDooMER Date: Sun, 27 Aug 2017 18:32:03 +0300 Subject: [PATCH] =?utf8?q?JVM:=20=D0=B8=D1=81=D0=BF=D1=80=D0=B0=D0=B2?= =?utf8?q?=D0=BB=D0=B5=D0=BD=D0=B0=20=D0=BB=D0=B8=D1=88=D0=BD=D1=8F=D1=8F?= =?utf8?q?=20=D0=BF=D0=B5=D1=87=D0=B0=D1=82=D1=8C=20=D0=BB=D0=BE=D0=BA?= =?utf8?q?=D0=B0=D0=BB=D1=8C=D0=BD=D1=8B=D1=85=20=D0=BF=D0=B5=D1=80=D0=B5?= =?utf8?q?=D0=BC=D0=B5=D0=BD=D0=BD=D1=8B=D1=85=20(.var)?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Test.obn | 19 ------------------- src/backends/jvm/generator-jvm-abi.c | 5 +++-- 2 files changed, 3 insertions(+), 21 deletions(-) diff --git a/Test.obn b/Test.obn index f8a3688..6fae529 100644 --- a/Test.obn +++ b/Test.obn @@ -1,22 +1,3 @@ MODULE Test; -IMPORT Out, CPMath, CPStrings; - - -VAR - s : ARRAY 80 OF CHAR; - v, m, r, f : LONGREAL; - e : LONGINT; - -BEGIN - v := CPMath.Pi(); - m := CPMath.Mantissa(v); - e := CPMath.Exponent(v); - r := CPMath.Real(m, e); - f := CPMath.Frac(v); - Out.LongReal(v, 0); Out.Ln; - Out.LongReal(m, 0); Out.Ln; - Out.Int(e, 0); Out.Ln; - Out.LongReal(r, 0); Out.Ln; - Out.LongReal(f, 0); Out.Ln; END Test. diff --git a/src/backends/jvm/generator-jvm-abi.c b/src/backends/jvm/generator-jvm-abi.c index d1e87f1..f277188 100644 --- a/src/backends/jvm/generator-jvm-abi.c +++ b/src/backends/jvm/generator-jvm-abi.c @@ -256,12 +256,13 @@ jvm_generate_var(gen_var_t * v) case JVM_STORAGE_REGISTER: case JVM_STORAGE_PARAM: case JVM_STORAGE_PARAM_VAR: - case JVM_STORAGE_FRAME: - case JVM_STORAGE_FRAME_VAR: case JVM_STORAGE_FRAME_PARAM: case JVM_STORAGE_FRAME_PARAM_VAR: jvm_generate(p, 0, 0, ".var %i is '%s' %s from start to end", reg, name, desc); break; + case JVM_STORAGE_FRAME: + case JVM_STORAGE_FRAME_VAR: + break; case JVM_STORAGE_REGISTER_VAR: jvm_generate(p, 0, 0, ".var %i is '%s' [%s from start to end", reg, name, desc); break; -- 2.29.2