EXEC_ERROR.patch

   1 ---
   2
   3  source/interpret.c |  189 ++++++++++++++++++++++++++---------------------------
   4  1 file changed, 96 insertions(+), 93 deletions(-)
   5
   6 diff --quilt old/source/interpret.c new/source/interpret.c
   7 --- old/source/interpret.c
   8 +++ new/source/interpret.c
   9 @@ -1377,10 +1377,12 @@ static void addToGlobalSymTab(Symbol *sy
  10      GlobalSymTab[idx] = sym;
  11  }
  12
  13 +#define EXEC_ERROR(s1, s2) return execError(s1, s2)
  14 +
  15  #define GET_SYM(s) \
  16      do { \
  17          if (PC->type != SYM_INST) { \
  18 -            return execError("Unexpected instruction, expected <symbol>: <%s>", \
  19 +            EXEC_ERROR("Unexpected instruction, expected <symbol>: <%s>", \
  20                      instTypeToStr(PC->type)); \
  21          } \
  22          s = PC->val.sym; \
  23 @@ -1390,7 +1392,7 @@ static void addToGlobalSymTab(Symbol *sy
  24  #define GET_IMMED(i) \
  25      do { \
  26          if (PC->type != IMMED_INST) { \
  27 -            return execError("Unexpected instruction, expected <immediate>: <%s>", \
  28 +            EXEC_ERROR("Unexpected instruction, expected <immediate>: <%s>", \
  29                      instTypeToStr(PC->type)); \
  30          } \
  31          i = PC->val.immed; \
  32 @@ -1400,7 +1402,7 @@ static void addToGlobalSymTab(Symbol *sy
  33  #define GET_BRANCH(a) \
  34      do { \
  35          if (PC->type != BRANCH_INST) { \
  36 -            return execError("Unexpected instruction, expected <branch>: <%s>", \
  37 +            EXEC_ERROR("Unexpected instruction, expected <branch>: <%s>", \
  38                      instTypeToStr(PC->type)); \
  39          } \
  40          a = PC + PC->val.branch; \
  41 @@ -1430,7 +1432,7 @@ static void addToGlobalSymTab(Symbol *sy
  42  #define POP_CHECK(n) \
  43      do { \
  44          if (!OK_TO_POP(n)) { \
  45 -            return execError(StackUnderflowMsg, ""); \
  46 +            EXEC_ERROR(StackUnderflowMsg, ""); \
  47          } \
  48      } while (0)
  49
  50 @@ -1441,17 +1443,17 @@ static void addToGlobalSymTab(Symbol *sy
  51   #define PUSH_CHECK(n) \
  52      do { \
  53          if (!OK_TO_PUSH(n)) { \
  54 -            return execError(StackOverflowMsg, ""); \
  55 +            EXEC_ERROR(StackOverflowMsg, ""); \
  56          } \
  57      } while (0)
  58
  59  #define PEEK_CHECK(n) \
  60      do { \
  61          if (!OK_TO_POP((n) + 1)) { \
  62 -            return execError(StackUnderflowMsg, ""); \
  63 +            EXEC_ERROR(StackUnderflowMsg, ""); \
  64          } \
  65          if (!OK_TO_PUSH(-(n))) { \
  66 -            return execError(StackOverflowMsg, ""); \
  67 +            EXEC_ERROR(StackOverflowMsg, ""); \
  68          } \
  69      } while (0)
  70
  71 @@ -1480,10 +1482,10 @@ static void addToGlobalSymTab(Symbol *sy
  72              __int = dataVal.val.n; \
  73          } else if (dataVal.tag == STRING_TAG) { \
  74              if (!StringToNum(dataVal.val.str.rep, &__int)) {\
  75 -                return execError(StringToNumberMsg, dataVal.val.str.rep); \
  76 +                EXEC_ERROR(StringToNumberMsg, dataVal.val.str.rep); \
  77              } \
  78          } else { \
  79 -            return execError("incompatible type in integer context: <%s>", \
  80 +            EXEC_ERROR("incompatible type in integer context: <%s>", \
  81                      tagToStr(dataVal.tag)); \
  82          } \
  83          number = __int; \
  84 @@ -1497,7 +1499,7 @@ static void addToGlobalSymTab(Symbol *sy
  85          } else if (dataVal.tag == INT_TAG) { \
  86              __str = AllocStringOfNumber(dataVal.val.n); \
  87          } else { \
  88 -            return execError("incompatible type in string context: <%s>", \
  89 +            EXEC_ERROR("incompatible type in string context: <%s>", \
  90                      tagToStr(dataVal.tag)); \
  91          } \
  92          string = __str; \
  93 @@ -1595,7 +1597,7 @@ static int pushSymVal(void)
  94         nArgs = FP_GET_ARG_COUNT(FrameP);
  95         argNum = s->value.val.n;
  96         if (argNum >= nArgs) {
  97 -           return execError("referenced undefined argument: %s",  s->name);
  98 +            EXEC_ERROR("referenced undefined argument: %s", s->name);
  99          }
 100         if (argNum == N_ARGS_ARG_SYM) {
 101              symVal.tag = INT_TAG;
 102 @@ -1608,12 +1610,12 @@ static int pushSymVal(void)
 103         char *errMsg;
 104         if (!(s->value.val.subr)(FocusWindow, NULL, 0,
 105                 &symVal, &errMsg)) {
 106 -           return execError(errMsg, s->name);
 107 +            EXEC_ERROR(errMsg, s->name);
 108          }
 109      } else
 110 -       return execError("reading non-variable: %s", s->name);
 111 +        EXEC_ERROR("reading non-variable: %s", s->name);
 112      if (symVal.tag == NO_TAG && !inTypeOfMode) {
 113 -       return execError("variable not set: %s", s->name);
 114 +        EXEC_ERROR("variable not set: %s", s->name);
 115      }
 116
 117      PUSH(symVal);
 118 @@ -1653,8 +1655,8 @@ static int pushArgVal(void)
 119      --argNum;
 120      nArgs = FP_GET_ARG_COUNT(FrameP);
 121      if (argNum >= nArgs || argNum < 0) {
 122 -        return execError("referenced undefined argument: $args[%s]",
 123 -                         longAsStr(argNum + 1));
 124 +        EXEC_ERROR("referenced undefined argument: $args[%s]",
 125 +                longAsStr(argNum + 1));
 126      }
 127      PUSH(FP_GET_ARG_N(FrameP, argNum));
 128      return STAT_OK;
 129 @@ -1693,7 +1695,7 @@ static int pushArgArray(void)
 130              argVal = FP_GET_ARG_N(FrameP, argNum);
 131              if (!ArrayInsert(argArray, AllocStringOfNumber(argNum + 1),
 132                               &argVal)) {
 133 -                return(execError("argument array insertion failure", NULL));
 134 +                EXEC_ERROR("argument array insertion failure", NULL);
 135              }
 136          }
 137      }
 138 @@ -1729,7 +1731,7 @@ static int pushArraySymVal(void)
 139         dataPtr = &sym->value;
 140      }
 141      else {
 142 -       return execError("assigning to non-lvalue array or non-array: %s", sym->name);
 143 +        EXEC_ERROR("assigning to non-lvalue array or non-array: %s", sym->name);
 144      }
 145
 146      if (initEmpty && dataPtr->tag == NO_TAG) {
 147 @@ -1738,7 +1740,7 @@ static int pushArraySymVal(void)
 148      }
 149
 150      if (dataPtr->tag == NO_TAG && !inTypeOfMode) {
 151 -        return execError("variable not set: %s", sym->name);
 152 +        EXEC_ERROR("variable not set: %s", sym->name);
 153      }
 154
 155      PUSH(*dataPtr);
 156 @@ -1831,7 +1833,7 @@ static int anonArrayNextVal(void)
 157
 158      sprintf(numString, "%d", nextIndex);
 159      if (!ArrayInsert(&anonArray, AllocStringCpy(numString), &exprVal)) {
 160 -        return(execError("array insertion failure", NULL));
 161 +        EXEC_ERROR("array insertion failure", NULL);
 162      }
 163
 164      /* we need to increment the index for next time */
 165 @@ -1883,7 +1885,7 @@ static int anonArrayIndexVal(void)
 166      }
 167
 168      if (!ArrayInsert(&anonArray, keyString, &exprVal)) {
 169 -        return(execError("array insertion failure", NULL));
 170 +        EXEC_ERROR("array insertion failure", NULL);
 171      }
 172
 173      /* push the default next index value first, then the array */
 174 @@ -1974,7 +1976,7 @@ static int namedArg1orN(Boolean isFirst)
 175      /* if our index is numeric (or can be converted to a number) we must
 176         change the next index value */
 177      if (nDim == 1 && StringToNum(keyString, &index)) {
 178 -        return execError("named argument name must not be numeric", NULL);
 179 +        EXEC_ERROR("named argument name must not be numeric", NULL);
 180      }
 181
 182      if (isFirst) {
 183 @@ -1988,7 +1990,7 @@ static int namedArg1orN(Boolean isFirst)
 184      }
 185
 186      if (!ArrayInsert(&argsArray, keyString, &exprVal)) {
 187 -        return(execError("named argument insertion failure", NULL));
 188 +        EXEC_ERROR("named argument insertion failure", NULL);
 189      }
 190
 191      /* and (re)push the array */
 192 @@ -2036,13 +2038,13 @@ static int assign(void)
 193
 194      if (sym->type != GLOBAL_SYM && sym->type != LOCAL_SYM) {
 195          if (sym->type == ARG_SYM) {
 196 -            return execError("assignment to function argument: %s",  sym->name);
 197 +            EXEC_ERROR("assignment to function argument: %s", sym->name);
 198          }
 199          else if (sym->type == PROC_VALUE_SYM) {
 200 -            return execError("assignment to read-only variable: %s", sym->name);
 201 +            EXEC_ERROR("assignment to read-only variable: %s", sym->name);
 202          }
 203          else {
 204 -            return execError("assignment to non-variable: %s", sym->name);
 205 +            EXEC_ERROR("assignment to non-variable: %s", sym->name);
 206          }
 207      }
 208
 209 @@ -2158,13 +2160,13 @@ static int add(void)
 210                      rightIter = arrayIterateNext(rightIter);
 211                  }
 212                  if (!insertResult) {
 213 -                    return(execError("array insertion failure", NULL));
 214 +                    EXEC_ERROR("array insertion failure", NULL);
 215                  }
 216              }
 217              PUSH(resultArray);
 218          }
 219          else {
 220 -            return(execError("can't mix math with arrays and non-arrays", NULL));
 221 +            EXEC_ERROR("can't mix math with arrays and non-arrays", NULL);
 222          }
 223      }
 224      else {
 225 @@ -2172,7 +2174,7 @@ static int add(void)
 226          POP_INT(n1);
 227          PUSH_INT(n1 + n2);
 228      }
 229 -    return(STAT_OK);
 230 +    return STAT_OK;
 231  }
 232
 233  /*
 234 @@ -2224,13 +2226,13 @@ static int subtract(void)
 235                      leftIter = arrayIterateNext(leftIter);
 236                  }
 237                  if (!insertResult) {
 238 -                    return(execError("array insertion failure", NULL));
 239 +                    EXEC_ERROR("array insertion failure", NULL);
 240                  }
 241              }
 242              PUSH(resultArray);
 243          }
 244          else {
 245 -            return(execError("can't mix math with arrays and non-arrays", NULL));
 246 +            EXEC_ERROR("can't mix math with arrays and non-arrays", NULL);
 247          }
 248      }
 249      else {
 250 @@ -2238,7 +2240,7 @@ static int subtract(void)
 251          POP_INT(n1);
 252          PUSH_INT(n1 - n2);
 253      }
 254 -    return(STAT_OK);
 255 +    return STAT_OK;
 256  }
 257
 258  /*
 259 @@ -2265,7 +2267,7 @@ static int divide(void)
 260      POP_INT(n2);
 261      POP_INT(n1);
 262      if (n2 == 0) {
 263 -       return execError("division by zero", "");
 264 +        EXEC_ERROR("division by zero", "");
 265      }
 266      PUSH_INT(n1 / n2);
 267      return STAT_OK;
 268 @@ -2281,7 +2283,7 @@ static int modulo(void)
 269      POP_INT(n2);
 270      POP_INT(n1);
 271      if (n2 == 0) {
 272 -       return execError("modulo by zero", "");
 273 +        EXEC_ERROR("modulo by zero", "");
 274      }
 275      PUSH_INT(n1 % n2);
 276      return STAT_OK;
 277 @@ -2362,11 +2364,11 @@ static int eq(void)
 278          }
 279      }
 280      else {
 281 -        return(execError("incompatible types to compare", NULL));
 282 +        EXEC_ERROR("incompatible types to compare", NULL);
 283      }
 284      v1.tag = INT_TAG;
 285      PUSH(v1);
 286 -    return(STAT_OK);
 287 +    return STAT_OK;
 288  }
 289
 290  /* negated eq() call */
 291 @@ -2419,13 +2421,13 @@ static int bitAnd(void)
 292                      rightIter = arrayIterateNext(rightIter);
 293                  }
 294                  if (!insertResult) {
 295 -                    return(execError("array insertion failure", NULL));
 296 +                    EXEC_ERROR("array insertion failure", NULL);
 297                  }
 298              }
 299              PUSH(resultArray);
 300          }
 301          else {
 302 -            return(execError("can't mix math with arrays and non-arrays", NULL));
 303 +            EXEC_ERROR("can't mix math with arrays and non-arrays", NULL);
 304          }
 305      }
 306      else {
 307 @@ -2433,7 +2435,7 @@ static int bitAnd(void)
 308          POP_INT(n1);
 309          PUSH_INT(n1 & n2);
 310      }
 311 -    return(STAT_OK);
 312 +    return STAT_OK;
 313  }
 314
 315  /*
 316 @@ -2490,13 +2492,13 @@ static int bitOr(void)
 317                      rightIter = arrayIterateNext(rightIter);
 318                  }
 319                  if (!insertResult) {
 320 -                    return(execError("array insertion failure", NULL));
 321 +                    EXEC_ERROR("array insertion failure", NULL);
 322                  }
 323              }
 324              PUSH(resultArray);
 325          }
 326          else {
 327 -            return(execError("can't mix math with arrays and non-arrays", NULL));
 328 +            EXEC_ERROR("can't mix math with arrays and non-arrays", NULL);
 329          }
 330      }
 331      else {
 332 @@ -2504,7 +2506,7 @@ static int bitOr(void)
 333          POP_INT(n1);
 334          PUSH_INT(n1 | n2);
 335      }
 336 -    return(STAT_OK);
 337 +    return STAT_OK;
 338  }
 339
 340  static int and(void)
 341 @@ -2604,7 +2606,7 @@ static int concatenateNwithSep(int nVals
 342              len += value.val.str.len;
 343          }
 344          else {
 345 -            return execError("incompatible type in string context: <%s>",
 346 +            EXEC_ERROR("incompatible type in string context: <%s>",
 347                      tagToStr(value.tag));
 348          }
 349      }
 350 @@ -2726,7 +2728,7 @@ static int callSubroutineFromSymbol(Symb
 351         PreemptRequest = False;
 352         if (!sym->value.val.subr(FocusWindow, StackP,
 353                 nArgs, &result, &errMsg))
 354 -           return execError(errMsg, sym->name);
 355 +            EXEC_ERROR(errMsg, sym->name);
 356          PUSH_RET_VAL(result);
 357         return PreemptRequest ? STAT_PREEMPT : STAT_OK;
 358      }
 359 @@ -2761,8 +2763,7 @@ static int callSubroutineFromSymbol(Symb
 360         Window win;
 361
 362          if (haveNamedArgs) {
 363 -            return execError(
 364 -                    "%s action routine called with named argument array",
 365 +            EXEC_ERROR("%s action routine called with named argument array",
 366                      sym->name);
 367          }
 368
 369 @@ -2798,7 +2799,7 @@ static int callSubroutineFromSymbol(Symb
 370      }
 371
 372      /* Calling a non subroutine symbol */
 373 -    return execError("%s is not a function or subroutine", sym->name);
 374 +    EXEC_ERROR("%s is not a function or subroutine", sym->name);
 375  }
 376
 377  /*
 378 @@ -2868,7 +2869,7 @@ static int callSubroutineUnpackArray(voi
 379      POP(argArray);
 380
 381      if (argArray.tag != ARRAY_TAG) {
 382 -        return execError("argument array call made with non-array value", NULL);
 383 +        EXEC_ERROR("argument array call made with non-array value", NULL);
 384      }
 385
 386      if (haveNamedArgs) {
 387 @@ -2902,7 +2903,7 @@ static int callSubroutineUnpackArray(voi
 388          }
 389          else {
 390              if (!ArrayInsert(&dvArray, iter->key, &dvEntry)) {
 391 -                return(execError("array copy failed", NULL));
 392 +                EXEC_ERROR("array copy failed", NULL);
 393              }
 394          }
 395
 396 @@ -2977,7 +2978,7 @@ int OverlayRoutineFromProg(Program *prog
 397  */
 398  static int fetchRetVal(void)
 399  {
 400 -    return execError("internal error: frv", NULL);
 401 +    EXEC_ERROR("internal error: frv", NULL);
 402  }
 403
 404  /* see comments for returnValOrNone() */
 405 @@ -3120,17 +3121,17 @@ int ArrayCopy(DataValue *dstArray, DataV
 406                  return(errNum);
 407              }
 408              if (!ArrayInsert(dstArray, srcIter->key, &tmpArray)) {
 409 -                return(execError("array copy failed", NULL));
 410 +                return STAT_ERROR;
 411              }
 412          }
 413          else {
 414              if (!ArrayInsert(dstArray, srcIter->key, &srcIter->value)) {
 415 -                return(execError("array copy failed", NULL));
 416 +                return STAT_ERROR;
 417              }
 418          }
 419          srcIter = arrayIterateNext(srcIter);
 420      }
 421 -    return(STAT_OK);
 422 +    return STAT_OK;
 423  }
 424
 425  /*
 426 @@ -3150,7 +3151,7 @@ static int makeArrayKeyFromArgs(int nArg
 427      if (len > 0) {
 428          return len;
 429      }
 430 -    return(STAT_OK);
 431 +    return STAT_OK;
 432  }
 433
 434  /*
 435 @@ -3467,23 +3468,24 @@ static int arrayRef(void)
 436          POP(srcArray);
 437          if (srcArray.tag == ARRAY_TAG) {
 438              if (!ArrayGet(&srcArray, keyString, &valueItem)) {
 439 -                return(execError("referenced array value not in array: %s", keyString));
 440 +                EXEC_ERROR("referenced array value not in array: %s",
 441 +                        keyString);
 442              }
 443              PUSH(valueItem);
 444 -            return(STAT_OK);
 445 +            return STAT_OK;
 446          }
 447          else {
 448 -            return(execError("operator [] on non-array", NULL));
 449 +            EXEC_ERROR("operator [] on non-array", NULL);
 450          }
 451      }
 452      else {
 453          POP(srcArray);
 454          if (srcArray.tag == ARRAY_TAG) {
 455              PUSH_INT(ArraySize(&srcArray));
 456 -            return(STAT_OK);
 457 +            return STAT_OK;
 458          }
 459          else {
 460 -            return(execError("operator [] on non-array", NULL));
 461 +            EXEC_ERROR("operator [] on non-array", NULL);
 462          }
 463      }
 464  }
 465 @@ -3520,7 +3522,7 @@ static int arrayAssign(void)
 466          POP(dstArray);
 467
 468          if (dstArray.tag != ARRAY_TAG && dstArray.tag != NO_TAG) {
 469 -            return(execError("cannot assign array element of non-array", NULL));
 470 +            EXEC_ERROR("cannot assign array element of non-array", NULL);
 471          }
 472          if (srcValue.tag == ARRAY_TAG) {
 473              DataValue arrayCopyValue;
 474 @@ -3532,13 +3534,13 @@ static int arrayAssign(void)
 475              }
 476          }
 477          if (ArrayInsert(&dstArray, keyString, &srcValue)) {
 478 -            return(STAT_OK);
 479 +            return STAT_OK;
 480          }
 481          else {
 482 -            return(execError("array member allocation failure", NULL));
 483 +            EXEC_ERROR("array member allocation failure", NULL);
 484          }
 485      }
 486 -    return(execError("empty operator []", NULL));
 487 +    EXEC_ERROR("empty operator []", NULL);
 488  }
 489
 490  /*
 491 @@ -3576,20 +3578,21 @@ static int arrayRefAndAssignSetup(void)
 492          PEEK(srcArray, nDim);
 493          if (srcArray.tag == ARRAY_TAG) {
 494              if (!ArrayGet(&srcArray, keyString, &valueItem)) {
 495 -                return(execError("referenced array value not in array: %s", keyString));
 496 +                EXEC_ERROR("referenced array value not in array: %s",
 497 +                        keyString);
 498              }
 499              PUSH(valueItem);
 500              if (binaryOp) {
 501                  PUSH(moveExpr);
 502              }
 503 -            return(STAT_OK);
 504 +            return STAT_OK;
 505          }
 506          else {
 507 -            return(execError("operator [] on non-array", NULL));
 508 +            EXEC_ERROR("operator [] on non-array", NULL);
 509          }
 510      }
 511      else {
 512 -        return(execError("array[] not an lvalue", NULL));
 513 +        EXEC_ERROR("array[] not an lvalue", NULL);
 514      }
 515  }
 516
 517 @@ -3622,16 +3625,16 @@ static int beginArrayIter(void)
 518          iteratorValPtr = &FP_GET_SYM_VAL(FrameP, iterator);
 519      }
 520      else {
 521 -        return(execError("bad temporary iterator: %s",  iterator->name));
 522 +        EXEC_ERROR("bad temporary iterator: %s", iterator->name);
 523      }
 524
 525      iteratorValPtr->tag = INT_TAG;
 526      if (arrayVal.tag != ARRAY_TAG) {
 527 -        return(execError("can't iterate non-array", NULL));
 528 +        EXEC_ERROR("can't iterate non-array", NULL);
 529      }
 530
 531      iteratorValPtr->val.arrayPtr = arrayIterateFirst(&arrayVal);
 532 -    return(STAT_OK);
 533 +    return STAT_OK;
 534  }
 535
 536  /*
 537 @@ -3688,7 +3691,7 @@ static int arrayIter(void)
 538          keyValPtr = &(keySym->value);
 539      }
 540      else {
 541 -        return(execError("can't assign to: %s",  keySym->name));
 542 +        EXEC_ERROR("can't assign to: %s", keySym->name);
 543      }
 544      keyValPtr->tag = NO_TAG;
 545
 546 @@ -3700,7 +3703,7 @@ static int arrayIter(void)
 547              valPtr = &(valSym->value);
 548          }
 549          else {
 550 -            return(execError("can't assign to: %s",  valSym->name));
 551 +            EXEC_ERROR("can't assign to: %s", valSym->name);
 552          }
 553          valPtr->tag = NO_TAG;
 554      }
 555 @@ -3709,7 +3712,7 @@ static int arrayIter(void)
 556          iteratorValPtr = &FP_GET_SYM_VAL(FrameP, iterator);
 557      }
 558      else {
 559 -        return(execError("bad temporary iterator: %s",  iterator->name));
 560 +        EXEC_ERROR("bad temporary iterator: %s", iterator->name);
 561      }
 562
 563      thisEntry = iteratorValPtr->val.arrayPtr;
 564 @@ -3730,7 +3733,7 @@ static int arrayIter(void)
 565      else {
 566          JUMP(branchAddr);
 567      }
 568 -    return(STAT_OK);
 569 +    return STAT_OK;
 570  }
 571
 572  /*
 573 @@ -3758,21 +3761,21 @@ static int beginArrayIterArray(void)
 574          iteratorValPtr = &FP_GET_SYM_VAL(FrameP, iterator);
 575      }
 576      else {
 577 -        return(execError("bad temporary iterator: %s",  iterator->name));
 578 +        EXEC_ERROR("bad temporary iterator: %s", iterator->name);
 579      }
 580
 581      if (nDims < 0) {
 582 -        return(execError("bad multi dimension", NULL));
 583 +        EXEC_ERROR("bad multi dimension", NULL);
 584      }
 585
 586      iteratorValPtr->tag = INT_TAG;
 587      if (arrayVal.tag != ARRAY_TAG) {
 588 -        return(execError("can't iterate non-array", NULL));
 589 +        EXEC_ERROR("can't iterate non-array", NULL);
 590      }
 591
 592      iteratorValPtr->val.arrayPtr = arrayIterateFirst(&arrayVal);
 593
 594 -    return(STAT_OK);
 595 +    return STAT_OK;
 596  }
 597
 598  static int countDim(const char *key)
 599 @@ -3868,7 +3871,7 @@ static int arrayIterArray(void)
 600          keyArrayPtr = &(keyArraySym->value);
 601      }
 602      else {
 603 -        return(execError("can't assign to: %s",  keyArraySym->name));
 604 +        EXEC_ERROR("can't assign to: %s", keyArraySym->name);
 605      }
 606      keyArrayPtr->tag = ARRAY_TAG;
 607      keyArrayPtr->val.arrayPtr = NULL;
 608 @@ -3881,7 +3884,7 @@ static int arrayIterArray(void)
 609              valPtr = &valSym->value;
 610          }
 611          else {
 612 -            return(execError("can't assign to: %s",  valSym->name));
 613 +            EXEC_ERROR("can't assign to: %s", valSym->name);
 614          }
 615          valPtr->tag = NO_TAG;
 616      }
 617 @@ -3890,7 +3893,7 @@ static int arrayIterArray(void)
 618          iteratorValPtr = &FP_GET_SYM_VAL(FrameP, iterator);
 619      }
 620      else {
 621 -        return(execError("bad temporary iterator: %s",  iterator->name));
 622 +        EXEC_ERROR("bad temporary iterator: %s", iterator->name);
 623      }
 624
 625      thisEntry = iteratorValPtr->val.arrayPtr;
 626 @@ -3911,7 +3914,7 @@ static int arrayIterArray(void)
 627
 628          /* set keys */
 629          if (!splitKeyIntoArray(thisEntry->key, keyArrayPtr)) {
 630 -            return(execError("can't split key: %s",  thisEntry->key));
 631 +            EXEC_ERROR("can't split key: %s", thisEntry->key);
 632          }
 633
 634          if (withVal) {
 635 @@ -3955,7 +3958,7 @@ static int inArray(void)
 636
 637      POP(theArray);
 638      if (theArray.tag != ARRAY_TAG) {
 639 -        return(execError("operator in on non-array", NULL));
 640 +        EXEC_ERROR("operator in on non-array", NULL);
 641      }
 642      PEEK(leftArray, 0);
 643      if (leftArray.tag == ARRAY_TAG) {
 644 @@ -3976,7 +3979,7 @@ static int inArray(void)
 645          }
 646      }
 647      PUSH_INT(inResult);
 648 -    return(STAT_OK);
 649 +    return STAT_OK;
 650  }
 651
 652  /*
 653 @@ -4019,15 +4022,15 @@ static int deleteArrayElement(void)
 654          }
 655      }
 656      else {
 657 -        return(execError("attempt to delete from non-array", NULL));
 658 +        EXEC_ERROR("attempt to delete from non-array", NULL);
 659      }
 660 -    return(STAT_OK);
 661 +    return STAT_OK;
 662  }
 663
 664  static int typeOfIn(void)
 665  {
 666      if (inTypeOfMode) {
 667 -        return(execError("I'm already in typeof-mode", NULL));
 668 +        EXEC_ERROR("I'm already in typeof-mode", NULL);
 669      }
 670
 671      inTypeOfMode = 1;
 672 @@ -4041,7 +4044,7 @@ static int typeOfOut(void)
 673      DataValue retVal;
 674
 675      if (!inTypeOfMode) {
 676 -        return(execError("I'm not in typeof-mode", NULL));
 677 +        EXEC_ERROR("I'm not in typeof-mode", NULL);
 678      }
 679
 680      inTypeOfMode = 0;
 681 @@ -4092,7 +4095,7 @@ static int arrayAssignNext(void)
 682      POP(dstArray);
 683
 684      if (dstArray.tag != ARRAY_TAG && dstArray.tag != NO_TAG) {
 685 -        return execError("cannot assign array element of non-array", NULL);
 686 +        EXEC_ERROR("cannot assign array element of non-array", NULL);
 687      }
 688
 689      if (srcValue.tag == ARRAY_TAG) {
 690 @@ -4108,7 +4111,7 @@ static int arrayAssignNext(void)
 691      keyString = AllocStringOfNumber(arrayMaxNumIdx(&dstArray) + 1);
 692
 693      if (!ArrayInsert(&dstArray, keyString, &srcValue)) {
 694 -        return execError("array member allocation failure", NULL);
 695 +        EXEC_ERROR("array member allocation failure", NULL);
 696      }
 697
 698      return STAT_OK;
 699 @@ -4132,7 +4135,7 @@ static int arrayNextNumIdx(void)
 700
 701      POP(srcArray);
 702      if (srcArray.tag != ARRAY_TAG) {
 703 -        return execError("operator [@] on non-array", NULL);
 704 +        EXEC_ERROR("operator [@] on non-array", NULL);
 705      }
 706
 707      PUSH_INT(arrayMaxNumIdx(&srcArray) + 1);
 708 @@ -4147,9 +4150,9 @@ static int arrayNextNumIdx(void)
 709  static int errCheck(const char *s)
 710  {
 711      if (errno == EDOM)
 712 -       return execError("%s argument out of domain", s);
 713 +        EXEC_ERROR("%s argument out of domain", s);
 714      else if (errno == ERANGE)
 715 -       return execError("%s result out of range", s);
 716 +        EXEC_ERROR("%s result out of range", s);
 717      else
 718          return STAT_OK;
 719  }