target-alpha/translate.c

   1 /*
   2  *  Alpha emulation cpu translation for qemu.
   3  *
   4  *  Copyright (c) 2007 Jocelyn Mayer
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 #include "cpu.h"
  21 #include "disas/disas.h"
  22 #include "qemu/host-utils.h"
  23 #include "tcg-op.h"
  24
  25 #include "helper.h"
  26 #define GEN_HELPER 1
  27 #include "helper.h"
  28
  29 #undef ALPHA_DEBUG_DISAS
  30 #define CONFIG_SOFTFLOAT_INLINE
  31
  32 #ifdef ALPHA_DEBUG_DISAS
  33 #  define LOG_DISAS(...) qemu_log_mask(CPU_LOG_TB_IN_ASM, ## __VA_ARGS__)
  34 #else
  35 #  define LOG_DISAS(...) do { } while (0)
  36 #endif
  37
  38 typedef struct DisasContext DisasContext;
  39 struct DisasContext {
  40     struct TranslationBlock *tb;
  41     CPUAlphaState *env;
  42     uint64_t pc;
  43     int mem_idx;
  44
  45     /* Current rounding mode for this TB.  */
  46     int tb_rm;
  47     /* Current flush-to-zero setting for this TB.  */
  48     int tb_ftz;
  49 };
  50
  51 /* Return values from translate_one, indicating the state of the TB.
  52    Note that zero indicates that we are not exiting the TB.  */
  53
  54 typedef enum {
  55     NO_EXIT,
  56
  57     /* We have emitted one or more goto_tb.  No fixup required.  */
  58     EXIT_GOTO_TB,
  59
  60     /* We are not using a goto_tb (for whatever reason), but have updated
  61        the PC (for whatever reason), so there's no need to do it again on
  62        exiting the TB.  */
  63     EXIT_PC_UPDATED,
  64
  65     /* We are exiting the TB, but have neither emitted a goto_tb, nor
  66        updated the PC for the next instruction to be executed.  */
  67     EXIT_PC_STALE,
  68
  69     /* We are ending the TB with a noreturn function call, e.g. longjmp.
  70        No following code will be executed.  */
  71     EXIT_NORETURN,
  72 } ExitStatus;
  73
  74 /* global register indexes */
  75 static TCGv_ptr cpu_env;
  76 static TCGv cpu_ir[31];
  77 static TCGv cpu_fir[31];
  78 static TCGv cpu_pc;
  79 static TCGv cpu_lock_addr;
  80 static TCGv cpu_lock_st_addr;
  81 static TCGv cpu_lock_value;
  82 static TCGv cpu_unique;
  83 #ifndef CONFIG_USER_ONLY
  84 static TCGv cpu_sysval;
  85 static TCGv cpu_usp;
  86 #endif
  87
  88 /* register names */
  89 static char cpu_reg_names[10*4+21*5 + 10*5+21*6];
  90
  91 #include "exec/gen-icount.h"
  92
  93 void alpha_translate_init(void)
  94 {
  95     int i;
  96     char *p;
  97     static int done_init = 0;
  98
  99     if (done_init)
 100         return;
 101
 102     cpu_env = tcg_global_reg_new_ptr(TCG_AREG0, "env");
 103
 104     p = cpu_reg_names;
 105     for (i = 0; i < 31; i++) {
 106         sprintf(p, "ir%d", i);
 107         cpu_ir[i] = tcg_global_mem_new_i64(TCG_AREG0,
 108                                            offsetof(CPUAlphaState, ir[i]), p);
 109         p += (i < 10) ? 4 : 5;
 110
 111         sprintf(p, "fir%d", i);
 112         cpu_fir[i] = tcg_global_mem_new_i64(TCG_AREG0,
 113                                             offsetof(CPUAlphaState, fir[i]), p);
 114         p += (i < 10) ? 5 : 6;
 115     }
 116
 117     cpu_pc = tcg_global_mem_new_i64(TCG_AREG0,
 118                                     offsetof(CPUAlphaState, pc), "pc");
 119
 120     cpu_lock_addr = tcg_global_mem_new_i64(TCG_AREG0,
 121                                            offsetof(CPUAlphaState, lock_addr),
 122                                            "lock_addr");
 123     cpu_lock_st_addr = tcg_global_mem_new_i64(TCG_AREG0,
 124                                               offsetof(CPUAlphaState, lock_st_addr),
 125                                               "lock_st_addr");
 126     cpu_lock_value = tcg_global_mem_new_i64(TCG_AREG0,
 127                                             offsetof(CPUAlphaState, lock_value),
 128                                             "lock_value");
 129
 130     cpu_unique = tcg_global_mem_new_i64(TCG_AREG0,
 131                                         offsetof(CPUAlphaState, unique), "unique");
 132 #ifndef CONFIG_USER_ONLY
 133     cpu_sysval = tcg_global_mem_new_i64(TCG_AREG0,
 134                                         offsetof(CPUAlphaState, sysval), "sysval");
 135     cpu_usp = tcg_global_mem_new_i64(TCG_AREG0,
 136                                      offsetof(CPUAlphaState, usp), "usp");
 137 #endif
 138
 139     /* register helpers */
 140 #define GEN_HELPER 2
 141 #include "helper.h"
 142
 143     done_init = 1;
 144 }
 145
 146 static void gen_excp_1(int exception, int error_code)
 147 {
 148     TCGv_i32 tmp1, tmp2;
 149
 150     tmp1 = tcg_const_i32(exception);
 151     tmp2 = tcg_const_i32(error_code);
 152     gen_helper_excp(cpu_env, tmp1, tmp2);
 153     tcg_temp_free_i32(tmp2);
 154     tcg_temp_free_i32(tmp1);
 155 }
 156
 157 static ExitStatus gen_excp(DisasContext *ctx, int exception, int error_code)
 158 {
 159     tcg_gen_movi_i64(cpu_pc, ctx->pc);
 160     gen_excp_1(exception, error_code);
 161     return EXIT_NORETURN;
 162 }
 163
 164 static inline ExitStatus gen_invalid(DisasContext *ctx)
 165 {
 166     return gen_excp(ctx, EXCP_OPCDEC, 0);
 167 }
 168
 169 static inline void gen_qemu_ldf(TCGv t0, TCGv t1, int flags)
 170 {
 171     TCGv tmp = tcg_temp_new();
 172     TCGv_i32 tmp32 = tcg_temp_new_i32();
 173     tcg_gen_qemu_ld32u(tmp, t1, flags);
 174     tcg_gen_trunc_i64_i32(tmp32, tmp);
 175     gen_helper_memory_to_f(t0, tmp32);
 176     tcg_temp_free_i32(tmp32);
 177     tcg_temp_free(tmp);
 178 }
 179
 180 static inline void gen_qemu_ldg(TCGv t0, TCGv t1, int flags)
 181 {
 182     TCGv tmp = tcg_temp_new();
 183     tcg_gen_qemu_ld64(tmp, t1, flags);
 184     gen_helper_memory_to_g(t0, tmp);
 185     tcg_temp_free(tmp);
 186 }
 187
 188 static inline void gen_qemu_lds(TCGv t0, TCGv t1, int flags)
 189 {
 190     TCGv tmp = tcg_temp_new();
 191     TCGv_i32 tmp32 = tcg_temp_new_i32();
 192     tcg_gen_qemu_ld32u(tmp, t1, flags);
 193     tcg_gen_trunc_i64_i32(tmp32, tmp);
 194     gen_helper_memory_to_s(t0, tmp32);
 195     tcg_temp_free_i32(tmp32);
 196     tcg_temp_free(tmp);
 197 }
 198
 199 static inline void gen_qemu_ldl_l(TCGv t0, TCGv t1, int flags)
 200 {
 201     tcg_gen_qemu_ld32s(t0, t1, flags);
 202     tcg_gen_mov_i64(cpu_lock_addr, t1);
 203     tcg_gen_mov_i64(cpu_lock_value, t0);
 204 }
 205
 206 static inline void gen_qemu_ldq_l(TCGv t0, TCGv t1, int flags)
 207 {
 208     tcg_gen_qemu_ld64(t0, t1, flags);
 209     tcg_gen_mov_i64(cpu_lock_addr, t1);
 210     tcg_gen_mov_i64(cpu_lock_value, t0);
 211 }
 212
 213 static inline void gen_load_mem(DisasContext *ctx,
 214                                 void (*tcg_gen_qemu_load)(TCGv t0, TCGv t1,
 215                                                           int flags),
 216                                 int ra, int rb, int32_t disp16, int fp,
 217                                 int clear)
 218 {
 219     TCGv addr, va;
 220
 221     /* LDQ_U with ra $31 is UNOP.  Other various loads are forms of
 222        prefetches, which we can treat as nops.  No worries about
 223        missed exceptions here.  */
 224     if (unlikely(ra == 31)) {
 225         return;
 226     }
 227
 228     addr = tcg_temp_new();
 229     if (rb != 31) {
 230         tcg_gen_addi_i64(addr, cpu_ir[rb], disp16);
 231         if (clear) {
 232             tcg_gen_andi_i64(addr, addr, ~0x7);
 233         }
 234     } else {
 235         if (clear) {
 236             disp16 &= ~0x7;
 237         }
 238         tcg_gen_movi_i64(addr, disp16);
 239     }
 240
 241     va = (fp ? cpu_fir[ra] : cpu_ir[ra]);
 242     tcg_gen_qemu_load(va, addr, ctx->mem_idx);
 243
 244     tcg_temp_free(addr);
 245 }
 246
 247 static inline void gen_qemu_stf(TCGv t0, TCGv t1, int flags)
 248 {
 249     TCGv_i32 tmp32 = tcg_temp_new_i32();
 250     TCGv tmp = tcg_temp_new();
 251     gen_helper_f_to_memory(tmp32, t0);
 252     tcg_gen_extu_i32_i64(tmp, tmp32);
 253     tcg_gen_qemu_st32(tmp, t1, flags);
 254     tcg_temp_free(tmp);
 255     tcg_temp_free_i32(tmp32);
 256 }
 257
 258 static inline void gen_qemu_stg(TCGv t0, TCGv t1, int flags)
 259 {
 260     TCGv tmp = tcg_temp_new();
 261     gen_helper_g_to_memory(tmp, t0);
 262     tcg_gen_qemu_st64(tmp, t1, flags);
 263     tcg_temp_free(tmp);
 264 }
 265
 266 static inline void gen_qemu_sts(TCGv t0, TCGv t1, int flags)
 267 {
 268     TCGv_i32 tmp32 = tcg_temp_new_i32();
 269     TCGv tmp = tcg_temp_new();
 270     gen_helper_s_to_memory(tmp32, t0);
 271     tcg_gen_extu_i32_i64(tmp, tmp32);
 272     tcg_gen_qemu_st32(tmp, t1, flags);
 273     tcg_temp_free(tmp);
 274     tcg_temp_free_i32(tmp32);
 275 }
 276
 277 static inline void gen_store_mem(DisasContext *ctx,
 278                                  void (*tcg_gen_qemu_store)(TCGv t0, TCGv t1,
 279                                                             int flags),
 280                                  int ra, int rb, int32_t disp16, int fp,
 281                                  int clear)
 282 {
 283     TCGv addr, va;
 284
 285     addr = tcg_temp_new();
 286     if (rb != 31) {
 287         tcg_gen_addi_i64(addr, cpu_ir[rb], disp16);
 288         if (clear) {
 289             tcg_gen_andi_i64(addr, addr, ~0x7);
 290         }
 291     } else {
 292         if (clear) {
 293             disp16 &= ~0x7;
 294         }
 295         tcg_gen_movi_i64(addr, disp16);
 296     }
 297
 298     if (ra == 31) {
 299         va = tcg_const_i64(0);
 300     } else {
 301         va = (fp ? cpu_fir[ra] : cpu_ir[ra]);
 302     }
 303     tcg_gen_qemu_store(va, addr, ctx->mem_idx);
 304
 305     tcg_temp_free(addr);
 306     if (ra == 31) {
 307         tcg_temp_free(va);
 308     }
 309 }
 310
 311 static ExitStatus gen_store_conditional(DisasContext *ctx, int ra, int rb,
 312                                         int32_t disp16, int quad)
 313 {
 314     TCGv addr;
 315
 316     if (ra == 31) {
 317         /* ??? Don't bother storing anything.  The user can't tell
 318            the difference, since the zero register always reads zero.  */
 319         return NO_EXIT;
 320     }
 321
 322 #if defined(CONFIG_USER_ONLY)
 323     addr = cpu_lock_st_addr;
 324 #else
 325     addr = tcg_temp_local_new();
 326 #endif
 327
 328     if (rb != 31) {
 329         tcg_gen_addi_i64(addr, cpu_ir[rb], disp16);
 330     } else {
 331         tcg_gen_movi_i64(addr, disp16);
 332     }
 333
 334 #if defined(CONFIG_USER_ONLY)
 335     /* ??? This is handled via a complicated version of compare-and-swap
 336        in the cpu_loop.  Hopefully one day we'll have a real CAS opcode
 337        in TCG so that this isn't necessary.  */
 338     return gen_excp(ctx, quad ? EXCP_STQ_C : EXCP_STL_C, ra);
 339 #else
 340     /* ??? In system mode we are never multi-threaded, so CAS can be
 341        implemented via a non-atomic load-compare-store sequence.  */
 342     {
 343         int lab_fail, lab_done;
 344         TCGv val;
 345
 346         lab_fail = gen_new_label();
 347         lab_done = gen_new_label();
 348         tcg_gen_brcond_i64(TCG_COND_NE, addr, cpu_lock_addr, lab_fail);
 349
 350         val = tcg_temp_new();
 351         if (quad) {
 352             tcg_gen_qemu_ld64(val, addr, ctx->mem_idx);
 353         } else {
 354             tcg_gen_qemu_ld32s(val, addr, ctx->mem_idx);
 355         }
 356         tcg_gen_brcond_i64(TCG_COND_NE, val, cpu_lock_value, lab_fail);
 357
 358         if (quad) {
 359             tcg_gen_qemu_st64(cpu_ir[ra], addr, ctx->mem_idx);
 360         } else {
 361             tcg_gen_qemu_st32(cpu_ir[ra], addr, ctx->mem_idx);
 362         }
 363         tcg_gen_movi_i64(cpu_ir[ra], 1);
 364         tcg_gen_br(lab_done);
 365
 366         gen_set_label(lab_fail);
 367         tcg_gen_movi_i64(cpu_ir[ra], 0);
 368
 369         gen_set_label(lab_done);
 370         tcg_gen_movi_i64(cpu_lock_addr, -1);
 371
 372         tcg_temp_free(addr);
 373         return NO_EXIT;
 374     }
 375 #endif
 376 }
 377
 378 static int use_goto_tb(DisasContext *ctx, uint64_t dest)
 379 {
 380     /* Check for the dest on the same page as the start of the TB.  We
 381        also want to suppress goto_tb in the case of single-steping and IO.  */
 382     return (((ctx->tb->pc ^ dest) & TARGET_PAGE_MASK) == 0
 383             && !ctx->env->singlestep_enabled
 384             && !(ctx->tb->cflags & CF_LAST_IO));
 385 }
 386
 387 static ExitStatus gen_bdirect(DisasContext *ctx, int ra, int32_t disp)
 388 {
 389     uint64_t dest = ctx->pc + (disp << 2);
 390
 391     if (ra != 31) {
 392         tcg_gen_movi_i64(cpu_ir[ra], ctx->pc);
 393     }
 394
 395     /* Notice branch-to-next; used to initialize RA with the PC.  */
 396     if (disp == 0) {
 397         return 0;
 398     } else if (use_goto_tb(ctx, dest)) {
 399         tcg_gen_goto_tb(0);
 400         tcg_gen_movi_i64(cpu_pc, dest);
 401         tcg_gen_exit_tb((tcg_target_long)ctx->tb);
 402         return EXIT_GOTO_TB;
 403     } else {
 404         tcg_gen_movi_i64(cpu_pc, dest);
 405         return EXIT_PC_UPDATED;
 406     }
 407 }
 408
 409 static ExitStatus gen_bcond_internal(DisasContext *ctx, TCGCond cond,
 410                                      TCGv cmp, int32_t disp)
 411 {
 412     uint64_t dest = ctx->pc + (disp << 2);
 413     int lab_true = gen_new_label();
 414
 415     if (use_goto_tb(ctx, dest)) {
 416         tcg_gen_brcondi_i64(cond, cmp, 0, lab_true);
 417
 418         tcg_gen_goto_tb(0);
 419         tcg_gen_movi_i64(cpu_pc, ctx->pc);
 420         tcg_gen_exit_tb((tcg_target_long)ctx->tb);
 421
 422         gen_set_label(lab_true);
 423         tcg_gen_goto_tb(1);
 424         tcg_gen_movi_i64(cpu_pc, dest);
 425         tcg_gen_exit_tb((tcg_target_long)ctx->tb + 1);
 426
 427         return EXIT_GOTO_TB;
 428     } else {
 429         TCGv_i64 z = tcg_const_i64(0);
 430         TCGv_i64 d = tcg_const_i64(dest);
 431         TCGv_i64 p = tcg_const_i64(ctx->pc);
 432
 433         tcg_gen_movcond_i64(cond, cpu_pc, cmp, z, d, p);
 434
 435         tcg_temp_free_i64(z);
 436         tcg_temp_free_i64(d);
 437         tcg_temp_free_i64(p);
 438         return EXIT_PC_UPDATED;
 439     }
 440 }
 441
 442 static ExitStatus gen_bcond(DisasContext *ctx, TCGCond cond, int ra,
 443                             int32_t disp, int mask)
 444 {
 445     TCGv cmp_tmp;
 446
 447     if (unlikely(ra == 31)) {
 448         cmp_tmp = tcg_const_i64(0);
 449     } else {
 450         cmp_tmp = tcg_temp_new();
 451         if (mask) {
 452             tcg_gen_andi_i64(cmp_tmp, cpu_ir[ra], 1);
 453         } else {
 454             tcg_gen_mov_i64(cmp_tmp, cpu_ir[ra]);
 455         }
 456     }
 457
 458     return gen_bcond_internal(ctx, cond, cmp_tmp, disp);
 459 }
 460
 461 /* Fold -0.0 for comparison with COND.  */
 462
 463 static void gen_fold_mzero(TCGCond cond, TCGv dest, TCGv src)
 464 {
 465     uint64_t mzero = 1ull << 63;
 466
 467     switch (cond) {
 468     case TCG_COND_LE:
 469     case TCG_COND_GT:
 470         /* For <= or >, the -0.0 value directly compares the way we want.  */
 471         tcg_gen_mov_i64(dest, src);
 472         break;
 473
 474     case TCG_COND_EQ:
 475     case TCG_COND_NE:
 476         /* For == or !=, we can simply mask off the sign bit and compare.  */
 477         tcg_gen_andi_i64(dest, src, mzero - 1);
 478         break;
 479
 480     case TCG_COND_GE:
 481     case TCG_COND_LT:
 482         /* For >= or <, map -0.0 to +0.0 via comparison and mask.  */
 483         tcg_gen_setcondi_i64(TCG_COND_NE, dest, src, mzero);
 484         tcg_gen_neg_i64(dest, dest);
 485         tcg_gen_and_i64(dest, dest, src);
 486         break;
 487
 488     default:
 489         abort();
 490     }
 491 }
 492
 493 static ExitStatus gen_fbcond(DisasContext *ctx, TCGCond cond, int ra,
 494                              int32_t disp)
 495 {
 496     TCGv cmp_tmp;
 497
 498     if (unlikely(ra == 31)) {
 499         /* Very uncommon case, but easier to optimize it to an integer
 500            comparison than continuing with the floating point comparison.  */
 501         return gen_bcond(ctx, cond, ra, disp, 0);
 502     }
 503
 504     cmp_tmp = tcg_temp_new();
 505     gen_fold_mzero(cond, cmp_tmp, cpu_fir[ra]);
 506     return gen_bcond_internal(ctx, cond, cmp_tmp, disp);
 507 }
 508
 509 static void gen_cmov(TCGCond cond, int ra, int rb, int rc,
 510                      int islit, uint8_t lit, int mask)
 511 {
 512     TCGv_i64 c1, z, v1;
 513
 514     if (unlikely(rc == 31)) {
 515         return;
 516     }
 517
 518     if (ra == 31) {
 519         /* Very uncommon case - Do not bother to optimize.  */
 520         c1 = tcg_const_i64(0);
 521     } else if (mask) {
 522         c1 = tcg_const_i64(1);
 523         tcg_gen_and_i64(c1, c1, cpu_ir[ra]);
 524     } else {
 525         c1 = cpu_ir[ra];
 526     }
 527     if (islit) {
 528         v1 = tcg_const_i64(lit);
 529     } else {
 530         v1 = cpu_ir[rb];
 531     }
 532     z = tcg_const_i64(0);
 533
 534     tcg_gen_movcond_i64(cond, cpu_ir[rc], c1, z, v1, cpu_ir[rc]);
 535
 536     tcg_temp_free_i64(z);
 537     if (ra == 31 || mask) {
 538         tcg_temp_free_i64(c1);
 539     }
 540     if (islit) {
 541         tcg_temp_free_i64(v1);
 542     }
 543 }
 544
 545 static void gen_fcmov(TCGCond cond, int ra, int rb, int rc)
 546 {
 547     TCGv_i64 c1, z, v1;
 548
 549     if (unlikely(rc == 31)) {
 550         return;
 551     }
 552
 553     c1 = tcg_temp_new_i64();
 554     if (unlikely(ra == 31)) {
 555         tcg_gen_movi_i64(c1, 0);
 556     } else {
 557         gen_fold_mzero(cond, c1, cpu_fir[ra]);
 558     }
 559     if (rb == 31) {
 560         v1 = tcg_const_i64(0);
 561     } else {
 562         v1 = cpu_fir[rb];
 563     }
 564     z = tcg_const_i64(0);
 565
 566     tcg_gen_movcond_i64(cond, cpu_fir[rc], c1, z, v1, cpu_fir[rc]);
 567
 568     tcg_temp_free_i64(z);
 569     tcg_temp_free_i64(c1);
 570     if (rb == 31) {
 571         tcg_temp_free_i64(v1);
 572     }
 573 }
 574
 575 #define QUAL_RM_N       0x080   /* Round mode nearest even */
 576 #define QUAL_RM_C       0x000   /* Round mode chopped */
 577 #define QUAL_RM_M       0x040   /* Round mode minus infinity */
 578 #define QUAL_RM_D       0x0c0   /* Round mode dynamic */
 579 #define QUAL_RM_MASK    0x0c0
 580
 581 #define QUAL_U          0x100   /* Underflow enable (fp output) */
 582 #define QUAL_V          0x100   /* Overflow enable (int output) */
 583 #define QUAL_S          0x400   /* Software completion enable */
 584 #define QUAL_I          0x200   /* Inexact detection enable */
 585
 586 static void gen_qual_roundmode(DisasContext *ctx, int fn11)
 587 {
 588     TCGv_i32 tmp;
 589
 590     fn11 &= QUAL_RM_MASK;
 591     if (fn11 == ctx->tb_rm) {
 592         return;
 593     }
 594     ctx->tb_rm = fn11;
 595
 596     tmp = tcg_temp_new_i32();
 597     switch (fn11) {
 598     case QUAL_RM_N:
 599         tcg_gen_movi_i32(tmp, float_round_nearest_even);
 600         break;
 601     case QUAL_RM_C:
 602         tcg_gen_movi_i32(tmp, float_round_to_zero);
 603         break;
 604     case QUAL_RM_M:
 605         tcg_gen_movi_i32(tmp, float_round_down);
 606         break;
 607     case QUAL_RM_D:
 608         tcg_gen_ld8u_i32(tmp, cpu_env,
 609                          offsetof(CPUAlphaState, fpcr_dyn_round));
 610         break;
 611     }
 612
 613 #if defined(CONFIG_SOFTFLOAT_INLINE)
 614     /* ??? The "fpu/softfloat.h" interface is to call set_float_rounding_mode.
 615        With CONFIG_SOFTFLOAT that expands to an out-of-line call that just
 616        sets the one field.  */
 617     tcg_gen_st8_i32(tmp, cpu_env,
 618                     offsetof(CPUAlphaState, fp_status.float_rounding_mode));
 619 #else
 620     gen_helper_setroundmode(tmp);
 621 #endif
 622
 623     tcg_temp_free_i32(tmp);
 624 }
 625
 626 static void gen_qual_flushzero(DisasContext *ctx, int fn11)
 627 {
 628     TCGv_i32 tmp;
 629
 630     fn11 &= QUAL_U;
 631     if (fn11 == ctx->tb_ftz) {
 632         return;
 633     }
 634     ctx->tb_ftz = fn11;
 635
 636     tmp = tcg_temp_new_i32();
 637     if (fn11) {
 638         /* Underflow is enabled, use the FPCR setting.  */
 639         tcg_gen_ld8u_i32(tmp, cpu_env,
 640                          offsetof(CPUAlphaState, fpcr_flush_to_zero));
 641     } else {
 642         /* Underflow is disabled, force flush-to-zero.  */
 643         tcg_gen_movi_i32(tmp, 1);
 644     }
 645
 646 #if defined(CONFIG_SOFTFLOAT_INLINE)
 647     tcg_gen_st8_i32(tmp, cpu_env,
 648                     offsetof(CPUAlphaState, fp_status.flush_to_zero));
 649 #else
 650     gen_helper_setflushzero(tmp);
 651 #endif
 652
 653     tcg_temp_free_i32(tmp);
 654 }
 655
 656 static TCGv gen_ieee_input(int reg, int fn11, int is_cmp)
 657 {
 658     TCGv val;
 659     if (reg == 31) {
 660         val = tcg_const_i64(0);
 661     } else {
 662         if ((fn11 & QUAL_S) == 0) {
 663             if (is_cmp) {
 664                 gen_helper_ieee_input_cmp(cpu_env, cpu_fir[reg]);
 665             } else {
 666                 gen_helper_ieee_input(cpu_env, cpu_fir[reg]);
 667             }
 668         }
 669         val = tcg_temp_new();
 670         tcg_gen_mov_i64(val, cpu_fir[reg]);
 671     }
 672     return val;
 673 }
 674
 675 static void gen_fp_exc_clear(void)
 676 {
 677 #if defined(CONFIG_SOFTFLOAT_INLINE)
 678     TCGv_i32 zero = tcg_const_i32(0);
 679     tcg_gen_st8_i32(zero, cpu_env,
 680                     offsetof(CPUAlphaState, fp_status.float_exception_flags));
 681     tcg_temp_free_i32(zero);
 682 #else
 683     gen_helper_fp_exc_clear(cpu_env);
 684 #endif
 685 }
 686
 687 static void gen_fp_exc_raise_ignore(int rc, int fn11, int ignore)
 688 {
 689     /* ??? We ought to be able to do something with imprecise exceptions.
 690        E.g. notice we're still in the trap shadow of something within the
 691        TB and do not generate the code to signal the exception; end the TB
 692        when an exception is forced to arrive, either by consumption of a
 693        register value or TRAPB or EXCB.  */
 694     TCGv_i32 exc = tcg_temp_new_i32();
 695     TCGv_i32 reg;
 696
 697 #if defined(CONFIG_SOFTFLOAT_INLINE)
 698     tcg_gen_ld8u_i32(exc, cpu_env,
 699                      offsetof(CPUAlphaState, fp_status.float_exception_flags));
 700 #else
 701     gen_helper_fp_exc_get(exc, cpu_env);
 702 #endif
 703
 704     if (ignore) {
 705         tcg_gen_andi_i32(exc, exc, ~ignore);
 706     }
 707
 708     /* ??? Pass in the regno of the destination so that the helper can
 709        set EXC_MASK, which contains a bitmask of destination registers
 710        that have caused arithmetic traps.  A simple userspace emulation
 711        does not require this.  We do need it for a guest kernel's entArith,
 712        or if we were to do something clever with imprecise exceptions.  */
 713     reg = tcg_const_i32(rc + 32);
 714
 715     if (fn11 & QUAL_S) {
 716         gen_helper_fp_exc_raise_s(cpu_env, exc, reg);
 717     } else {
 718         gen_helper_fp_exc_raise(cpu_env, exc, reg);
 719     }
 720
 721     tcg_temp_free_i32(reg);
 722     tcg_temp_free_i32(exc);
 723 }
 724
 725 static inline void gen_fp_exc_raise(int rc, int fn11)
 726 {
 727     gen_fp_exc_raise_ignore(rc, fn11, fn11 & QUAL_I ? 0 : float_flag_inexact);
 728 }
 729
 730 static void gen_fcvtlq(int rb, int rc)
 731 {
 732     if (unlikely(rc == 31)) {
 733         return;
 734     }
 735     if (unlikely(rb == 31)) {
 736         tcg_gen_movi_i64(cpu_fir[rc], 0);
 737     } else {
 738         TCGv tmp = tcg_temp_new();
 739
 740         /* The arithmetic right shift here, plus the sign-extended mask below
 741            yields a sign-extended result without an explicit ext32s_i64.  */
 742         tcg_gen_sari_i64(tmp, cpu_fir[rb], 32);
 743         tcg_gen_shri_i64(cpu_fir[rc], cpu_fir[rb], 29);
 744         tcg_gen_andi_i64(tmp, tmp, (int32_t)0xc0000000);
 745         tcg_gen_andi_i64(cpu_fir[rc], cpu_fir[rc], 0x3fffffff);
 746         tcg_gen_or_i64(cpu_fir[rc], cpu_fir[rc], tmp);
 747
 748         tcg_temp_free(tmp);
 749     }
 750 }
 751
 752 static void gen_fcvtql(int rb, int rc)
 753 {
 754     if (unlikely(rc == 31)) {
 755         return;
 756     }
 757     if (unlikely(rb == 31)) {
 758         tcg_gen_movi_i64(cpu_fir[rc], 0);
 759     } else {
 760         TCGv tmp = tcg_temp_new();
 761
 762         tcg_gen_andi_i64(tmp, cpu_fir[rb], 0xC0000000);
 763         tcg_gen_andi_i64(cpu_fir[rc], cpu_fir[rb], 0x3FFFFFFF);
 764         tcg_gen_shli_i64(tmp, tmp, 32);
 765         tcg_gen_shli_i64(cpu_fir[rc], cpu_fir[rc], 29);
 766         tcg_gen_or_i64(cpu_fir[rc], cpu_fir[rc], tmp);
 767
 768         tcg_temp_free(tmp);
 769     }
 770 }
 771
 772 static void gen_fcvtql_v(DisasContext *ctx, int rb, int rc)
 773 {
 774     if (rb != 31) {
 775         int lab = gen_new_label();
 776         TCGv tmp = tcg_temp_new();
 777
 778         tcg_gen_ext32s_i64(tmp, cpu_fir[rb]);
 779         tcg_gen_brcond_i64(TCG_COND_EQ, tmp, cpu_fir[rb], lab);
 780         gen_excp(ctx, EXCP_ARITH, EXC_M_IOV);
 781
 782         gen_set_label(lab);
 783     }
 784     gen_fcvtql(rb, rc);
 785 }
 786
 787 #define FARITH2(name)                                                   \
 788     static inline void glue(gen_f, name)(int rb, int rc)                \
 789     {                                                                   \
 790         if (unlikely(rc == 31)) {                                       \
 791             return;                                                     \
 792         }                                                               \
 793         if (rb != 31) {                                                 \
 794             gen_helper_ ## name(cpu_fir[rc], cpu_env, cpu_fir[rb]);     \
 795         } else {                                                        \
 796             TCGv tmp = tcg_const_i64(0);                                \
 797             gen_helper_ ## name(cpu_fir[rc], cpu_env, tmp);             \
 798             tcg_temp_free(tmp);                                         \
 799         }                                                               \
 800     }
 801
 802 /* ??? VAX instruction qualifiers ignored.  */
 803 FARITH2(sqrtf)
 804 FARITH2(sqrtg)
 805 FARITH2(cvtgf)
 806 FARITH2(cvtgq)
 807 FARITH2(cvtqf)
 808 FARITH2(cvtqg)
 809
 810 static void gen_ieee_arith2(DisasContext *ctx,
 811                             void (*helper)(TCGv, TCGv_ptr, TCGv),
 812                             int rb, int rc, int fn11)
 813 {
 814     TCGv vb;
 815
 816     /* ??? This is wrong: the instruction is not a nop, it still may
 817        raise exceptions.  */
 818     if (unlikely(rc == 31)) {
 819         return;
 820     }
 821
 822     gen_qual_roundmode(ctx, fn11);
 823     gen_qual_flushzero(ctx, fn11);
 824     gen_fp_exc_clear();
 825
 826     vb = gen_ieee_input(rb, fn11, 0);
 827     helper(cpu_fir[rc], cpu_env, vb);
 828     tcg_temp_free(vb);
 829
 830     gen_fp_exc_raise(rc, fn11);
 831 }
 832
 833 #define IEEE_ARITH2(name)                                       \
 834 static inline void glue(gen_f, name)(DisasContext *ctx,         \
 835                                      int rb, int rc, int fn11)  \
 836 {                                                               \
 837     gen_ieee_arith2(ctx, gen_helper_##name, rb, rc, fn11);      \
 838 }
 839 IEEE_ARITH2(sqrts)
 840 IEEE_ARITH2(sqrtt)
 841 IEEE_ARITH2(cvtst)
 842 IEEE_ARITH2(cvtts)
 843
 844 static void gen_fcvttq(DisasContext *ctx, int rb, int rc, int fn11)
 845 {
 846     TCGv vb;
 847     int ignore = 0;
 848
 849     /* ??? This is wrong: the instruction is not a nop, it still may
 850        raise exceptions.  */
 851     if (unlikely(rc == 31)) {
 852         return;
 853     }
 854
 855     /* No need to set flushzero, since we have an integer output.  */
 856     gen_fp_exc_clear();
 857     vb = gen_ieee_input(rb, fn11, 0);
 858
 859     /* Almost all integer conversions use cropped rounding, and most
 860        also do not have integer overflow enabled.  Special case that.  */
 861     switch (fn11) {
 862     case QUAL_RM_C:
 863         gen_helper_cvttq_c(cpu_fir[rc], cpu_env, vb);
 864         break;
 865     case QUAL_V | QUAL_RM_C:
 866     case QUAL_S | QUAL_V | QUAL_RM_C:
 867         ignore = float_flag_inexact;
 868         /* FALLTHRU */
 869     case QUAL_S | QUAL_V | QUAL_I | QUAL_RM_C:
 870         gen_helper_cvttq_svic(cpu_fir[rc], cpu_env, vb);
 871         break;
 872     default:
 873         gen_qual_roundmode(ctx, fn11);
 874         gen_helper_cvttq(cpu_fir[rc], cpu_env, vb);
 875         ignore |= (fn11 & QUAL_V ? 0 : float_flag_overflow);
 876         ignore |= (fn11 & QUAL_I ? 0 : float_flag_inexact);
 877         break;
 878     }
 879     tcg_temp_free(vb);
 880
 881     gen_fp_exc_raise_ignore(rc, fn11, ignore);
 882 }
 883
 884 static void gen_ieee_intcvt(DisasContext *ctx,
 885                             void (*helper)(TCGv, TCGv_ptr, TCGv),
 886                             int rb, int rc, int fn11)
 887 {
 888     TCGv vb;
 889
 890     /* ??? This is wrong: the instruction is not a nop, it still may
 891        raise exceptions.  */
 892     if (unlikely(rc == 31)) {
 893         return;
 894     }
 895
 896     gen_qual_roundmode(ctx, fn11);
 897
 898     if (rb == 31) {
 899         vb = tcg_const_i64(0);
 900     } else {
 901         vb = cpu_fir[rb];
 902     }
 903
 904     /* The only exception that can be raised by integer conversion
 905        is inexact.  Thus we only need to worry about exceptions when
 906        inexact handling is requested.  */
 907     if (fn11 & QUAL_I) {
 908         gen_fp_exc_clear();
 909         helper(cpu_fir[rc], cpu_env, vb);
 910         gen_fp_exc_raise(rc, fn11);
 911     } else {
 912         helper(cpu_fir[rc], cpu_env, vb);
 913     }
 914
 915     if (rb == 31) {
 916         tcg_temp_free(vb);
 917     }
 918 }
 919
 920 #define IEEE_INTCVT(name)                                       \
 921 static inline void glue(gen_f, name)(DisasContext *ctx,         \
 922                                      int rb, int rc, int fn11)  \
 923 {                                                               \
 924     gen_ieee_intcvt(ctx, gen_helper_##name, rb, rc, fn11);      \
 925 }
 926 IEEE_INTCVT(cvtqs)
 927 IEEE_INTCVT(cvtqt)
 928
 929 static void gen_cpys_internal(int ra, int rb, int rc, int inv_a, uint64_t mask)
 930 {
 931     TCGv va, vb, vmask;
 932     int za = 0, zb = 0;
 933
 934     if (unlikely(rc == 31)) {
 935         return;
 936     }
 937
 938     vmask = tcg_const_i64(mask);
 939
 940     TCGV_UNUSED_I64(va);
 941     if (ra == 31) {
 942         if (inv_a) {
 943             va = vmask;
 944         } else {
 945             za = 1;
 946         }
 947     } else {
 948         va = tcg_temp_new_i64();
 949         tcg_gen_mov_i64(va, cpu_fir[ra]);
 950         if (inv_a) {
 951             tcg_gen_andc_i64(va, vmask, va);
 952         } else {
 953             tcg_gen_and_i64(va, va, vmask);
 954         }
 955     }
 956
 957     TCGV_UNUSED_I64(vb);
 958     if (rb == 31) {
 959         zb = 1;
 960     } else {
 961         vb = tcg_temp_new_i64();
 962         tcg_gen_andc_i64(vb, cpu_fir[rb], vmask);
 963     }
 964
 965     switch (za << 1 | zb) {
 966     case 0 | 0:
 967         tcg_gen_or_i64(cpu_fir[rc], va, vb);
 968         break;
 969     case 0 | 1:
 970         tcg_gen_mov_i64(cpu_fir[rc], va);
 971         break;
 972     case 2 | 0:
 973         tcg_gen_mov_i64(cpu_fir[rc], vb);
 974         break;
 975     case 2 | 1:
 976         tcg_gen_movi_i64(cpu_fir[rc], 0);
 977         break;
 978     }
 979
 980     tcg_temp_free(vmask);
 981     if (ra != 31) {
 982         tcg_temp_free(va);
 983     }
 984     if (rb != 31) {
 985         tcg_temp_free(vb);
 986     }
 987 }
 988
 989 static inline void gen_fcpys(int ra, int rb, int rc)
 990 {
 991     gen_cpys_internal(ra, rb, rc, 0, 0x8000000000000000ULL);
 992 }
 993
 994 static inline void gen_fcpysn(int ra, int rb, int rc)
 995 {
 996     gen_cpys_internal(ra, rb, rc, 1, 0x8000000000000000ULL);
 997 }
 998
 999 static inline void gen_fcpyse(int ra, int rb, int rc)
1000 {
1001     gen_cpys_internal(ra, rb, rc, 0, 0xFFF0000000000000ULL);
1002 }
1003
1004 #define FARITH3(name)                                                   \
1005     static inline void glue(gen_f, name)(int ra, int rb, int rc)        \
1006     {                                                                   \
1007         TCGv va, vb;                                                    \
1008                                                                         \
1009         if (unlikely(rc == 31)) {                                       \
1010             return;                                                     \
1011         }                                                               \
1012         if (ra == 31) {                                                 \
1013             va = tcg_const_i64(0);                                      \
1014         } else {                                                        \
1015             va = cpu_fir[ra];                                           \
1016         }                                                               \
1017         if (rb == 31) {                                                 \
1018             vb = tcg_const_i64(0);                                      \
1019         } else {                                                        \
1020             vb = cpu_fir[rb];                                           \
1021         }                                                               \
1022                                                                         \
1023         gen_helper_ ## name(cpu_fir[rc], cpu_env, va, vb);              \
1024                                                                         \
1025         if (ra == 31) {                                                 \
1026             tcg_temp_free(va);                                          \
1027         }                                                               \
1028         if (rb == 31) {                                                 \
1029             tcg_temp_free(vb);                                          \
1030         }                                                               \
1031     }
1032
1033 /* ??? VAX instruction qualifiers ignored.  */
1034 FARITH3(addf)
1035 FARITH3(subf)
1036 FARITH3(mulf)
1037 FARITH3(divf)
1038 FARITH3(addg)
1039 FARITH3(subg)
1040 FARITH3(mulg)
1041 FARITH3(divg)
1042 FARITH3(cmpgeq)
1043 FARITH3(cmpglt)
1044 FARITH3(cmpgle)
1045
1046 static void gen_ieee_arith3(DisasContext *ctx,
1047                             void (*helper)(TCGv, TCGv_ptr, TCGv, TCGv),
1048                             int ra, int rb, int rc, int fn11)
1049 {
1050     TCGv va, vb;
1051
1052     /* ??? This is wrong: the instruction is not a nop, it still may
1053        raise exceptions.  */
1054     if (unlikely(rc == 31)) {
1055         return;
1056     }
1057
1058     gen_qual_roundmode(ctx, fn11);
1059     gen_qual_flushzero(ctx, fn11);
1060     gen_fp_exc_clear();
1061
1062     va = gen_ieee_input(ra, fn11, 0);
1063     vb = gen_ieee_input(rb, fn11, 0);
1064     helper(cpu_fir[rc], cpu_env, va, vb);
1065     tcg_temp_free(va);
1066     tcg_temp_free(vb);
1067
1068     gen_fp_exc_raise(rc, fn11);
1069 }
1070
1071 #define IEEE_ARITH3(name)                                               \
1072 static inline void glue(gen_f, name)(DisasContext *ctx,                 \
1073                                      int ra, int rb, int rc, int fn11)  \
1074 {                                                                       \
1075     gen_ieee_arith3(ctx, gen_helper_##name, ra, rb, rc, fn11);          \
1076 }
1077 IEEE_ARITH3(adds)
1078 IEEE_ARITH3(subs)
1079 IEEE_ARITH3(muls)
1080 IEEE_ARITH3(divs)
1081 IEEE_ARITH3(addt)
1082 IEEE_ARITH3(subt)
1083 IEEE_ARITH3(mult)
1084 IEEE_ARITH3(divt)
1085
1086 static void gen_ieee_compare(DisasContext *ctx,
1087                              void (*helper)(TCGv, TCGv_ptr, TCGv, TCGv),
1088                              int ra, int rb, int rc, int fn11)
1089 {
1090     TCGv va, vb;
1091
1092     /* ??? This is wrong: the instruction is not a nop, it still may
1093        raise exceptions.  */
1094     if (unlikely(rc == 31)) {
1095         return;
1096     }
1097
1098     gen_fp_exc_clear();
1099
1100     va = gen_ieee_input(ra, fn11, 1);
1101     vb = gen_ieee_input(rb, fn11, 1);
1102     helper(cpu_fir[rc], cpu_env, va, vb);
1103     tcg_temp_free(va);
1104     tcg_temp_free(vb);
1105
1106     gen_fp_exc_raise(rc, fn11);
1107 }
1108
1109 #define IEEE_CMP3(name)                                                 \
1110 static inline void glue(gen_f, name)(DisasContext *ctx,                 \
1111                                      int ra, int rb, int rc, int fn11)  \
1112 {                                                                       \
1113     gen_ieee_compare(ctx, gen_helper_##name, ra, rb, rc, fn11);         \
1114 }
1115 IEEE_CMP3(cmptun)
1116 IEEE_CMP3(cmpteq)
1117 IEEE_CMP3(cmptlt)
1118 IEEE_CMP3(cmptle)
1119
1120 static inline uint64_t zapnot_mask(uint8_t lit)
1121 {
1122     uint64_t mask = 0;
1123     int i;
1124
1125     for (i = 0; i < 8; ++i) {
1126         if ((lit >> i) & 1)
1127             mask |= 0xffull << (i * 8);
1128     }
1129     return mask;
1130 }
1131
1132 /* Implement zapnot with an immediate operand, which expands to some
1133    form of immediate AND.  This is a basic building block in the
1134    definition of many of the other byte manipulation instructions.  */
1135 static void gen_zapnoti(TCGv dest, TCGv src, uint8_t lit)
1136 {
1137     switch (lit) {
1138     case 0x00:
1139         tcg_gen_movi_i64(dest, 0);
1140         break;
1141     case 0x01:
1142         tcg_gen_ext8u_i64(dest, src);
1143         break;
1144     case 0x03:
1145         tcg_gen_ext16u_i64(dest, src);
1146         break;
1147     case 0x0f:
1148         tcg_gen_ext32u_i64(dest, src);
1149         break;
1150     case 0xff:
1151         tcg_gen_mov_i64(dest, src);
1152         break;
1153     default:
1154         tcg_gen_andi_i64 (dest, src, zapnot_mask (lit));
1155         break;
1156     }
1157 }
1158
1159 static inline void gen_zapnot(int ra, int rb, int rc, int islit, uint8_t lit)
1160 {
1161     if (unlikely(rc == 31))
1162         return;
1163     else if (unlikely(ra == 31))
1164         tcg_gen_movi_i64(cpu_ir[rc], 0);
1165     else if (islit)
1166         gen_zapnoti(cpu_ir[rc], cpu_ir[ra], lit);
1167     else
1168         gen_helper_zapnot (cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
1169 }
1170
1171 static inline void gen_zap(int ra, int rb, int rc, int islit, uint8_t lit)
1172 {
1173     if (unlikely(rc == 31))
1174         return;
1175     else if (unlikely(ra == 31))
1176         tcg_gen_movi_i64(cpu_ir[rc], 0);
1177     else if (islit)
1178         gen_zapnoti(cpu_ir[rc], cpu_ir[ra], ~lit);
1179     else
1180         gen_helper_zap (cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
1181 }
1182
1183
1184 /* EXTWH, EXTLH, EXTQH */
1185 static void gen_ext_h(int ra, int rb, int rc, int islit,
1186                       uint8_t lit, uint8_t byte_mask)
1187 {
1188     if (unlikely(rc == 31))
1189         return;
1190     else if (unlikely(ra == 31))
1191         tcg_gen_movi_i64(cpu_ir[rc], 0);
1192     else {
1193         if (islit) {
1194             lit = (64 - (lit & 7) * 8) & 0x3f;
1195             tcg_gen_shli_i64(cpu_ir[rc], cpu_ir[ra], lit);
1196         } else {
1197             TCGv tmp1 = tcg_temp_new();
1198             tcg_gen_andi_i64(tmp1, cpu_ir[rb], 7);
1199             tcg_gen_shli_i64(tmp1, tmp1, 3);
1200             tcg_gen_neg_i64(tmp1, tmp1);
1201             tcg_gen_andi_i64(tmp1, tmp1, 0x3f);
1202             tcg_gen_shl_i64(cpu_ir[rc], cpu_ir[ra], tmp1);
1203             tcg_temp_free(tmp1);
1204         }
1205         gen_zapnoti(cpu_ir[rc], cpu_ir[rc], byte_mask);
1206     }
1207 }
1208
1209 /* EXTBL, EXTWL, EXTLL, EXTQL */
1210 static void gen_ext_l(int ra, int rb, int rc, int islit,
1211                       uint8_t lit, uint8_t byte_mask)
1212 {
1213     if (unlikely(rc == 31))
1214         return;
1215     else if (unlikely(ra == 31))
1216         tcg_gen_movi_i64(cpu_ir[rc], 0);
1217     else {
1218         if (islit) {
1219             tcg_gen_shri_i64(cpu_ir[rc], cpu_ir[ra], (lit & 7) * 8);
1220         } else {
1221             TCGv tmp = tcg_temp_new();
1222             tcg_gen_andi_i64(tmp, cpu_ir[rb], 7);
1223             tcg_gen_shli_i64(tmp, tmp, 3);
1224             tcg_gen_shr_i64(cpu_ir[rc], cpu_ir[ra], tmp);
1225             tcg_temp_free(tmp);
1226         }
1227         gen_zapnoti(cpu_ir[rc], cpu_ir[rc], byte_mask);
1228     }
1229 }
1230
1231 /* INSWH, INSLH, INSQH */
1232 static void gen_ins_h(int ra, int rb, int rc, int islit,
1233                       uint8_t lit, uint8_t byte_mask)
1234 {
1235     if (unlikely(rc == 31))
1236         return;
1237     else if (unlikely(ra == 31) || (islit && (lit & 7) == 0))
1238         tcg_gen_movi_i64(cpu_ir[rc], 0);
1239     else {
1240         TCGv tmp = tcg_temp_new();
1241
1242         /* The instruction description has us left-shift the byte mask
1243            and extract bits <15:8> and apply that zap at the end.  This
1244            is equivalent to simply performing the zap first and shifting
1245            afterward.  */
1246         gen_zapnoti (tmp, cpu_ir[ra], byte_mask);
1247
1248         if (islit) {
1249             /* Note that we have handled the lit==0 case above.  */
1250             tcg_gen_shri_i64 (cpu_ir[rc], tmp, 64 - (lit & 7) * 8);
1251         } else {
1252             TCGv shift = tcg_temp_new();
1253
1254             /* If (B & 7) == 0, we need to shift by 64 and leave a zero.
1255                Do this portably by splitting the shift into two parts:
1256                shift_count-1 and 1.  Arrange for the -1 by using
1257                ones-complement instead of twos-complement in the negation:
1258                ~((B & 7) * 8) & 63.  */
1259
1260             tcg_gen_andi_i64(shift, cpu_ir[rb], 7);
1261             tcg_gen_shli_i64(shift, shift, 3);
1262             tcg_gen_not_i64(shift, shift);
1263             tcg_gen_andi_i64(shift, shift, 0x3f);
1264
1265             tcg_gen_shr_i64(cpu_ir[rc], tmp, shift);
1266             tcg_gen_shri_i64(cpu_ir[rc], cpu_ir[rc], 1);
1267             tcg_temp_free(shift);
1268         }
1269         tcg_temp_free(tmp);
1270     }
1271 }
1272
1273 /* INSBL, INSWL, INSLL, INSQL */
1274 static void gen_ins_l(int ra, int rb, int rc, int islit,
1275                       uint8_t lit, uint8_t byte_mask)
1276 {
1277     if (unlikely(rc == 31))
1278         return;
1279     else if (unlikely(ra == 31))
1280         tcg_gen_movi_i64(cpu_ir[rc], 0);
1281     else {
1282         TCGv tmp = tcg_temp_new();
1283
1284         /* The instruction description has us left-shift the byte mask
1285            the same number of byte slots as the data and apply the zap
1286            at the end.  This is equivalent to simply performing the zap
1287            first and shifting afterward.  */
1288         gen_zapnoti (tmp, cpu_ir[ra], byte_mask);
1289
1290         if (islit) {
1291             tcg_gen_shli_i64(cpu_ir[rc], tmp, (lit & 7) * 8);
1292         } else {
1293             TCGv shift = tcg_temp_new();
1294             tcg_gen_andi_i64(shift, cpu_ir[rb], 7);
1295             tcg_gen_shli_i64(shift, shift, 3);
1296             tcg_gen_shl_i64(cpu_ir[rc], tmp, shift);
1297             tcg_temp_free(shift);
1298         }
1299         tcg_temp_free(tmp);
1300     }
1301 }
1302
1303 /* MSKWH, MSKLH, MSKQH */
1304 static void gen_msk_h(int ra, int rb, int rc, int islit,
1305                       uint8_t lit, uint8_t byte_mask)
1306 {
1307     if (unlikely(rc == 31))
1308         return;
1309     else if (unlikely(ra == 31))
1310         tcg_gen_movi_i64(cpu_ir[rc], 0);
1311     else if (islit) {
1312         gen_zapnoti (cpu_ir[rc], cpu_ir[ra], ~((byte_mask << (lit & 7)) >> 8));
1313     } else {
1314         TCGv shift = tcg_temp_new();
1315         TCGv mask = tcg_temp_new();
1316
1317         /* The instruction description is as above, where the byte_mask
1318            is shifted left, and then we extract bits <15:8>.  This can be
1319            emulated with a right-shift on the expanded byte mask.  This
1320            requires extra care because for an input <2:0> == 0 we need a
1321            shift of 64 bits in order to generate a zero.  This is done by
1322            splitting the shift into two parts, the variable shift - 1
1323            followed by a constant 1 shift.  The code we expand below is
1324            equivalent to ~((B & 7) * 8) & 63.  */
1325
1326         tcg_gen_andi_i64(shift, cpu_ir[rb], 7);
1327         tcg_gen_shli_i64(shift, shift, 3);
1328         tcg_gen_not_i64(shift, shift);
1329         tcg_gen_andi_i64(shift, shift, 0x3f);
1330         tcg_gen_movi_i64(mask, zapnot_mask (byte_mask));
1331         tcg_gen_shr_i64(mask, mask, shift);
1332         tcg_gen_shri_i64(mask, mask, 1);
1333
1334         tcg_gen_andc_i64(cpu_ir[rc], cpu_ir[ra], mask);
1335
1336         tcg_temp_free(mask);
1337         tcg_temp_free(shift);
1338     }
1339 }
1340
1341 /* MSKBL, MSKWL, MSKLL, MSKQL */
1342 static void gen_msk_l(int ra, int rb, int rc, int islit,
1343                       uint8_t lit, uint8_t byte_mask)
1344 {
1345     if (unlikely(rc == 31))
1346         return;
1347     else if (unlikely(ra == 31))
1348         tcg_gen_movi_i64(cpu_ir[rc], 0);
1349     else if (islit) {
1350         gen_zapnoti (cpu_ir[rc], cpu_ir[ra], ~(byte_mask << (lit & 7)));
1351     } else {
1352         TCGv shift = tcg_temp_new();
1353         TCGv mask = tcg_temp_new();
1354
1355         tcg_gen_andi_i64(shift, cpu_ir[rb], 7);
1356         tcg_gen_shli_i64(shift, shift, 3);
1357         tcg_gen_movi_i64(mask, zapnot_mask (byte_mask));
1358         tcg_gen_shl_i64(mask, mask, shift);
1359
1360         tcg_gen_andc_i64(cpu_ir[rc], cpu_ir[ra], mask);
1361
1362         tcg_temp_free(mask);
1363         tcg_temp_free(shift);
1364     }
1365 }
1366
1367 /* Code to call arith3 helpers */
1368 #define ARITH3(name)                                                  \
1369 static inline void glue(gen_, name)(int ra, int rb, int rc, int islit,\
1370                                     uint8_t lit)                      \
1371 {                                                                     \
1372     if (unlikely(rc == 31))                                           \
1373         return;                                                       \
1374                                                                       \
1375     if (ra != 31) {                                                   \
1376         if (islit) {                                                  \
1377             TCGv tmp = tcg_const_i64(lit);                            \
1378             gen_helper_ ## name(cpu_ir[rc], cpu_ir[ra], tmp);         \
1379             tcg_temp_free(tmp);                                       \
1380         } else                                                        \
1381             gen_helper_ ## name (cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]); \
1382     } else {                                                          \
1383         TCGv tmp1 = tcg_const_i64(0);                                 \
1384         if (islit) {                                                  \
1385             TCGv tmp2 = tcg_const_i64(lit);                           \
1386             gen_helper_ ## name (cpu_ir[rc], tmp1, tmp2);             \
1387             tcg_temp_free(tmp2);                                      \
1388         } else                                                        \
1389             gen_helper_ ## name (cpu_ir[rc], tmp1, cpu_ir[rb]);       \
1390         tcg_temp_free(tmp1);                                          \
1391     }                                                                 \
1392 }
1393 ARITH3(cmpbge)
1394 ARITH3(minub8)
1395 ARITH3(minsb8)
1396 ARITH3(minuw4)
1397 ARITH3(minsw4)
1398 ARITH3(maxub8)
1399 ARITH3(maxsb8)
1400 ARITH3(maxuw4)
1401 ARITH3(maxsw4)
1402 ARITH3(perr)
1403
1404 /* Code to call arith3 helpers */
1405 #define ARITH3_EX(name)                                                 \
1406     static inline void glue(gen_, name)(int ra, int rb, int rc,         \
1407                                         int islit, uint8_t lit)         \
1408     {                                                                   \
1409         if (unlikely(rc == 31)) {                                       \
1410             return;                                                     \
1411         }                                                               \
1412         if (ra != 31) {                                                 \
1413             if (islit) {                                                \
1414                 TCGv tmp = tcg_const_i64(lit);                          \
1415                 gen_helper_ ## name(cpu_ir[rc], cpu_env,                \
1416                                     cpu_ir[ra], tmp);                   \
1417                 tcg_temp_free(tmp);                                     \
1418             } else {                                                    \
1419                 gen_helper_ ## name(cpu_ir[rc], cpu_env,                \
1420                                     cpu_ir[ra], cpu_ir[rb]);            \
1421             }                                                           \
1422         } else {                                                        \
1423             TCGv tmp1 = tcg_const_i64(0);                               \
1424             if (islit) {                                                \
1425                 TCGv tmp2 = tcg_const_i64(lit);                         \
1426                 gen_helper_ ## name(cpu_ir[rc], cpu_env, tmp1, tmp2);   \
1427                 tcg_temp_free(tmp2);                                    \
1428             } else {                                                    \
1429                 gen_helper_ ## name(cpu_ir[rc], cpu_env, tmp1, cpu_ir[rb]); \
1430             }                                                           \
1431             tcg_temp_free(tmp1);                                        \
1432         }                                                               \
1433     }
1434 ARITH3_EX(addlv)
1435 ARITH3_EX(sublv)
1436 ARITH3_EX(addqv)
1437 ARITH3_EX(subqv)
1438 ARITH3_EX(mullv)
1439 ARITH3_EX(mulqv)
1440
1441 #define MVIOP2(name)                                    \
1442 static inline void glue(gen_, name)(int rb, int rc)     \
1443 {                                                       \
1444     if (unlikely(rc == 31))                             \
1445         return;                                         \
1446     if (unlikely(rb == 31))                             \
1447         tcg_gen_movi_i64(cpu_ir[rc], 0);                \
1448     else                                                \
1449         gen_helper_ ## name (cpu_ir[rc], cpu_ir[rb]);   \
1450 }
1451 MVIOP2(pklb)
1452 MVIOP2(pkwb)
1453 MVIOP2(unpkbl)
1454 MVIOP2(unpkbw)
1455
1456 static void gen_cmp(TCGCond cond, int ra, int rb, int rc,
1457                     int islit, uint8_t lit)
1458 {
1459     TCGv va, vb;
1460
1461     if (unlikely(rc == 31)) {
1462         return;
1463     }
1464
1465     if (ra == 31) {
1466         va = tcg_const_i64(0);
1467     } else {
1468         va = cpu_ir[ra];
1469     }
1470     if (islit) {
1471         vb = tcg_const_i64(lit);
1472     } else {
1473         vb = cpu_ir[rb];
1474     }
1475
1476     tcg_gen_setcond_i64(cond, cpu_ir[rc], va, vb);
1477
1478     if (ra == 31) {
1479         tcg_temp_free(va);
1480     }
1481     if (islit) {
1482         tcg_temp_free(vb);
1483     }
1484 }
1485
1486 static void gen_rx(int ra, int set)
1487 {
1488     TCGv_i32 tmp;
1489
1490     if (ra != 31) {
1491         tcg_gen_ld8u_i64(cpu_ir[ra], cpu_env, offsetof(CPUAlphaState, intr_flag));
1492     }
1493
1494     tmp = tcg_const_i32(set);
1495     tcg_gen_st8_i32(tmp, cpu_env, offsetof(CPUAlphaState, intr_flag));
1496     tcg_temp_free_i32(tmp);
1497 }
1498
1499 static ExitStatus gen_call_pal(DisasContext *ctx, int palcode)
1500 {
1501     /* We're emulating OSF/1 PALcode.  Many of these are trivial access
1502        to internal cpu registers.  */
1503
1504     /* Unprivileged PAL call */
1505     if (palcode >= 0x80 && palcode < 0xC0) {
1506         switch (palcode) {
1507         case 0x86:
1508             /* IMB */
1509             /* No-op inside QEMU.  */
1510             break;
1511         case 0x9E:
1512             /* RDUNIQUE */
1513             tcg_gen_mov_i64(cpu_ir[IR_V0], cpu_unique);
1514             break;
1515         case 0x9F:
1516             /* WRUNIQUE */
1517             tcg_gen_mov_i64(cpu_unique, cpu_ir[IR_A0]);
1518             break;
1519         default:
1520             return gen_excp(ctx, EXCP_CALL_PAL, palcode & 0xbf);
1521         }
1522         return NO_EXIT;
1523     }
1524
1525 #ifndef CONFIG_USER_ONLY
1526     /* Privileged PAL code */
1527     if (palcode < 0x40 && (ctx->tb->flags & TB_FLAGS_USER_MODE) == 0) {
1528         switch (palcode) {
1529         case 0x01:
1530             /* CFLUSH */
1531             /* No-op inside QEMU.  */
1532             break;
1533         case 0x02:
1534             /* DRAINA */
1535             /* No-op inside QEMU.  */
1536             break;
1537         case 0x2D:
1538             /* WRVPTPTR */
1539             tcg_gen_st_i64(cpu_ir[IR_A0], cpu_env, offsetof(CPUAlphaState, vptptr));
1540             break;
1541         case 0x31:
1542             /* WRVAL */
1543             tcg_gen_mov_i64(cpu_sysval, cpu_ir[IR_A0]);
1544             break;
1545         case 0x32:
1546             /* RDVAL */
1547             tcg_gen_mov_i64(cpu_ir[IR_V0], cpu_sysval);
1548             break;
1549
1550         case 0x35: {
1551             /* SWPIPL */
1552             TCGv tmp;
1553
1554             /* Note that we already know we're in kernel mode, so we know
1555                that PS only contains the 3 IPL bits.  */
1556             tcg_gen_ld8u_i64(cpu_ir[IR_V0], cpu_env, offsetof(CPUAlphaState, ps));
1557
1558             /* But make sure and store only the 3 IPL bits from the user.  */
1559             tmp = tcg_temp_new();
1560             tcg_gen_andi_i64(tmp, cpu_ir[IR_A0], PS_INT_MASK);
1561             tcg_gen_st8_i64(tmp, cpu_env, offsetof(CPUAlphaState, ps));
1562             tcg_temp_free(tmp);
1563             break;
1564         }
1565
1566         case 0x36:
1567             /* RDPS */
1568             tcg_gen_ld8u_i64(cpu_ir[IR_V0], cpu_env, offsetof(CPUAlphaState, ps));
1569             break;
1570         case 0x38:
1571             /* WRUSP */
1572             tcg_gen_mov_i64(cpu_usp, cpu_ir[IR_A0]);
1573             break;
1574         case 0x3A:
1575             /* RDUSP */
1576             tcg_gen_mov_i64(cpu_ir[IR_V0], cpu_usp);
1577             break;
1578         case 0x3C:
1579             /* WHAMI */
1580             tcg_gen_ld32s_i64(cpu_ir[IR_V0], cpu_env,
1581                 -offsetof(AlphaCPU, env) + offsetof(CPUState, cpu_index));
1582             break;
1583
1584         default:
1585             return gen_excp(ctx, EXCP_CALL_PAL, palcode & 0x3f);
1586         }
1587         return NO_EXIT;
1588     }
1589 #endif
1590
1591     return gen_invalid(ctx);
1592 }
1593
1594 #ifndef CONFIG_USER_ONLY
1595
1596 #define PR_BYTE         0x100000
1597 #define PR_LONG         0x200000
1598
1599 static int cpu_pr_data(int pr)
1600 {
1601     switch (pr) {
1602     case  0: return offsetof(CPUAlphaState, ps) | PR_BYTE;
1603     case  1: return offsetof(CPUAlphaState, fen) | PR_BYTE;
1604     case  2: return offsetof(CPUAlphaState, pcc_ofs) | PR_LONG;
1605     case  3: return offsetof(CPUAlphaState, trap_arg0);
1606     case  4: return offsetof(CPUAlphaState, trap_arg1);
1607     case  5: return offsetof(CPUAlphaState, trap_arg2);
1608     case  6: return offsetof(CPUAlphaState, exc_addr);
1609     case  7: return offsetof(CPUAlphaState, palbr);
1610     case  8: return offsetof(CPUAlphaState, ptbr);
1611     case  9: return offsetof(CPUAlphaState, vptptr);
1612     case 10: return offsetof(CPUAlphaState, unique);
1613     case 11: return offsetof(CPUAlphaState, sysval);
1614     case 12: return offsetof(CPUAlphaState, usp);
1615
1616     case 32 ... 39:
1617         return offsetof(CPUAlphaState, shadow[pr - 32]);
1618     case 40 ... 63:
1619         return offsetof(CPUAlphaState, scratch[pr - 40]);
1620
1621     case 251:
1622         return offsetof(CPUAlphaState, alarm_expire);
1623     }
1624     return 0;
1625 }
1626
1627 static ExitStatus gen_mfpr(int ra, int regno)
1628 {
1629     int data = cpu_pr_data(regno);
1630
1631     /* In our emulated PALcode, these processor registers have no
1632        side effects from reading.  */
1633     if (ra == 31) {
1634         return NO_EXIT;
1635     }
1636
1637     if (regno == 250) {
1638         /* WALL_TIME */
1639         if (use_icount) {
1640             gen_io_start();
1641             gen_helper_get_time(cpu_ir[ra]);
1642             gen_io_end();
1643             return EXIT_PC_STALE;
1644         } else {
1645             gen_helper_get_time(cpu_ir[ra]);
1646             return NO_EXIT;
1647         }
1648     }
1649
1650     /* The basic registers are data only, and unknown registers
1651        are read-zero, write-ignore.  */
1652     if (data == 0) {
1653         tcg_gen_movi_i64(cpu_ir[ra], 0);
1654     } else if (data & PR_BYTE) {
1655         tcg_gen_ld8u_i64(cpu_ir[ra], cpu_env, data & ~PR_BYTE);
1656     } else if (data & PR_LONG) {
1657         tcg_gen_ld32s_i64(cpu_ir[ra], cpu_env, data & ~PR_LONG);
1658     } else {
1659         tcg_gen_ld_i64(cpu_ir[ra], cpu_env, data);
1660     }
1661     return NO_EXIT;
1662 }
1663
1664 static ExitStatus gen_mtpr(DisasContext *ctx, int rb, int regno)
1665 {
1666     TCGv tmp;
1667     int data;
1668
1669     if (rb == 31) {
1670         tmp = tcg_const_i64(0);
1671     } else {
1672         tmp = cpu_ir[rb];
1673     }
1674
1675     switch (regno) {
1676     case 255:
1677         /* TBIA */
1678         gen_helper_tbia(cpu_env);
1679         break;
1680
1681     case 254:
1682         /* TBIS */
1683         gen_helper_tbis(cpu_env, tmp);
1684         break;
1685
1686     case 253:
1687         /* WAIT */
1688         tmp = tcg_const_i64(1);
1689         tcg_gen_st32_i64(tmp, cpu_env, -offsetof(AlphaCPU, env) +
1690                                        offsetof(CPUState, halted));
1691         return gen_excp(ctx, EXCP_HLT, 0);
1692
1693     case 252:
1694         /* HALT */
1695         gen_helper_halt(tmp);
1696         return EXIT_PC_STALE;
1697
1698     case 251:
1699         /* ALARM */
1700         gen_helper_set_alarm(cpu_env, tmp);
1701         break;
1702
1703     default:
1704         /* The basic registers are data only, and unknown registers
1705            are read-zero, write-ignore.  */
1706         data = cpu_pr_data(regno);
1707         if (data != 0) {
1708             if (data & PR_BYTE) {
1709                 tcg_gen_st8_i64(tmp, cpu_env, data & ~PR_BYTE);
1710             } else if (data & PR_LONG) {
1711                 tcg_gen_st32_i64(tmp, cpu_env, data & ~PR_LONG);
1712             } else {
1713                 tcg_gen_st_i64(tmp, cpu_env, data);
1714             }
1715         }
1716         break;
1717     }
1718
1719     if (rb == 31) {
1720         tcg_temp_free(tmp);
1721     }
1722
1723     return NO_EXIT;
1724 }
1725 #endif /* !USER_ONLY*/
1726
1727 static ExitStatus translate_one(DisasContext *ctx, uint32_t insn)
1728 {
1729     uint32_t palcode;
1730     int32_t disp21, disp16;
1731 #ifndef CONFIG_USER_ONLY
1732     int32_t disp12;
1733 #endif
1734     uint16_t fn11;
1735     uint8_t opc, ra, rb, rc, fpfn, fn7, islit, real_islit;
1736     uint8_t lit;
1737     ExitStatus ret;
1738
1739     /* Decode all instruction fields */
1740     opc = insn >> 26;
1741     ra = (insn >> 21) & 0x1F;
1742     rb = (insn >> 16) & 0x1F;
1743     rc = insn & 0x1F;
1744     real_islit = islit = (insn >> 12) & 1;
1745     if (rb == 31 && !islit) {
1746         islit = 1;
1747         lit = 0;
1748     } else
1749         lit = (insn >> 13) & 0xFF;
1750     palcode = insn & 0x03FFFFFF;
1751     disp21 = ((int32_t)((insn & 0x001FFFFF) << 11)) >> 11;
1752     disp16 = (int16_t)(insn & 0x0000FFFF);
1753 #ifndef CONFIG_USER_ONLY
1754     disp12 = (int32_t)((insn & 0x00000FFF) << 20) >> 20;
1755 #endif
1756     fn11 = (insn >> 5) & 0x000007FF;
1757     fpfn = fn11 & 0x3F;
1758     fn7 = (insn >> 5) & 0x0000007F;
1759     LOG_DISAS("opc %02x ra %2d rb %2d rc %2d disp16 %6d\n",
1760               opc, ra, rb, rc, disp16);
1761
1762     ret = NO_EXIT;
1763     switch (opc) {
1764     case 0x00:
1765         /* CALL_PAL */
1766         ret = gen_call_pal(ctx, palcode);
1767         break;
1768     case 0x01:
1769         /* OPC01 */
1770         goto invalid_opc;
1771     case 0x02:
1772         /* OPC02 */
1773         goto invalid_opc;
1774     case 0x03:
1775         /* OPC03 */
1776         goto invalid_opc;
1777     case 0x04:
1778         /* OPC04 */
1779         goto invalid_opc;
1780     case 0x05:
1781         /* OPC05 */
1782         goto invalid_opc;
1783     case 0x06:
1784         /* OPC06 */
1785         goto invalid_opc;
1786     case 0x07:
1787         /* OPC07 */
1788         goto invalid_opc;
1789     case 0x08:
1790         /* LDA */
1791         if (likely(ra != 31)) {
1792             if (rb != 31)
1793                 tcg_gen_addi_i64(cpu_ir[ra], cpu_ir[rb], disp16);
1794             else
1795                 tcg_gen_movi_i64(cpu_ir[ra], disp16);
1796         }
1797         break;
1798     case 0x09:
1799         /* LDAH */
1800         if (likely(ra != 31)) {
1801             if (rb != 31)
1802                 tcg_gen_addi_i64(cpu_ir[ra], cpu_ir[rb], disp16 << 16);
1803             else
1804                 tcg_gen_movi_i64(cpu_ir[ra], disp16 << 16);
1805         }
1806         break;
1807     case 0x0A:
1808         /* LDBU */
1809         if (ctx->tb->flags & TB_FLAGS_AMASK_BWX) {
1810             gen_load_mem(ctx, &tcg_gen_qemu_ld8u, ra, rb, disp16, 0, 0);
1811             break;
1812         }
1813         goto invalid_opc;
1814     case 0x0B:
1815         /* LDQ_U */
1816         gen_load_mem(ctx, &tcg_gen_qemu_ld64, ra, rb, disp16, 0, 1);
1817         break;
1818     case 0x0C:
1819         /* LDWU */
1820         if (ctx->tb->flags & TB_FLAGS_AMASK_BWX) {
1821             gen_load_mem(ctx, &tcg_gen_qemu_ld16u, ra, rb, disp16, 0, 0);
1822             break;
1823         }
1824         goto invalid_opc;
1825     case 0x0D:
1826         /* STW */
1827         gen_store_mem(ctx, &tcg_gen_qemu_st16, ra, rb, disp16, 0, 0);
1828         break;
1829     case 0x0E:
1830         /* STB */
1831         gen_store_mem(ctx, &tcg_gen_qemu_st8, ra, rb, disp16, 0, 0);
1832         break;
1833     case 0x0F:
1834         /* STQ_U */
1835         gen_store_mem(ctx, &tcg_gen_qemu_st64, ra, rb, disp16, 0, 1);
1836         break;
1837     case 0x10:
1838         switch (fn7) {
1839         case 0x00:
1840             /* ADDL */
1841             if (likely(rc != 31)) {
1842                 if (ra != 31) {
1843                     if (islit) {
1844                         tcg_gen_addi_i64(cpu_ir[rc], cpu_ir[ra], lit);
1845                         tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rc]);
1846                     } else {
1847                         tcg_gen_add_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
1848                         tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rc]);
1849                     }
1850                 } else {
1851                     if (islit)
1852                         tcg_gen_movi_i64(cpu_ir[rc], lit);
1853                     else
1854                         tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rb]);
1855                 }
1856             }
1857             break;
1858         case 0x02:
1859             /* S4ADDL */
1860             if (likely(rc != 31)) {
1861                 if (ra != 31) {
1862                     TCGv tmp = tcg_temp_new();
1863                     tcg_gen_shli_i64(tmp, cpu_ir[ra], 2);
1864                     if (islit)
1865                         tcg_gen_addi_i64(tmp, tmp, lit);
1866                     else
1867                         tcg_gen_add_i64(tmp, tmp, cpu_ir[rb]);
1868                     tcg_gen_ext32s_i64(cpu_ir[rc], tmp);
1869                     tcg_temp_free(tmp);
1870                 } else {
1871                     if (islit)
1872                         tcg_gen_movi_i64(cpu_ir[rc], lit);
1873                     else
1874                         tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rb]);
1875                 }
1876             }
1877             break;
1878         case 0x09:
1879             /* SUBL */
1880             if (likely(rc != 31)) {
1881                 if (ra != 31) {
1882                     if (islit)
1883                         tcg_gen_subi_i64(cpu_ir[rc], cpu_ir[ra], lit);
1884                     else
1885                         tcg_gen_sub_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
1886                     tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rc]);
1887                 } else {
1888                     if (islit)
1889                         tcg_gen_movi_i64(cpu_ir[rc], -lit);
1890                     else {
1891                         tcg_gen_neg_i64(cpu_ir[rc], cpu_ir[rb]);
1892                         tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rc]);
1893                 }
1894             }
1895             break;
1896         case 0x0B:
1897             /* S4SUBL */
1898             if (likely(rc != 31)) {
1899                 if (ra != 31) {
1900                     TCGv tmp = tcg_temp_new();
1901                     tcg_gen_shli_i64(tmp, cpu_ir[ra], 2);
1902                     if (islit)
1903                         tcg_gen_subi_i64(tmp, tmp, lit);
1904                     else
1905                         tcg_gen_sub_i64(tmp, tmp, cpu_ir[rb]);
1906                     tcg_gen_ext32s_i64(cpu_ir[rc], tmp);
1907                     tcg_temp_free(tmp);
1908                 } else {
1909                     if (islit)
1910                         tcg_gen_movi_i64(cpu_ir[rc], -lit);
1911                     else {
1912                         tcg_gen_neg_i64(cpu_ir[rc], cpu_ir[rb]);
1913                         tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rc]);
1914                     }
1915                 }
1916             }
1917             break;
1918         case 0x0F:
1919             /* CMPBGE */
1920             gen_cmpbge(ra, rb, rc, islit, lit);
1921             break;
1922         case 0x12:
1923             /* S8ADDL */
1924             if (likely(rc != 31)) {
1925                 if (ra != 31) {
1926                     TCGv tmp = tcg_temp_new();
1927                     tcg_gen_shli_i64(tmp, cpu_ir[ra], 3);
1928                     if (islit)
1929                         tcg_gen_addi_i64(tmp, tmp, lit);
1930                     else
1931                         tcg_gen_add_i64(tmp, tmp, cpu_ir[rb]);
1932                     tcg_gen_ext32s_i64(cpu_ir[rc], tmp);
1933                     tcg_temp_free(tmp);
1934                 } else {
1935                     if (islit)
1936                         tcg_gen_movi_i64(cpu_ir[rc], lit);
1937                     else
1938                         tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rb]);
1939                 }
1940             }
1941             break;
1942         case 0x1B:
1943             /* S8SUBL */
1944             if (likely(rc != 31)) {
1945                 if (ra != 31) {
1946                     TCGv tmp = tcg_temp_new();
1947                     tcg_gen_shli_i64(tmp, cpu_ir[ra], 3);
1948                     if (islit)
1949                         tcg_gen_subi_i64(tmp, tmp, lit);
1950                     else
1951                        tcg_gen_sub_i64(tmp, tmp, cpu_ir[rb]);
1952                     tcg_gen_ext32s_i64(cpu_ir[rc], tmp);
1953                     tcg_temp_free(tmp);
1954                 } else {
1955                     if (islit)
1956                         tcg_gen_movi_i64(cpu_ir[rc], -lit);
1957                     else
1958                         tcg_gen_neg_i64(cpu_ir[rc], cpu_ir[rb]);
1959                         tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rc]);
1960                     }
1961                 }
1962             }
1963             break;
1964         case 0x1D:
1965             /* CMPULT */
1966             gen_cmp(TCG_COND_LTU, ra, rb, rc, islit, lit);
1967             break;
1968         case 0x20:
1969             /* ADDQ */
1970             if (likely(rc != 31)) {
1971                 if (ra != 31) {
1972                     if (islit)
1973                         tcg_gen_addi_i64(cpu_ir[rc], cpu_ir[ra], lit);
1974                     else
1975                         tcg_gen_add_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
1976                 } else {
1977                     if (islit)
1978                         tcg_gen_movi_i64(cpu_ir[rc], lit);
1979                     else
1980                         tcg_gen_mov_i64(cpu_ir[rc], cpu_ir[rb]);
1981                 }
1982             }
1983             break;
1984         case 0x22:
1985             /* S4ADDQ */
1986             if (likely(rc != 31)) {
1987                 if (ra != 31) {
1988                     TCGv tmp = tcg_temp_new();
1989                     tcg_gen_shli_i64(tmp, cpu_ir[ra], 2);
1990                     if (islit)
1991                         tcg_gen_addi_i64(cpu_ir[rc], tmp, lit);
1992                     else
1993                         tcg_gen_add_i64(cpu_ir[rc], tmp, cpu_ir[rb]);
1994                     tcg_temp_free(tmp);
1995                 } else {
1996                     if (islit)
1997                         tcg_gen_movi_i64(cpu_ir[rc], lit);
1998                     else
1999                         tcg_gen_mov_i64(cpu_ir[rc], cpu_ir[rb]);
2000                 }
2001             }
2002             break;
2003         case 0x29:
2004             /* SUBQ */
2005             if (likely(rc != 31)) {
2006                 if (ra != 31) {
2007                     if (islit)
2008                         tcg_gen_subi_i64(cpu_ir[rc], cpu_ir[ra], lit);
2009                     else
2010                         tcg_gen_sub_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2011                 } else {
2012                     if (islit)
2013                         tcg_gen_movi_i64(cpu_ir[rc], -lit);
2014                     else
2015                         tcg_gen_neg_i64(cpu_ir[rc], cpu_ir[rb]);
2016                 }
2017             }
2018             break;
2019         case 0x2B:
2020             /* S4SUBQ */
2021             if (likely(rc != 31)) {
2022                 if (ra != 31) {
2023                     TCGv tmp = tcg_temp_new();
2024                     tcg_gen_shli_i64(tmp, cpu_ir[ra], 2);
2025                     if (islit)
2026                         tcg_gen_subi_i64(cpu_ir[rc], tmp, lit);
2027                     else
2028                         tcg_gen_sub_i64(cpu_ir[rc], tmp, cpu_ir[rb]);
2029                     tcg_temp_free(tmp);
2030                 } else {
2031                     if (islit)
2032                         tcg_gen_movi_i64(cpu_ir[rc], -lit);
2033                     else
2034                         tcg_gen_neg_i64(cpu_ir[rc], cpu_ir[rb]);
2035                 }
2036             }
2037             break;
2038         case 0x2D:
2039             /* CMPEQ */
2040             gen_cmp(TCG_COND_EQ, ra, rb, rc, islit, lit);
2041             break;
2042         case 0x32:
2043             /* S8ADDQ */
2044             if (likely(rc != 31)) {
2045                 if (ra != 31) {
2046                     TCGv tmp = tcg_temp_new();
2047                     tcg_gen_shli_i64(tmp, cpu_ir[ra], 3);
2048                     if (islit)
2049                         tcg_gen_addi_i64(cpu_ir[rc], tmp, lit);
2050                     else
2051                         tcg_gen_add_i64(cpu_ir[rc], tmp, cpu_ir[rb]);
2052                     tcg_temp_free(tmp);
2053                 } else {
2054                     if (islit)
2055                         tcg_gen_movi_i64(cpu_ir[rc], lit);
2056                     else
2057                         tcg_gen_mov_i64(cpu_ir[rc], cpu_ir[rb]);
2058                 }
2059             }
2060             break;
2061         case 0x3B:
2062             /* S8SUBQ */
2063             if (likely(rc != 31)) {
2064                 if (ra != 31) {
2065                     TCGv tmp = tcg_temp_new();
2066                     tcg_gen_shli_i64(tmp, cpu_ir[ra], 3);
2067                     if (islit)
2068                         tcg_gen_subi_i64(cpu_ir[rc], tmp, lit);
2069                     else
2070                         tcg_gen_sub_i64(cpu_ir[rc], tmp, cpu_ir[rb]);
2071                     tcg_temp_free(tmp);
2072                 } else {
2073                     if (islit)
2074                         tcg_gen_movi_i64(cpu_ir[rc], -lit);
2075                     else
2076                         tcg_gen_neg_i64(cpu_ir[rc], cpu_ir[rb]);
2077                 }
2078             }
2079             break;
2080         case 0x3D:
2081             /* CMPULE */
2082             gen_cmp(TCG_COND_LEU, ra, rb, rc, islit, lit);
2083             break;
2084         case 0x40:
2085             /* ADDL/V */
2086             gen_addlv(ra, rb, rc, islit, lit);
2087             break;
2088         case 0x49:
2089             /* SUBL/V */
2090             gen_sublv(ra, rb, rc, islit, lit);
2091             break;
2092         case 0x4D:
2093             /* CMPLT */
2094             gen_cmp(TCG_COND_LT, ra, rb, rc, islit, lit);
2095             break;
2096         case 0x60:
2097             /* ADDQ/V */
2098             gen_addqv(ra, rb, rc, islit, lit);
2099             break;
2100         case 0x69:
2101             /* SUBQ/V */
2102             gen_subqv(ra, rb, rc, islit, lit);
2103             break;
2104         case 0x6D:
2105             /* CMPLE */
2106             gen_cmp(TCG_COND_LE, ra, rb, rc, islit, lit);
2107             break;
2108         default:
2109             goto invalid_opc;
2110         }
2111         break;
2112     case 0x11:
2113         switch (fn7) {
2114         case 0x00:
2115             /* AND */
2116             if (likely(rc != 31)) {
2117                 if (ra == 31)
2118                     tcg_gen_movi_i64(cpu_ir[rc], 0);
2119                 else if (islit)
2120                     tcg_gen_andi_i64(cpu_ir[rc], cpu_ir[ra], lit);
2121                 else
2122                     tcg_gen_and_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2123             }
2124             break;
2125         case 0x08:
2126             /* BIC */
2127             if (likely(rc != 31)) {
2128                 if (ra != 31) {
2129                     if (islit)
2130                         tcg_gen_andi_i64(cpu_ir[rc], cpu_ir[ra], ~lit);
2131                     else
2132                         tcg_gen_andc_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2133                 } else
2134                     tcg_gen_movi_i64(cpu_ir[rc], 0);
2135             }
2136             break;
2137         case 0x14:
2138             /* CMOVLBS */
2139             gen_cmov(TCG_COND_NE, ra, rb, rc, islit, lit, 1);
2140             break;
2141         case 0x16:
2142             /* CMOVLBC */
2143             gen_cmov(TCG_COND_EQ, ra, rb, rc, islit, lit, 1);
2144             break;
2145         case 0x20:
2146             /* BIS */
2147             if (likely(rc != 31)) {
2148                 if (ra != 31) {
2149                     if (islit)
2150                         tcg_gen_ori_i64(cpu_ir[rc], cpu_ir[ra], lit);
2151                     else
2152                         tcg_gen_or_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2153                 } else {
2154                     if (islit)
2155                         tcg_gen_movi_i64(cpu_ir[rc], lit);
2156                     else
2157                         tcg_gen_mov_i64(cpu_ir[rc], cpu_ir[rb]);
2158                 }
2159             }
2160             break;
2161         case 0x24:
2162             /* CMOVEQ */
2163             gen_cmov(TCG_COND_EQ, ra, rb, rc, islit, lit, 0);
2164             break;
2165         case 0x26:
2166             /* CMOVNE */
2167             gen_cmov(TCG_COND_NE, ra, rb, rc, islit, lit, 0);
2168             break;
2169         case 0x28:
2170             /* ORNOT */
2171             if (likely(rc != 31)) {
2172                 if (ra != 31) {
2173                     if (islit)
2174                         tcg_gen_ori_i64(cpu_ir[rc], cpu_ir[ra], ~lit);
2175                     else
2176                         tcg_gen_orc_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2177                 } else {
2178                     if (islit)
2179                         tcg_gen_movi_i64(cpu_ir[rc], ~lit);
2180                     else
2181                         tcg_gen_not_i64(cpu_ir[rc], cpu_ir[rb]);
2182                 }
2183             }
2184             break;
2185         case 0x40:
2186             /* XOR */
2187             if (likely(rc != 31)) {
2188                 if (ra != 31) {
2189                     if (islit)
2190                         tcg_gen_xori_i64(cpu_ir[rc], cpu_ir[ra], lit);
2191                     else
2192                         tcg_gen_xor_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2193                 } else {
2194                     if (islit)
2195                         tcg_gen_movi_i64(cpu_ir[rc], lit);
2196                     else
2197                         tcg_gen_mov_i64(cpu_ir[rc], cpu_ir[rb]);
2198                 }
2199             }
2200             break;
2201         case 0x44:
2202             /* CMOVLT */
2203             gen_cmov(TCG_COND_LT, ra, rb, rc, islit, lit, 0);
2204             break;
2205         case 0x46:
2206             /* CMOVGE */
2207             gen_cmov(TCG_COND_GE, ra, rb, rc, islit, lit, 0);
2208             break;
2209         case 0x48:
2210             /* EQV */
2211             if (likely(rc != 31)) {
2212                 if (ra != 31) {
2213                     if (islit)
2214                         tcg_gen_xori_i64(cpu_ir[rc], cpu_ir[ra], ~lit);
2215                     else
2216                         tcg_gen_eqv_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2217                 } else {
2218                     if (islit)
2219                         tcg_gen_movi_i64(cpu_ir[rc], ~lit);
2220                     else
2221                         tcg_gen_not_i64(cpu_ir[rc], cpu_ir[rb]);
2222                 }
2223             }
2224             break;
2225         case 0x61:
2226             /* AMASK */
2227             if (likely(rc != 31)) {
2228                 uint64_t amask = ctx->tb->flags >> TB_FLAGS_AMASK_SHIFT;
2229
2230                 if (islit) {
2231                     tcg_gen_movi_i64(cpu_ir[rc], lit & ~amask);
2232                 } else {
2233                     tcg_gen_andi_i64(cpu_ir[rc], cpu_ir[rb], ~amask);
2234                 }
2235             }
2236             break;
2237         case 0x64:
2238             /* CMOVLE */
2239             gen_cmov(TCG_COND_LE, ra, rb, rc, islit, lit, 0);
2240             break;
2241         case 0x66:
2242             /* CMOVGT */
2243             gen_cmov(TCG_COND_GT, ra, rb, rc, islit, lit, 0);
2244             break;
2245         case 0x6C:
2246             /* IMPLVER */
2247             if (rc != 31)
2248                 tcg_gen_movi_i64(cpu_ir[rc], ctx->env->implver);
2249             break;
2250         default:
2251             goto invalid_opc;
2252         }
2253         break;
2254     case 0x12:
2255         switch (fn7) {
2256         case 0x02:
2257             /* MSKBL */
2258             gen_msk_l(ra, rb, rc, islit, lit, 0x01);
2259             break;
2260         case 0x06:
2261             /* EXTBL */
2262             gen_ext_l(ra, rb, rc, islit, lit, 0x01);
2263             break;
2264         case 0x0B:
2265             /* INSBL */
2266             gen_ins_l(ra, rb, rc, islit, lit, 0x01);
2267             break;
2268         case 0x12:
2269             /* MSKWL */
2270             gen_msk_l(ra, rb, rc, islit, lit, 0x03);
2271             break;
2272         case 0x16:
2273             /* EXTWL */
2274             gen_ext_l(ra, rb, rc, islit, lit, 0x03);
2275             break;
2276         case 0x1B:
2277             /* INSWL */
2278             gen_ins_l(ra, rb, rc, islit, lit, 0x03);
2279             break;
2280         case 0x22:
2281             /* MSKLL */
2282             gen_msk_l(ra, rb, rc, islit, lit, 0x0f);
2283             break;
2284         case 0x26:
2285             /* EXTLL */
2286             gen_ext_l(ra, rb, rc, islit, lit, 0x0f);
2287             break;
2288         case 0x2B:
2289             /* INSLL */
2290             gen_ins_l(ra, rb, rc, islit, lit, 0x0f);
2291             break;
2292         case 0x30:
2293             /* ZAP */
2294             gen_zap(ra, rb, rc, islit, lit);
2295             break;
2296         case 0x31:
2297             /* ZAPNOT */
2298             gen_zapnot(ra, rb, rc, islit, lit);
2299             break;
2300         case 0x32:
2301             /* MSKQL */
2302             gen_msk_l(ra, rb, rc, islit, lit, 0xff);
2303             break;
2304         case 0x34:
2305             /* SRL */
2306             if (likely(rc != 31)) {
2307                 if (ra != 31) {
2308                     if (islit)
2309                         tcg_gen_shri_i64(cpu_ir[rc], cpu_ir[ra], lit & 0x3f);
2310                     else {
2311                         TCGv shift = tcg_temp_new();
2312                         tcg_gen_andi_i64(shift, cpu_ir[rb], 0x3f);
2313                         tcg_gen_shr_i64(cpu_ir[rc], cpu_ir[ra], shift);
2314                         tcg_temp_free(shift);
2315                     }
2316                 } else
2317                     tcg_gen_movi_i64(cpu_ir[rc], 0);
2318             }
2319             break;
2320         case 0x36:
2321             /* EXTQL */
2322             gen_ext_l(ra, rb, rc, islit, lit, 0xff);
2323             break;
2324         case 0x39:
2325             /* SLL */
2326             if (likely(rc != 31)) {
2327                 if (ra != 31) {
2328                     if (islit)
2329                         tcg_gen_shli_i64(cpu_ir[rc], cpu_ir[ra], lit & 0x3f);
2330                     else {
2331                         TCGv shift = tcg_temp_new();
2332                         tcg_gen_andi_i64(shift, cpu_ir[rb], 0x3f);
2333                         tcg_gen_shl_i64(cpu_ir[rc], cpu_ir[ra], shift);
2334                         tcg_temp_free(shift);
2335                     }
2336                 } else
2337                     tcg_gen_movi_i64(cpu_ir[rc], 0);
2338             }
2339             break;
2340         case 0x3B:
2341             /* INSQL */
2342             gen_ins_l(ra, rb, rc, islit, lit, 0xff);
2343             break;
2344         case 0x3C:
2345             /* SRA */
2346             if (likely(rc != 31)) {
2347                 if (ra != 31) {
2348                     if (islit)
2349                         tcg_gen_sari_i64(cpu_ir[rc], cpu_ir[ra], lit & 0x3f);
2350                     else {
2351                         TCGv shift = tcg_temp_new();
2352                         tcg_gen_andi_i64(shift, cpu_ir[rb], 0x3f);
2353                         tcg_gen_sar_i64(cpu_ir[rc], cpu_ir[ra], shift);
2354                         tcg_temp_free(shift);
2355                     }
2356                 } else
2357                     tcg_gen_movi_i64(cpu_ir[rc], 0);
2358             }
2359             break;
2360         case 0x52:
2361             /* MSKWH */
2362             gen_msk_h(ra, rb, rc, islit, lit, 0x03);
2363             break;
2364         case 0x57:
2365             /* INSWH */
2366             gen_ins_h(ra, rb, rc, islit, lit, 0x03);
2367             break;
2368         case 0x5A:
2369             /* EXTWH */
2370             gen_ext_h(ra, rb, rc, islit, lit, 0x03);
2371             break;
2372         case 0x62:
2373             /* MSKLH */
2374             gen_msk_h(ra, rb, rc, islit, lit, 0x0f);
2375             break;
2376         case 0x67:
2377             /* INSLH */
2378             gen_ins_h(ra, rb, rc, islit, lit, 0x0f);
2379             break;
2380         case 0x6A:
2381             /* EXTLH */
2382             gen_ext_h(ra, rb, rc, islit, lit, 0x0f);
2383             break;
2384         case 0x72:
2385             /* MSKQH */
2386             gen_msk_h(ra, rb, rc, islit, lit, 0xff);
2387             break;
2388         case 0x77:
2389             /* INSQH */
2390             gen_ins_h(ra, rb, rc, islit, lit, 0xff);
2391             break;
2392         case 0x7A:
2393             /* EXTQH */
2394             gen_ext_h(ra, rb, rc, islit, lit, 0xff);
2395             break;
2396         default:
2397             goto invalid_opc;
2398         }
2399         break;
2400     case 0x13:
2401         switch (fn7) {
2402         case 0x00:
2403             /* MULL */
2404             if (likely(rc != 31)) {
2405                 if (ra == 31)
2406                     tcg_gen_movi_i64(cpu_ir[rc], 0);
2407                 else {
2408                     if (islit)
2409                         tcg_gen_muli_i64(cpu_ir[rc], cpu_ir[ra], lit);
2410                     else
2411                         tcg_gen_mul_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2412                     tcg_gen_ext32s_i64(cpu_ir[rc], cpu_ir[rc]);
2413                 }
2414             }
2415             break;
2416         case 0x20:
2417             /* MULQ */
2418             if (likely(rc != 31)) {
2419                 if (ra == 31)
2420                     tcg_gen_movi_i64(cpu_ir[rc], 0);
2421                 else if (islit)
2422                     tcg_gen_muli_i64(cpu_ir[rc], cpu_ir[ra], lit);
2423                 else
2424                     tcg_gen_mul_i64(cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2425             }
2426             break;
2427         case 0x30:
2428             /* UMULH */
2429             {
2430                 TCGv low;
2431                 if (unlikely(rc == 31)){
2432                     break;
2433                 }
2434                 if (ra == 31) {
2435                     tcg_gen_movi_i64(cpu_ir[rc], 0);
2436                     break;
2437                 }
2438                 low = tcg_temp_new();
2439                 if (islit) {
2440                     tcg_gen_movi_tl(low, lit);
2441                     tcg_gen_mulu2_i64(low, cpu_ir[rc], cpu_ir[ra], low);
2442                 } else {
2443                     tcg_gen_mulu2_i64(low, cpu_ir[rc], cpu_ir[ra], cpu_ir[rb]);
2444                 }
2445                 tcg_temp_free(low);
2446             }
2447             break;
2448         case 0x40:
2449             /* MULL/V */
2450             gen_mullv(ra, rb, rc, islit, lit);
2451             break;
2452         case 0x60:
2453             /* MULQ/V */
2454             gen_mulqv(ra, rb, rc, islit, lit);
2455             break;
2456         default:
2457             goto invalid_opc;
2458         }
2459         break;
2460     case 0x14:
2461         switch (fpfn) { /* fn11 & 0x3F */
2462         case 0x04:
2463             /* ITOFS */
2464             if ((ctx->tb->flags & TB_FLAGS_AMASK_FIX) == 0) {
2465                 goto invalid_opc;
2466             }
2467             if (likely(rc != 31)) {
2468                 if (ra != 31) {
2469                     TCGv_i32 tmp = tcg_temp_new_i32();
2470                     tcg_gen_trunc_i64_i32(tmp, cpu_ir[ra]);
2471                     gen_helper_memory_to_s(cpu_fir[rc], tmp);
2472                     tcg_temp_free_i32(tmp);
2473                 } else
2474                     tcg_gen_movi_i64(cpu_fir[rc], 0);
2475             }
2476             break;
2477         case 0x0A:
2478             /* SQRTF */
2479             if (ctx->tb->flags & TB_FLAGS_AMASK_FIX) {
2480                 gen_fsqrtf(rb, rc);
2481                 break;
2482             }
2483             goto invalid_opc;
2484         case 0x0B:
2485             /* SQRTS */
2486             if (ctx->tb->flags & TB_FLAGS_AMASK_FIX) {
2487                 gen_fsqrts(ctx, rb, rc, fn11);
2488                 break;
2489             }
2490             goto invalid_opc;
2491         case 0x14:
2492             /* ITOFF */
2493             if ((ctx->tb->flags & TB_FLAGS_AMASK_FIX) == 0) {
2494                 goto invalid_opc;
2495             }
2496             if (likely(rc != 31)) {
2497                 if (ra != 31) {
2498                     TCGv_i32 tmp = tcg_temp_new_i32();
2499                     tcg_gen_trunc_i64_i32(tmp, cpu_ir[ra]);
2500                     gen_helper_memory_to_f(cpu_fir[rc], tmp);
2501                     tcg_temp_free_i32(tmp);
2502                 } else
2503                     tcg_gen_movi_i64(cpu_fir[rc], 0);
2504             }
2505             break;
2506         case 0x24:
2507             /* ITOFT */
2508             if ((ctx->tb->flags & TB_FLAGS_AMASK_FIX) == 0) {
2509                 goto invalid_opc;
2510             }
2511             if (likely(rc != 31)) {
2512                 if (ra != 31)
2513                     tcg_gen_mov_i64(cpu_fir[rc], cpu_ir[ra]);
2514                 else
2515                     tcg_gen_movi_i64(cpu_fir[rc], 0);
2516             }
2517             break;
2518         case 0x2A:
2519             /* SQRTG */
2520             if (ctx->tb->flags & TB_FLAGS_AMASK_FIX) {
2521                 gen_fsqrtg(rb, rc);
2522                 break;
2523             }
2524             goto invalid_opc;
2525         case 0x02B:
2526             /* SQRTT */
2527             if (ctx->tb->flags & TB_FLAGS_AMASK_FIX) {
2528                 gen_fsqrtt(ctx, rb, rc, fn11);
2529                 break;
2530             }
2531             goto invalid_opc;
2532         default:
2533             goto invalid_opc;
2534         }
2535         break;
2536     case 0x15:
2537         /* VAX floating point */
2538         /* XXX: rounding mode and trap are ignored (!) */
2539         switch (fpfn) { /* fn11 & 0x3F */
2540         case 0x00:
2541             /* ADDF */
2542             gen_faddf(ra, rb, rc);
2543             break;
2544         case 0x01:
2545             /* SUBF */
2546             gen_fsubf(ra, rb, rc);
2547             break;
2548         case 0x02:
2549             /* MULF */
2550             gen_fmulf(ra, rb, rc);
2551             break;
2552         case 0x03:
2553             /* DIVF */
2554             gen_fdivf(ra, rb, rc);
2555             break;
2556         case 0x1E:
2557             /* CVTDG */
2558 #if 0 // TODO
2559             gen_fcvtdg(rb, rc);
2560 #else
2561             goto invalid_opc;
2562 #endif
2563             break;
2564         case 0x20:
2565             /* ADDG */
2566             gen_faddg(ra, rb, rc);
2567             break;
2568         case 0x21:
2569             /* SUBG */
2570             gen_fsubg(ra, rb, rc);
2571             break;
2572         case 0x22:
2573             /* MULG */
2574             gen_fmulg(ra, rb, rc);
2575             break;
2576         case 0x23:
2577             /* DIVG */
2578             gen_fdivg(ra, rb, rc);
2579             break;
2580         case 0x25:
2581             /* CMPGEQ */
2582             gen_fcmpgeq(ra, rb, rc);
2583             break;
2584         case 0x26:
2585             /* CMPGLT */
2586             gen_fcmpglt(ra, rb, rc);
2587             break;
2588         case 0x27:
2589             /* CMPGLE */
2590             gen_fcmpgle(ra, rb, rc);
2591             break;
2592         case 0x2C:
2593             /* CVTGF */
2594             gen_fcvtgf(rb, rc);
2595             break;
2596         case 0x2D:
2597             /* CVTGD */
2598 #if 0 // TODO
2599             gen_fcvtgd(rb, rc);
2600 #else
2601             goto invalid_opc;
2602 #endif
2603             break;
2604         case 0x2F:
2605             /* CVTGQ */
2606             gen_fcvtgq(rb, rc);
2607             break;
2608         case 0x3C:
2609             /* CVTQF */
2610             gen_fcvtqf(rb, rc);
2611             break;
2612         case 0x3E:
2613             /* CVTQG */
2614             gen_fcvtqg(rb, rc);
2615             break;
2616         default:
2617             goto invalid_opc;
2618         }
2619         break;
2620     case 0x16:
2621         /* IEEE floating-point */
2622         switch (fpfn) { /* fn11 & 0x3F */
2623         case 0x00:
2624             /* ADDS */
2625             gen_fadds(ctx, ra, rb, rc, fn11);
2626             break;
2627         case 0x01:
2628             /* SUBS */
2629             gen_fsubs(ctx, ra, rb, rc, fn11);
2630             break;
2631         case 0x02:
2632             /* MULS */
2633             gen_fmuls(ctx, ra, rb, rc, fn11);
2634             break;
2635         case 0x03:
2636             /* DIVS */
2637             gen_fdivs(ctx, ra, rb, rc, fn11);
2638             break;
2639         case 0x20:
2640             /* ADDT */
2641             gen_faddt(ctx, ra, rb, rc, fn11);
2642             break;
2643         case 0x21:
2644             /* SUBT */
2645             gen_fsubt(ctx, ra, rb, rc, fn11);
2646             break;
2647         case 0x22:
2648             /* MULT */
2649             gen_fmult(ctx, ra, rb, rc, fn11);
2650             break;
2651         case 0x23:
2652             /* DIVT */
2653             gen_fdivt(ctx, ra, rb, rc, fn11);
2654             break;
2655         case 0x24:
2656             /* CMPTUN */
2657             gen_fcmptun(ctx, ra, rb, rc, fn11);
2658             break;
2659         case 0x25:
2660             /* CMPTEQ */
2661             gen_fcmpteq(ctx, ra, rb, rc, fn11);
2662             break;
2663         case 0x26:
2664             /* CMPTLT */
2665             gen_fcmptlt(ctx, ra, rb, rc, fn11);
2666             break;
2667         case 0x27:
2668             /* CMPTLE */
2669             gen_fcmptle(ctx, ra, rb, rc, fn11);
2670             break;
2671         case 0x2C:
2672             if (fn11 == 0x2AC || fn11 == 0x6AC) {
2673                 /* CVTST */
2674                 gen_fcvtst(ctx, rb, rc, fn11);
2675             } else {
2676                 /* CVTTS */
2677                 gen_fcvtts(ctx, rb, rc, fn11);
2678             }
2679             break;
2680         case 0x2F:
2681             /* CVTTQ */
2682             gen_fcvttq(ctx, rb, rc, fn11);
2683             break;
2684         case 0x3C:
2685             /* CVTQS */
2686             gen_fcvtqs(ctx, rb, rc, fn11);
2687             break;
2688         case 0x3E:
2689             /* CVTQT */
2690             gen_fcvtqt(ctx, rb, rc, fn11);
2691             break;
2692         default:
2693             goto invalid_opc;
2694         }
2695         break;
2696     case 0x17:
2697         switch (fn11) {
2698         case 0x010:
2699             /* CVTLQ */
2700             gen_fcvtlq(rb, rc);
2701             break;
2702         case 0x020:
2703             if (likely(rc != 31)) {
2704                 if (ra == rb) {
2705                     /* FMOV */
2706                     if (ra == 31)
2707                         tcg_gen_movi_i64(cpu_fir[rc], 0);
2708                     else
2709                         tcg_gen_mov_i64(cpu_fir[rc], cpu_fir[ra]);
2710                 } else {
2711                     /* CPYS */
2712                     gen_fcpys(ra, rb, rc);
2713                 }
2714             }
2715             break;
2716         case 0x021:
2717             /* CPYSN */
2718             gen_fcpysn(ra, rb, rc);
2719             break;
2720         case 0x022:
2721             /* CPYSE */
2722             gen_fcpyse(ra, rb, rc);
2723             break;
2724         case 0x024:
2725             /* MT_FPCR */
2726             if (likely(ra != 31))
2727                 gen_helper_store_fpcr(cpu_env, cpu_fir[ra]);
2728             else {
2729                 TCGv tmp = tcg_const_i64(0);
2730                 gen_helper_store_fpcr(cpu_env, tmp);
2731                 tcg_temp_free(tmp);
2732             }
2733             break;
2734         case 0x025:
2735             /* MF_FPCR */
2736             if (likely(ra != 31))
2737                 gen_helper_load_fpcr(cpu_fir[ra], cpu_env);
2738             break;
2739         case 0x02A:
2740             /* FCMOVEQ */
2741             gen_fcmov(TCG_COND_EQ, ra, rb, rc);
2742             break;
2743         case 0x02B:
2744             /* FCMOVNE */
2745             gen_fcmov(TCG_COND_NE, ra, rb, rc);
2746             break;
2747         case 0x02C:
2748             /* FCMOVLT */
2749             gen_fcmov(TCG_COND_LT, ra, rb, rc);
2750             break;
2751         case 0x02D:
2752             /* FCMOVGE */
2753             gen_fcmov(TCG_COND_GE, ra, rb, rc);
2754             break;
2755         case 0x02E:
2756             /* FCMOVLE */
2757             gen_fcmov(TCG_COND_LE, ra, rb, rc);
2758             break;
2759         case 0x02F:
2760             /* FCMOVGT */
2761             gen_fcmov(TCG_COND_GT, ra, rb, rc);
2762             break;
2763         case 0x030:
2764             /* CVTQL */
2765             gen_fcvtql(rb, rc);
2766             break;
2767         case 0x130:
2768             /* CVTQL/V */
2769         case 0x530:
2770             /* CVTQL/SV */
2771             /* ??? I'm pretty sure there's nothing that /sv needs to do that
2772                /v doesn't do.  The only thing I can think is that /sv is a
2773                valid instruction merely for completeness in the ISA.  */
2774             gen_fcvtql_v(ctx, rb, rc);
2775             break;
2776         default:
2777             goto invalid_opc;
2778         }
2779         break;
2780     case 0x18:
2781         switch ((uint16_t)disp16) {
2782         case 0x0000:
2783             /* TRAPB */
2784             /* No-op.  */
2785             break;
2786         case 0x0400:
2787             /* EXCB */
2788             /* No-op.  */
2789             break;
2790         case 0x4000:
2791             /* MB */
2792             /* No-op */
2793             break;
2794         case 0x4400:
2795             /* WMB */
2796             /* No-op */
2797             break;
2798         case 0x8000:
2799             /* FETCH */
2800             /* No-op */
2801             break;
2802         case 0xA000:
2803             /* FETCH_M */
2804             /* No-op */
2805             break;
2806         case 0xC000:
2807             /* RPCC */
2808             if (ra != 31) {
2809                 if (use_icount) {
2810                     gen_io_start();
2811                     gen_helper_load_pcc(cpu_ir[ra], cpu_env);
2812                     gen_io_end();
2813                     ret = EXIT_PC_STALE;
2814                 } else {
2815                     gen_helper_load_pcc(cpu_ir[ra], cpu_env);
2816                 }
2817             }
2818             break;
2819         case 0xE000:
2820             /* RC */
2821             gen_rx(ra, 0);
2822             break;
2823         case 0xE800:
2824             /* ECB */
2825             break;
2826         case 0xF000:
2827             /* RS */
2828             gen_rx(ra, 1);
2829             break;
2830         case 0xF800:
2831             /* WH64 */
2832             /* No-op */
2833             break;
2834         default:
2835             goto invalid_opc;
2836         }
2837         break;
2838     case 0x19:
2839         /* HW_MFPR (PALcode) */
2840 #ifndef CONFIG_USER_ONLY
2841         if (ctx->tb->flags & TB_FLAGS_PAL_MODE) {
2842             return gen_mfpr(ra, insn & 0xffff);
2843         }
2844 #endif
2845         goto invalid_opc;
2846     case 0x1A:
2847         /* JMP, JSR, RET, JSR_COROUTINE.  These only differ by the branch
2848            prediction stack action, which of course we don't implement.  */
2849         if (rb != 31) {
2850             tcg_gen_andi_i64(cpu_pc, cpu_ir[rb], ~3);
2851         } else {
2852             tcg_gen_movi_i64(cpu_pc, 0);
2853         }
2854         if (ra != 31) {
2855             tcg_gen_movi_i64(cpu_ir[ra], ctx->pc);
2856         }
2857         ret = EXIT_PC_UPDATED;
2858         break;
2859     case 0x1B:
2860         /* HW_LD (PALcode) */
2861 #ifndef CONFIG_USER_ONLY
2862         if (ctx->tb->flags & TB_FLAGS_PAL_MODE) {
2863             TCGv addr;
2864
2865             if (ra == 31) {
2866                 break;
2867             }
2868
2869             addr = tcg_temp_new();
2870             if (rb != 31)
2871                 tcg_gen_addi_i64(addr, cpu_ir[rb], disp12);
2872             else
2873                 tcg_gen_movi_i64(addr, disp12);
2874             switch ((insn >> 12) & 0xF) {
2875             case 0x0:
2876                 /* Longword physical access (hw_ldl/p) */
2877                 gen_helper_ldl_phys(cpu_ir[ra], addr);
2878                 break;
2879             case 0x1:
2880                 /* Quadword physical access (hw_ldq/p) */
2881                 gen_helper_ldq_phys(cpu_ir[ra], addr);
2882                 break;
2883             case 0x2:
2884                 /* Longword physical access with lock (hw_ldl_l/p) */
2885                 gen_helper_ldl_l_phys(cpu_ir[ra], cpu_env, addr);
2886                 break;
2887             case 0x3:
2888                 /* Quadword physical access with lock (hw_ldq_l/p) */
2889                 gen_helper_ldq_l_phys(cpu_ir[ra], cpu_env, addr);
2890                 break;
2891             case 0x4:
2892                 /* Longword virtual PTE fetch (hw_ldl/v) */
2893                 goto invalid_opc;
2894             case 0x5:
2895                 /* Quadword virtual PTE fetch (hw_ldq/v) */
2896                 goto invalid_opc;
2897                 break;
2898             case 0x6:
2899                 /* Incpu_ir[ra]id */
2900                 goto invalid_opc;
2901             case 0x7:
2902                 /* Incpu_ir[ra]id */
2903                 goto invalid_opc;
2904             case 0x8:
2905                 /* Longword virtual access (hw_ldl) */
2906                 goto invalid_opc;
2907             case 0x9:
2908                 /* Quadword virtual access (hw_ldq) */
2909                 goto invalid_opc;
2910             case 0xA:
2911                 /* Longword virtual access with protection check (hw_ldl/w) */
2912                 tcg_gen_qemu_ld32s(cpu_ir[ra], addr, MMU_KERNEL_IDX);
2913                 break;
2914             case 0xB:
2915                 /* Quadword virtual access with protection check (hw_ldq/w) */
2916                 tcg_gen_qemu_ld64(cpu_ir[ra], addr, MMU_KERNEL_IDX);
2917                 break;
2918             case 0xC:
2919                 /* Longword virtual access with alt access mode (hw_ldl/a)*/
2920                 goto invalid_opc;
2921             case 0xD:
2922                 /* Quadword virtual access with alt access mode (hw_ldq/a) */
2923                 goto invalid_opc;
2924             case 0xE:
2925                 /* Longword virtual access with alternate access mode and
2926                    protection checks (hw_ldl/wa) */
2927                 tcg_gen_qemu_ld32s(cpu_ir[ra], addr, MMU_USER_IDX);
2928                 break;
2929             case 0xF:
2930                 /* Quadword virtual access with alternate access mode and
2931                    protection checks (hw_ldq/wa) */
2932                 tcg_gen_qemu_ld64(cpu_ir[ra], addr, MMU_USER_IDX);
2933                 break;
2934             }
2935             tcg_temp_free(addr);
2936             break;
2937         }
2938 #endif
2939         goto invalid_opc;
2940     case 0x1C:
2941         switch (fn7) {
2942         case 0x00:
2943             /* SEXTB */
2944             if ((ctx->tb->flags & TB_FLAGS_AMASK_BWX) == 0) {
2945                 goto invalid_opc;
2946             }
2947             if (likely(rc != 31)) {
2948                 if (islit)
2949                     tcg_gen_movi_i64(cpu_ir[rc], (int64_t)((int8_t)lit));
2950                 else
2951                     tcg_gen_ext8s_i64(cpu_ir[rc], cpu_ir[rb]);
2952             }
2953             break;
2954         case 0x01:
2955             /* SEXTW */
2956             if (ctx->tb->flags & TB_FLAGS_AMASK_BWX) {
2957                 if (likely(rc != 31)) {
2958                     if (islit) {
2959                         tcg_gen_movi_i64(cpu_ir[rc], (int64_t)((int16_t)lit));
2960                     } else {
2961                         tcg_gen_ext16s_i64(cpu_ir[rc], cpu_ir[rb]);
2962                     }
2963                 }
2964                 break;
2965             }
2966             goto invalid_opc;
2967         case 0x30:
2968             /* CTPOP */
2969             if (ctx->tb->flags & TB_FLAGS_AMASK_CIX) {
2970                 if (likely(rc != 31)) {
2971                     if (islit) {
2972                         tcg_gen_movi_i64(cpu_ir[rc], ctpop64(lit));
2973                     } else {
2974                         gen_helper_ctpop(cpu_ir[rc], cpu_ir[rb]);
2975                     }
2976                 }
2977                 break;
2978             }
2979             goto invalid_opc;
2980         case 0x31:
2981             /* PERR */
2982             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
2983                 gen_perr(ra, rb, rc, islit, lit);
2984                 break;
2985             }
2986             goto invalid_opc;
2987         case 0x32:
2988             /* CTLZ */
2989             if (ctx->tb->flags & TB_FLAGS_AMASK_CIX) {
2990                 if (likely(rc != 31)) {
2991                     if (islit) {
2992                         tcg_gen_movi_i64(cpu_ir[rc], clz64(lit));
2993                     } else {
2994                         gen_helper_ctlz(cpu_ir[rc], cpu_ir[rb]);
2995                     }
2996                 }
2997                 break;
2998             }
2999             goto invalid_opc;
3000         case 0x33:
3001             /* CTTZ */
3002             if (ctx->tb->flags & TB_FLAGS_AMASK_CIX) {
3003                 if (likely(rc != 31)) {
3004                     if (islit) {
3005                         tcg_gen_movi_i64(cpu_ir[rc], ctz64(lit));
3006                     } else {
3007                         gen_helper_cttz(cpu_ir[rc], cpu_ir[rb]);
3008                     }
3009                 }
3010                 break;
3011             }
3012             goto invalid_opc;
3013         case 0x34:
3014             /* UNPKBW */
3015             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3016                 if (real_islit || ra != 31) {
3017                     goto invalid_opc;
3018                 }
3019                 gen_unpkbw(rb, rc);
3020                 break;
3021             }
3022             goto invalid_opc;
3023         case 0x35:
3024             /* UNPKBL */
3025             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3026                 if (real_islit || ra != 31) {
3027                     goto invalid_opc;
3028                 }
3029                 gen_unpkbl(rb, rc);
3030                 break;
3031             }
3032             goto invalid_opc;
3033         case 0x36:
3034             /* PKWB */
3035             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3036                 if (real_islit || ra != 31) {
3037                     goto invalid_opc;
3038                 }
3039                 gen_pkwb(rb, rc);
3040                 break;
3041             }
3042             goto invalid_opc;
3043         case 0x37:
3044             /* PKLB */
3045             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3046                 if (real_islit || ra != 31) {
3047                     goto invalid_opc;
3048                 }
3049                 gen_pklb(rb, rc);
3050                 break;
3051             }
3052             goto invalid_opc;
3053         case 0x38:
3054             /* MINSB8 */
3055             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3056                 gen_minsb8(ra, rb, rc, islit, lit);
3057                 break;
3058             }
3059             goto invalid_opc;
3060         case 0x39:
3061             /* MINSW4 */
3062             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3063                 gen_minsw4(ra, rb, rc, islit, lit);
3064                 break;
3065             }
3066             goto invalid_opc;
3067         case 0x3A:
3068             /* MINUB8 */
3069             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3070                 gen_minub8(ra, rb, rc, islit, lit);
3071                 break;
3072             }
3073             goto invalid_opc;
3074         case 0x3B:
3075             /* MINUW4 */
3076             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3077                 gen_minuw4(ra, rb, rc, islit, lit);
3078                 break;
3079             }
3080             goto invalid_opc;
3081         case 0x3C:
3082             /* MAXUB8 */
3083             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3084                 gen_maxub8(ra, rb, rc, islit, lit);
3085                 break;
3086             }
3087             goto invalid_opc;
3088         case 0x3D:
3089             /* MAXUW4 */
3090             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3091                 gen_maxuw4(ra, rb, rc, islit, lit);
3092                 break;
3093             }
3094             goto invalid_opc;
3095         case 0x3E:
3096             /* MAXSB8 */
3097             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3098                 gen_maxsb8(ra, rb, rc, islit, lit);
3099                 break;
3100             }
3101             goto invalid_opc;
3102         case 0x3F:
3103             /* MAXSW4 */
3104             if (ctx->tb->flags & TB_FLAGS_AMASK_MVI) {
3105                 gen_maxsw4(ra, rb, rc, islit, lit);
3106                 break;
3107             }
3108             goto invalid_opc;
3109         case 0x70:
3110             /* FTOIT */
3111             if ((ctx->tb->flags & TB_FLAGS_AMASK_FIX) == 0) {
3112                 goto invalid_opc;
3113             }
3114             if (likely(rc != 31)) {
3115                 if (ra != 31)
3116                     tcg_gen_mov_i64(cpu_ir[rc], cpu_fir[ra]);
3117                 else
3118                     tcg_gen_movi_i64(cpu_ir[rc], 0);
3119             }
3120             break;
3121         case 0x78:
3122             /* FTOIS */
3123             if ((ctx->tb->flags & TB_FLAGS_AMASK_FIX) == 0) {
3124                 goto invalid_opc;
3125             }
3126             if (rc != 31) {
3127                 TCGv_i32 tmp1 = tcg_temp_new_i32();
3128                 if (ra != 31)
3129                     gen_helper_s_to_memory(tmp1, cpu_fir[ra]);
3130                 else {
3131                     TCGv tmp2 = tcg_const_i64(0);
3132                     gen_helper_s_to_memory(tmp1, tmp2);
3133                     tcg_temp_free(tmp2);
3134                 }
3135                 tcg_gen_ext_i32_i64(cpu_ir[rc], tmp1);
3136                 tcg_temp_free_i32(tmp1);
3137             }
3138             break;
3139         default:
3140             goto invalid_opc;
3141         }
3142         break;
3143     case 0x1D:
3144         /* HW_MTPR (PALcode) */
3145 #ifndef CONFIG_USER_ONLY
3146         if (ctx->tb->flags & TB_FLAGS_PAL_MODE) {
3147             return gen_mtpr(ctx, rb, insn & 0xffff);
3148         }
3149 #endif
3150         goto invalid_opc;
3151     case 0x1E:
3152         /* HW_RET (PALcode) */
3153 #ifndef CONFIG_USER_ONLY
3154         if (ctx->tb->flags & TB_FLAGS_PAL_MODE) {
3155             if (rb == 31) {
3156                 /* Pre-EV6 CPUs interpreted this as HW_REI, loading the return
3157                    address from EXC_ADDR.  This turns out to be useful for our
3158                    emulation PALcode, so continue to accept it.  */
3159                 TCGv tmp = tcg_temp_new();
3160                 tcg_gen_ld_i64(tmp, cpu_env, offsetof(CPUAlphaState, exc_addr));
3161                 gen_helper_hw_ret(cpu_env, tmp);
3162                 tcg_temp_free(tmp);
3163             } else {
3164                 gen_helper_hw_ret(cpu_env, cpu_ir[rb]);
3165             }
3166             ret = EXIT_PC_UPDATED;
3167             break;
3168         }
3169 #endif
3170         goto invalid_opc;
3171     case 0x1F:
3172         /* HW_ST (PALcode) */
3173 #ifndef CONFIG_USER_ONLY
3174         if (ctx->tb->flags & TB_FLAGS_PAL_MODE) {
3175             TCGv addr, val;
3176             addr = tcg_temp_new();
3177             if (rb != 31)
3178                 tcg_gen_addi_i64(addr, cpu_ir[rb], disp12);
3179             else
3180                 tcg_gen_movi_i64(addr, disp12);
3181             if (ra != 31)
3182                 val = cpu_ir[ra];
3183             else {
3184                 val = tcg_temp_new();
3185                 tcg_gen_movi_i64(val, 0);
3186             }
3187             switch ((insn >> 12) & 0xF) {
3188             case 0x0:
3189                 /* Longword physical access */
3190                 gen_helper_stl_phys(addr, val);
3191                 break;
3192             case 0x1:
3193                 /* Quadword physical access */
3194                 gen_helper_stq_phys(addr, val);
3195                 break;
3196             case 0x2:
3197                 /* Longword physical access with lock */
3198                 gen_helper_stl_c_phys(val, cpu_env, addr, val);
3199                 break;
3200             case 0x3:
3201                 /* Quadword physical access with lock */
3202                 gen_helper_stq_c_phys(val, cpu_env, addr, val);
3203                 break;
3204             case 0x4:
3205                 /* Longword virtual access */
3206                 goto invalid_opc;
3207             case 0x5:
3208                 /* Quadword virtual access */
3209                 goto invalid_opc;
3210             case 0x6:
3211                 /* Invalid */
3212                 goto invalid_opc;
3213             case 0x7:
3214                 /* Invalid */
3215                 goto invalid_opc;
3216             case 0x8:
3217                 /* Invalid */
3218                 goto invalid_opc;
3219             case 0x9:
3220                 /* Invalid */
3221                 goto invalid_opc;
3222             case 0xA:
3223                 /* Invalid */
3224                 goto invalid_opc;
3225             case 0xB:
3226                 /* Invalid */
3227                 goto invalid_opc;
3228             case 0xC:
3229                 /* Longword virtual access with alternate access mode */
3230                 goto invalid_opc;
3231             case 0xD:
3232                 /* Quadword virtual access with alternate access mode */
3233                 goto invalid_opc;
3234             case 0xE:
3235                 /* Invalid */
3236                 goto invalid_opc;
3237             case 0xF:
3238                 /* Invalid */
3239                 goto invalid_opc;
3240             }
3241             if (ra == 31)
3242                 tcg_temp_free(val);
3243             tcg_temp_free(addr);
3244             break;
3245         }
3246 #endif
3247         goto invalid_opc;
3248     case 0x20:
3249         /* LDF */
3250         gen_load_mem(ctx, &gen_qemu_ldf, ra, rb, disp16, 1, 0);
3251         break;
3252     case 0x21:
3253         /* LDG */
3254         gen_load_mem(ctx, &gen_qemu_ldg, ra, rb, disp16, 1, 0);
3255         break;
3256     case 0x22:
3257         /* LDS */
3258         gen_load_mem(ctx, &gen_qemu_lds, ra, rb, disp16, 1, 0);
3259         break;
3260     case 0x23:
3261         /* LDT */
3262         gen_load_mem(ctx, &tcg_gen_qemu_ld64, ra, rb, disp16, 1, 0);
3263         break;
3264     case 0x24:
3265         /* STF */
3266         gen_store_mem(ctx, &gen_qemu_stf, ra, rb, disp16, 1, 0);
3267         break;
3268     case 0x25:
3269         /* STG */
3270         gen_store_mem(ctx, &gen_qemu_stg, ra, rb, disp16, 1, 0);
3271         break;
3272     case 0x26:
3273         /* STS */
3274         gen_store_mem(ctx, &gen_qemu_sts, ra, rb, disp16, 1, 0);
3275         break;
3276     case 0x27:
3277         /* STT */
3278         gen_store_mem(ctx, &tcg_gen_qemu_st64, ra, rb, disp16, 1, 0);
3279         break;
3280     case 0x28:
3281         /* LDL */
3282         gen_load_mem(ctx, &tcg_gen_qemu_ld32s, ra, rb, disp16, 0, 0);
3283         break;
3284     case 0x29:
3285         /* LDQ */
3286         gen_load_mem(ctx, &tcg_gen_qemu_ld64, ra, rb, disp16, 0, 0);
3287         break;
3288     case 0x2A:
3289         /* LDL_L */
3290         gen_load_mem(ctx, &gen_qemu_ldl_l, ra, rb, disp16, 0, 0);
3291         break;
3292     case 0x2B:
3293         /* LDQ_L */
3294         gen_load_mem(ctx, &gen_qemu_ldq_l, ra, rb, disp16, 0, 0);
3295         break;
3296     case 0x2C:
3297         /* STL */
3298         gen_store_mem(ctx, &tcg_gen_qemu_st32, ra, rb, disp16, 0, 0);
3299         break;
3300     case 0x2D:
3301         /* STQ */
3302         gen_store_mem(ctx, &tcg_gen_qemu_st64, ra, rb, disp16, 0, 0);
3303         break;
3304     case 0x2E:
3305         /* STL_C */
3306         ret = gen_store_conditional(ctx, ra, rb, disp16, 0);
3307         break;
3308     case 0x2F:
3309         /* STQ_C */
3310         ret = gen_store_conditional(ctx, ra, rb, disp16, 1);
3311         break;
3312     case 0x30:
3313         /* BR */
3314         ret = gen_bdirect(ctx, ra, disp21);
3315         break;
3316     case 0x31: /* FBEQ */
3317         ret = gen_fbcond(ctx, TCG_COND_EQ, ra, disp21);
3318         break;
3319     case 0x32: /* FBLT */
3320         ret = gen_fbcond(ctx, TCG_COND_LT, ra, disp21);
3321         break;
3322     case 0x33: /* FBLE */
3323         ret = gen_fbcond(ctx, TCG_COND_LE, ra, disp21);
3324         break;
3325     case 0x34:
3326         /* BSR */
3327         ret = gen_bdirect(ctx, ra, disp21);
3328         break;
3329     case 0x35: /* FBNE */
3330         ret = gen_fbcond(ctx, TCG_COND_NE, ra, disp21);
3331         break;
3332     case 0x36: /* FBGE */
3333         ret = gen_fbcond(ctx, TCG_COND_GE, ra, disp21);
3334         break;
3335     case 0x37: /* FBGT */
3336         ret = gen_fbcond(ctx, TCG_COND_GT, ra, disp21);
3337         break;
3338     case 0x38:
3339         /* BLBC */
3340         ret = gen_bcond(ctx, TCG_COND_EQ, ra, disp21, 1);
3341         break;
3342     case 0x39:
3343         /* BEQ */
3344         ret = gen_bcond(ctx, TCG_COND_EQ, ra, disp21, 0);
3345         break;
3346     case 0x3A:
3347         /* BLT */
3348         ret = gen_bcond(ctx, TCG_COND_LT, ra, disp21, 0);
3349         break;
3350     case 0x3B:
3351         /* BLE */
3352         ret = gen_bcond(ctx, TCG_COND_LE, ra, disp21, 0);
3353         break;
3354     case 0x3C:
3355         /* BLBS */
3356         ret = gen_bcond(ctx, TCG_COND_NE, ra, disp21, 1);
3357         break;
3358     case 0x3D:
3359         /* BNE */
3360         ret = gen_bcond(ctx, TCG_COND_NE, ra, disp21, 0);
3361         break;
3362     case 0x3E:
3363         /* BGE */
3364         ret = gen_bcond(ctx, TCG_COND_GE, ra, disp21, 0);
3365         break;
3366     case 0x3F:
3367         /* BGT */
3368         ret = gen_bcond(ctx, TCG_COND_GT, ra, disp21, 0);
3369         break;
3370     invalid_opc:
3371         ret = gen_invalid(ctx);
3372         break;
3373     }
3374
3375     return ret;
3376 }
3377
3378 static inline void gen_intermediate_code_internal(CPUAlphaState *env,
3379                                                   TranslationBlock *tb,
3380                                                   int search_pc)
3381 {
3382     DisasContext ctx, *ctxp = &ctx;
3383     target_ulong pc_start;
3384     uint32_t insn;
3385     uint16_t *gen_opc_end;
3386     CPUBreakpoint *bp;
3387     int j, lj = -1;
3388     ExitStatus ret;
3389     int num_insns;
3390     int max_insns;
3391
3392     pc_start = tb->pc;
3393     gen_opc_end = tcg_ctx.gen_opc_buf + OPC_MAX_SIZE;
3394
3395     ctx.tb = tb;
3396     ctx.env = env;
3397     ctx.pc = pc_start;
3398     ctx.mem_idx = cpu_mmu_index(env);
3399
3400     /* ??? Every TB begins with unset rounding mode, to be initialized on
3401        the first fp insn of the TB.  Alternately we could define a proper
3402        default for every TB (e.g. QUAL_RM_N or QUAL_RM_D) and make sure
3403        to reset the FP_STATUS to that default at the end of any TB that
3404        changes the default.  We could even (gasp) dynamiclly figure out
3405        what default would be most efficient given the running program.  */
3406     ctx.tb_rm = -1;
3407     /* Similarly for flush-to-zero.  */
3408     ctx.tb_ftz = -1;
3409
3410     num_insns = 0;
3411     max_insns = tb->cflags & CF_COUNT_MASK;
3412     if (max_insns == 0)
3413         max_insns = CF_COUNT_MASK;
3414
3415     gen_tb_start();
3416     do {
3417         if (unlikely(!QTAILQ_EMPTY(&env->breakpoints))) {
3418             QTAILQ_FOREACH(bp, &env->breakpoints, entry) {
3419                 if (bp->pc == ctx.pc) {
3420                     gen_excp(&ctx, EXCP_DEBUG, 0);
3421                     break;
3422                 }
3423             }
3424         }
3425         if (search_pc) {
3426             j = tcg_ctx.gen_opc_ptr - tcg_ctx.gen_opc_buf;
3427             if (lj < j) {
3428                 lj++;
3429                 while (lj < j)
3430                     tcg_ctx.gen_opc_instr_start[lj++] = 0;
3431             }
3432             tcg_ctx.gen_opc_pc[lj] = ctx.pc;
3433             tcg_ctx.gen_opc_instr_start[lj] = 1;
3434             tcg_ctx.gen_opc_icount[lj] = num_insns;
3435         }
3436         if (num_insns + 1 == max_insns && (tb->cflags & CF_LAST_IO))
3437             gen_io_start();
3438         insn = cpu_ldl_code(env, ctx.pc);
3439         num_insns++;
3440
3441         if (unlikely(qemu_loglevel_mask(CPU_LOG_TB_OP | CPU_LOG_TB_OP_OPT))) {
3442             tcg_gen_debug_insn_start(ctx.pc);
3443         }
3444
3445         ctx.pc += 4;
3446         ret = translate_one(ctxp, insn);
3447
3448         /* If we reach a page boundary, are single stepping,
3449            or exhaust instruction count, stop generation.  */
3450         if (ret == NO_EXIT
3451             && ((ctx.pc & (TARGET_PAGE_SIZE - 1)) == 0
3452                 || tcg_ctx.gen_opc_ptr >= gen_opc_end
3453                 || num_insns >= max_insns
3454                 || singlestep
3455                 || env->singlestep_enabled)) {
3456             ret = EXIT_PC_STALE;
3457         }
3458     } while (ret == NO_EXIT);
3459
3460     if (tb->cflags & CF_LAST_IO) {
3461         gen_io_end();
3462     }
3463
3464     switch (ret) {
3465     case EXIT_GOTO_TB:
3466     case EXIT_NORETURN:
3467         break;
3468     case EXIT_PC_STALE:
3469         tcg_gen_movi_i64(cpu_pc, ctx.pc);
3470         /* FALLTHRU */
3471     case EXIT_PC_UPDATED:
3472         if (env->singlestep_enabled) {
3473             gen_excp_1(EXCP_DEBUG, 0);
3474         } else {
3475             tcg_gen_exit_tb(0);
3476         }
3477         break;
3478     default:
3479         abort();
3480     }
3481
3482     gen_tb_end(tb, num_insns);
3483     *tcg_ctx.gen_opc_ptr = INDEX_op_end;
3484     if (search_pc) {
3485         j = tcg_ctx.gen_opc_ptr - tcg_ctx.gen_opc_buf;
3486         lj++;
3487         while (lj <= j)
3488             tcg_ctx.gen_opc_instr_start[lj++] = 0;
3489     } else {
3490         tb->size = ctx.pc - pc_start;
3491         tb->icount = num_insns;
3492     }
3493
3494 #ifdef DEBUG_DISAS
3495     if (qemu_loglevel_mask(CPU_LOG_TB_IN_ASM)) {
3496         qemu_log("IN: %s\n", lookup_symbol(pc_start));
3497         log_target_disas(env, pc_start, ctx.pc - pc_start, 1);
3498         qemu_log("\n");
3499     }
3500 #endif
3501 }
3502
3503 void gen_intermediate_code (CPUAlphaState *env, struct TranslationBlock *tb)
3504 {
3505     gen_intermediate_code_internal(env, tb, 0);
3506 }
3507
3508 void gen_intermediate_code_pc (CPUAlphaState *env, struct TranslationBlock *tb)
3509 {
3510     gen_intermediate_code_internal(env, tb, 1);
3511 }
3512
3513 void restore_state_to_opc(CPUAlphaState *env, TranslationBlock *tb, int pc_pos)
3514 {
3515     env->pc = tcg_ctx.gen_opc_pc[pc_pos];
3516 }