/* Switch immediate operands from little endian to big endian. */

#include "config.h"
#include "misc.h"
#include "mlvalues.h"
#include "instruct.h"
#include "reverse.h"

/* We don't need this code if 1- the machine is little-endian, or 2- the
   machine has alignment constraints, in which case the interpreter does word
   accesses byte per byte, in little-endian mode, regardless of the
   native endianness.
*/

#if defined(MOSML_BIG_ENDIAN) && !defined(ALIGNMENT)

void fixup_endianness(p, len)
     register code_t p;
     asize_t len;
{
  register code_t q;
  int n;

  q = p + len;
  while(p < q) {
    switch(*p++) {
      /* Instructions with one one-byte + one two-byte argument */
    case BRANCHIFNEQTAG: case C_CALLN: case CLOSURE: case CLOSREC:
    case PUSH_GETGLOBAL_APPTERM1: case PUSH_GETGLOBAL_APPTERM2: 
    case PUSH_GETGLOBAL_APPTERM3: case PUSH_GETGLOBAL_APPTERM4: 
      p++; /* fall through */
      /* Instructions with a two-byte immediate argument */
    case GETGLOBAL: case SETGLOBAL: case CONSTSHORT:
    case PUSH_GETGLOBAL: 
    case PUSH_GETGLOBAL_APPLY1: case PUSH_GETGLOBAL_APPLY2:
    case PUSH_GETGLOBAL_APPLY3: case PUSH_GETGLOBAL_APPLY4:
    case PUSH_RETADDR: case PUSHTRAP:
    case BRANCH: case BRANCHIF: case BRANCHIFNOT: case POPBRANCHIFNOT:
    case BRANCHIFEQ: case BRANCHIFNEQ: case BRANCHIFLT:
    case BRANCHIFGT: case BRANCHIFLE: case BRANCHIFGE:
    case C_CALL1: case C_CALL2: case C_CALL3: case C_CALL4:
    case C_CALL5: case GETFIELD: case SETFIELD:
      Reverse_short(p);
      p += 2;
      break;
      /* Instructions with a four-byte immediate argument */
    case MAKEBLOCK: case CONSTINT:  case PUSHCONSTINT: 
      Reverse_word(p);
      p += 4;
      break;
      /* Instructions with two two-byte immediate arguments */
    case BRANCHINTERVAL: 
      Reverse_short(p);
      Reverse_short(p+2);
      p += 4;
      break;
      /* Special case for switch */
    case SWITCH:
      n = *p++;
      while (n > 0) {
        Reverse_short(p);
        p += 2;
        n--;
      }
      break;
      /* Instructions with two one-byte immediate arguments */
    case APPTERM:
      p++; /* fall into... */
      /* Instructions with a one-byte immediate argument */
    case CONSTBYTE: case ATOM: case PUSHATOM: case ASSIGN:
    case MAKEBLOCK1: case MAKEBLOCK2: case MAKEBLOCK3: case MAKEBLOCK4:
    case DUMMY: case POP: case GRAB: case RETURN: case ACCESS:
    case APPTERM1: case APPTERM2: case APPTERM3: case APPTERM4:
    case PUSH_ENV1_APPTERM1: case PUSH_ENV1_APPTERM2: 
    case PUSH_ENV1_APPTERM3: case PUSH_ENV1_APPTERM4: 
    case ENVACC: case PUSHACC: case PUSHENVACC: case APPLY: 
      p++;
      break;
    }
  }
}

#endif