2004-09-24 Zoltan Varga <vargaz@freemail.hu>

[mono.git] / mono / mini / mini-s390.c

diff --git a/mono/mini/mini-s390.c b/mono/mini/mini-s390.c
index 86d84c6a3583a7626282b933daf9cd24e90be652..5da1af2e8920bac83bdb89da3557c40cb737e3b7 100644 (file)
--- a/mono/mini/mini-s390.c
+++ b/mono/mini/mini-s390.c
@@ -3358,6 +3358,7 @@ guint8 cond;
                        s390_alcr (code, ins->dreg, ins->sreg2);
                }
                        break;
+               case OP_ADDCC_IMM:
                case OP_ADD_IMM: {
                        if ((ins->next) &&
                            (ins->next->opcode == OP_ADC_IMM)) {
@@ -3460,6 +3461,7 @@ guint8 cond;
                        s390_slbr (code, ins->dreg, ins->sreg2);
                }
                        break;
+               case OP_SUBCC_IMM:
                case OP_SUB_IMM: {
                        if (s390_is_imm16 (-ins->inst_imm)) {
                                if (ins->dreg != ins->sreg1) {
@@ -3895,7 +3897,7 @@ guint8 cond;
                        s390_basr (code, s390_r13, 0);
                        s390_j    (code, 4);
                        s390_word (code, cfg->sig_cookie);
-                       s390_l    (code, ins->sreg1, 0, s390_r13, 4);
+                       s390_mvc  (code, 4, ins->sreg1, 0, s390_r13, 4);
                }
                        break;
                case OP_FCALL: {
@@ -5238,4 +5240,4 @@ MonoInst* mono_arch_get_domain_intrinsic (MonoCompile* cfg)
 MonoInst* mono_arch_get_thread_intrinsic (MonoCompile* cfg)
 {
        return NULL;
-}
\ No newline at end of file
+}