X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Fbackends%2Fjvm%2Fgenerator-jvm.c;h=497b99ed278453c093a55685c29b1ceae6b523e4;hp=f0768d8b69d5d9fda94829c343d116d44a2b0e7f;hb=eaa8fd70cad0ba4e5ce8ab219d6964b47f647ec6;hpb=7bb96abf74bcb31d9a3ecb820b0b6565813bf324

diff --git a/src/backends/jvm/generator-jvm.c b/src/backends/jvm/generator-jvm.c
index f0768d8..497b99e 100644
--- 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