- /* operation */
- case TIR_S_C_OPR_NOP:
- /*
- * no-op
- */
- break;
-
- case TIR_S_C_OPR_ADD:
- /*
- * add
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)(op1 + op2), -1);
- break;
-
- case TIR_S_C_OPR_SUB:
- /*
- * subtract
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)(op2 - op1), -1);
- break;
-
- case TIR_S_C_OPR_MUL:
- /*
- * multiply
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)(op1 * op2), -1);
- break;
-
- case TIR_S_C_OPR_DIV:
- /*
- * divide
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- if (op2 == 0)
- _bfd_vms_push (abfd, (unsigned long)0L, -1);
- else
- _bfd_vms_push (abfd, (unsigned long)(op2 / op1), -1);
- break;
-
- case TIR_S_C_OPR_AND:
- /*
- * logical and
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)(op1 & op2), -1);
- break;
-
- case TIR_S_C_OPR_IOR:
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- /*
- * logical inclusive or
- */
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)(op1 | op2), -1);
- break;
-
- case TIR_S_C_OPR_EOR:
- /*
- * logical exclusive or
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)(op1 ^ op2), -1);
- break;
-
- case TIR_S_C_OPR_NEG:
- /*
- * negate
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)(-op1), -1);
- break;
-
- case TIR_S_C_OPR_COM:
- /*
- * complement
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)(op1 ^ -1L), -1);
- break;
-
- case TIR_S_C_OPR_INSV:
- /*
- * insert field
- */
- (void)_bfd_vms_pop (abfd, NULL);
- (*_bfd_error_handler) ("TIR_S_C_OPR_INSV incomplete");
- break;
-
- case TIR_S_C_OPR_ASH:
- /*
- * arithmetic shift
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- if (HIGHBIT(op1)) /* shift right */
- op2 >>= op1;
- else /* shift left */
- op2 <<= op1;
- _bfd_vms_push (abfd, (unsigned long)op2, -1);
- (*_bfd_error_handler) (_("TIR_S_C_OPR_ASH incomplete"));
- break;
-
- case TIR_S_C_OPR_USH:
- /*
- * unsigned shift
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- if (HIGHBIT(op1)) /* shift right */
- op2 >>= op1;
- else /* shift left */
- op2 <<= op1;
- _bfd_vms_push (abfd, (unsigned long)op2, -1);
- (*_bfd_error_handler) (_("TIR_S_C_OPR_USH incomplete"));
- break;
-
- case TIR_S_C_OPR_ROT:
- /*
- * rotate
- */
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- op2 = (long)_bfd_vms_pop (abfd, NULL);
- if (HIGHBIT(0)) /* shift right */
- op2 >>= op1;
- else /* shift left */
- op2 <<= op1;
- _bfd_vms_push (abfd, (unsigned long)op2, -1);
- (*_bfd_error_handler) (_("TIR_S_C_OPR_ROT incomplete"));
- break;
-
- case TIR_S_C_OPR_SEL:
- /*
- * select
- */
- if ((long)_bfd_vms_pop (abfd, NULL) & 0x01L)
- (void)_bfd_vms_pop (abfd, NULL);
- else
- {
- op1 = (long)_bfd_vms_pop (abfd, NULL);
- (void)_bfd_vms_pop (abfd, NULL);
- _bfd_vms_push (abfd, (unsigned long)op1, -1);
- }
+ /* operation */
+ case TIR_S_C_OPR_NOP: /* no-op */
+ break;
+
+ case TIR_S_C_OPR_ADD: /* add */
+ op1 = (long) _bfd_vms_pop (abfd, NULL);
+ op2 = (long) _bfd_vms_pop (abfd, NULL);
+ _bfd_vms_push (abfd, (uquad) (op1 + op2), -1);
+ break;
+
+ case TIR_S_C_OPR_SUB: /* subtract */
+ op1 = (long) _bfd_vms_pop (abfd, NULL);
+ op2 = (long) _bfd_vms_pop (abfd, NULL);
+ _bfd_vms_push (abfd, (uquad) (op2 - op1), -1);
+ break;
+
+ case TIR_S_C_OPR_MUL: /* multiply */
+ op1 = (long) _bfd_vms_pop (abfd, NULL);
+ op2 = (long) _bfd_vms_pop (abfd, NULL);
+ _bfd_vms_push (abfd, (uquad) (op1 * op2), -1);
+ break;
+
+ case TIR_S_C_OPR_DIV: /* divide */
+ op1 = (long) _bfd_vms_pop (abfd, NULL);
+ op2 = (long) _bfd_vms_pop (abfd, NULL);
+ if (op2 == 0)
+ _bfd_vms_push (abfd, (uquad) 0, -1);
+ else
+ _bfd_vms_push (abfd, (uquad) (op2 / op1), -1);
+ break;
+
+ case TIR_S_C_OPR_AND: /* logical and */
+ op1 = (long) _bfd_vms_pop (abfd, NULL);
+ op2 = (long) _bfd_vms_pop (abfd, NULL);
+ _bfd_vms_push (abfd, (uquad) (op1 & op2), -1);
+ break;
+
+ case TIR_S_C_OPR_IOR: /* logical inclusive or */
+ op1 = (long) _bfd_vms_pop (abfd, NULL);
+ op2 = (long) _bfd_vms_pop (abfd, NULL);
+ _bfd_vms_push (abfd, (uquad) (op1 | op2), -1);