s390: exploit high-word facility for Smi Ops

src/s390/simulator-s390.cc

 // Copyright 2014 the V8 project authors. All rights reserved.
 // Use of this source code is governed by a BSD-style license that can be
 // found in the LICENSE file.
 
 #include <stdarg.h>
 #include <stdlib.h>
 #include <cmath>
 
 #if V8_TARGET_ARCH_S390
 
@@ skipping 947 matching lines @@
   EvalTable[CGFRL] = &Simulator::Evaluate_CGFRL;
   EvalTable[ECTG] = &Simulator::Evaluate_ECTG;
   EvalTable[CSST] = &Simulator::Evaluate_CSST;
   EvalTable[LPD] = &Simulator::Evaluate_LPD;
   EvalTable[LPDG] = &Simulator::Evaluate_LPDG;
   EvalTable[BRCTH] = &Simulator::Evaluate_BRCTH;
   EvalTable[AIH] = &Simulator::Evaluate_AIH;
   EvalTable[ALSIH] = &Simulator::Evaluate_ALSIH;
   EvalTable[ALSIHN] = &Simulator::Evaluate_ALSIHN;
   EvalTable[CIH] = &Simulator::Evaluate_CIH;
+  EvalTable[CLIH] = &Simulator::Evaluate_CLIH;
   EvalTable[STCK] = &Simulator::Evaluate_STCK;
   EvalTable[CFC] = &Simulator::Evaluate_CFC;
   EvalTable[IPM] = &Simulator::Evaluate_IPM;
   EvalTable[HSCH] = &Simulator::Evaluate_HSCH;
   EvalTable[MSCH] = &Simulator::Evaluate_MSCH;
   EvalTable[SSCH] = &Simulator::Evaluate_SSCH;
   EvalTable[STSCH] = &Simulator::Evaluate_STSCH;
   EvalTable[TSCH] = &Simulator::Evaluate_TSCH;
   EvalTable[TPI] = &Simulator::Evaluate_TPI;
   EvalTable[SAL] = &Simulator::Evaluate_SAL;
@@ skipping 7327 matching lines @@
   return 0;
 }
 
 EVALUATE(BRCTH) {
   UNIMPLEMENTED();
   USE(instr);
   return 0;
 }
 
 EVALUATE(AIH) {
-  UNIMPLEMENTED();
-  USE(instr);
-  return 0;
+  DCHECK_OPCODE(AIH);
+  DECODE_RIL_A_INSTRUCTION(r1, i2);
+  int32_t r1_val = get_high_register<int32_t>(r1);
+  bool isOF = CheckOverflowForIntAdd(r1_val, static_cast<int32_t>(i2), int32_t);
+  r1_val += static_cast<int32_t>(i2);
+  set_high_register(r1, r1_val);
+  SetS390ConditionCode<int32_t>(r1_val, 0);
+  SetS390OverflowCode(isOF);
+  return length;
 }
 
 EVALUATE(ALSIH) {
   UNIMPLEMENTED();
   USE(instr);
   return 0;
 }
 
 EVALUATE(ALSIHN) {
   UNIMPLEMENTED();
   USE(instr);
   return 0;
 }
 
 EVALUATE(CIH) {
-  UNIMPLEMENTED();
-  USE(instr);
-  return 0;
+  DCHECK_OPCODE(CIH);
+  DECODE_RIL_A_INSTRUCTION(r1, imm);
+  int32_t r1_val = get_high_register<int32_t>(r1);
+  SetS390ConditionCode<int32_t>(r1_val, static_cast<int32_t>(imm));
+  return length;
+}
+
+EVALUATE(CLIH) {
+  DCHECK_OPCODE(CLIH);
+  // Compare Logical with Immediate (32)
+  DECODE_RIL_A_INSTRUCTION(r1, imm);
+  SetS390ConditionCode<uint32_t>(get_high_register<uint32_t>(r1), imm);
+  return length;
 }
 
 EVALUATE(STCK) {
   UNIMPLEMENTED();
   USE(instr);
   return 0;
 }
 
 EVALUATE(CFC) {
   UNIMPLEMENTED();
@@ skipping 4383 matching lines @@
   return 0;
 }
 
 #undef EVALUATE
 
 }  // namespace internal
 }  // namespace v8
 
 #endif  // USE_SIMULATOR
 #endif  // V8_TARGET_ARCH_S390