Добавлена конструкция CASE

[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 03b29f8ae7fed461f5fa3f452b0bdd986b5a5b93..a107efc119eca8a22afc620cbc912e8e284f86fa 100644 (file)
--- a/src/backends/jvm/generator-jvm.c
+++ b/src/backends/jvm/generator-jvm.c
@@ -1690,7 +1690,7 @@ jvm_generate_logical_or(gen_proc_t * p, oberon_expr_t * a, oberon_expr_t * b)
        /* a OR b -- если a, то TRUE, иначе b */
 
        push_expr(p, a);
-       jvm_generate(p, 1, 0, "ifne %s", label_name_calc_b);
+       jvm_generate(p, 1, 0, "ifeq %s", label_name_calc_b);
        jvm_generate(p, 0, 1, "iconst_1");
        jvm_generate(p, 0, 0, "goto %s", label_name_done);
        jvm_generate_label(p, label_calc_b);
@@ -1709,7 +1709,7 @@ jvm_generate_logical_and(gen_proc_t * p, oberon_expr_t * a, oberon_expr_t * b)
        /* a AND b -- если a, то b, иначе FALSE */
 
        push_expr(p, a);
-       jvm_generate(p, 1, 0, "ifne %s", label_name_false);
+       jvm_generate(p, 1, 0, "ifeq %s", label_name_false);
        push_expr(p, b);
        jvm_generate(p, 0, 0, "goto %s", label_name_done);
        jvm_generate_label(p, label_false);