JVM: Добавлена частичная реализация модуля Out

[dsw-obn.git] / src / backends / jvm / generator-jvm.c

diff --git a/src/backends/jvm/generator-jvm.c b/src/backends/jvm/generator-jvm.c
index f0768d8b69d5d9fda94829c343d116d44a2b0e7f..497b99ed278453c093a55685c29b1ceae6b523e4 100644 (file)
--- a/src/backends/jvm/generator-jvm.c
+++ b/src/backends/jvm/generator-jvm.c
@@ -1188,7 +1188,7 @@ jvm_generate_call_proc(gen_proc_t * p, oberon_expr_t * desig)
 void
 oberon_generate_call_proc(oberon_context_t * ctx, oberon_expr_t * desig)
 {
-       jvm_generate_call_proc(ctx -> gen_context -> current_m -> class -> p, desig);
+       jvm_generate_call_proc(ctx -> mod -> gen_mod -> class -> p, desig);
 }
 
 void