Исправлено падение при использовании процедурного типа

[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 bf5200bd786daafe7cff702b2731eb2b0552343a..e897f6e98cb64913f5e58b9612ad8be3e7ef1c9c 100644 (file)
--- a/src/backends/jvm/generator-jvm.c
+++ b/src/backends/jvm/generator-jvm.c
@@ -886,6 +886,7 @@ jvm_generate_local_initialization(gen_proc_t * p, oberon_object_t * x)
                case OBERON_CLASS_VAR_PARAM:
                case OBERON_CLASS_PARAM:
                case OBERON_CLASS_VAR:
+                       jvm_generate_var(v);
                        jvm_generate_var_initialization(p, v);
                        break;
                case OBERON_CLASS_PROC:
@@ -938,7 +939,7 @@ oberon_generate_begin_proc(oberon_context_t * ctx, oberon_object_t * proc)
 
        jvm_generate_procedure_frame(proc);
 
-       /* Создание парамеров и переменных */
+       /* Создание паÑ\80амеÑ\82Ñ\80ов и пеÑ\80еменнÑ\8bÑ\85 */
        var = proc -> scope -> list -> next;
        while(var)
        {