From 7fc270e5b2a09d5c11b01c48c279c4920d427b0f Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Tue, 25 Jul 2017 21:28:01 +0300
Subject: [PATCH] =?utf8?q?JVM:=20=D0=A0=D0=B5=D0=B0=D0=BB=D0=B8=D0=B7?=
 =?utf8?q?=D0=BE=D0=B2=D0=B0=D0=BD=20=D0=B2=D1=8B=D0=B7=D0=BE=D0=B2=20?=
 =?utf8?q?=D0=BF=D1=80=D0=BE=D1=86=D0=B5=D0=B4=D1=83=D1=80-=D1=84=D1=83?=
 =?utf8?q?=D0=BD=D0=BA=D1=86=D0=B8=D0=B9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 src/backends/jvm/generator-jvm.c | 9 +++++----
 src/test.c                       | 9 ++++-----
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/backends/jvm/generator-jvm.c b/src/backends/jvm/generator-jvm.c
index 9812f0a..dc04ffe 100644
--- a/src/backends/jvm/generator-jvm.c
+++ b/src/backends/jvm/generator-jvm.c
@@ -478,12 +478,15 @@ void
 oberon_generate_return(oberon_context_t * ctx, oberon_expr_t * expr)
 {
 	gen_module_t * m;
+	char prefix;
 
 	m = ctx -> mod -> gen_mod;
 
 	if(expr)
 	{
-		oberon_error(ctx, "oberon_generate_return: TODO return expr");
+		push_expr(ctx, m -> fp, expr);
+		prefix = get_prefix(ctx, expr -> result);
+		fprintf(m -> fp, "  %creturn\n", prefix);
 	}
 	else
 	{
@@ -559,8 +562,6 @@ push_float(FILE * fp, double f, int size)
 	}
 }
 
-static void push_expr(oberon_context_t * ctx, FILE * fp, oberon_expr_t * expr);
-
 static void
 push_var(oberon_context_t * ctx, FILE * fp, oberon_object_t * var)
 {
@@ -593,7 +594,7 @@ push_item(oberon_context_t * ctx, FILE * fp, oberon_item_t * item)
 			push_int(fp, item -> boolean);
 			break;
 		case MODE_CALL:
-			oberon_error(ctx, "push_item: TODO call");
+			oberon_generate_call_proc(ctx, (oberon_expr_t *) item);
 			break;
 		case MODE_INDEX:
 			oberon_error(ctx, "push_item: TODO index");
diff --git a/src/test.c b/src/test.c
index 0c80e4b..e042f24 100644
--- a/src/test.c
+++ b/src/test.c
@@ -9,15 +9,14 @@ static char source_test[] =
 	"MODULE Test;"
 	"VAR"
 	"  x : INTEGER;"
-	"  z : BOOLEAN;"
 	""
-	"PROCEDURE Tier(x : INTEGER);"
+	"PROCEDURE Tier(x : INTEGER) : INTEGER;"
+	"BEGIN"
+	"  RETURN x * x;"
 	"END Tier;"
 	""
 	"BEGIN;"
-	"  x := x + 1;"
-	"  z := TRUE;"
-	"  Tier(666);"
+	"  x := Tier(666);"
 	"END Test."
 ;
 
-- 
2.29.2