Subversion Repositories eco32

/*

 * mkbrtest.c -- generate branch test program

 */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

typedef int Bool;

Bool eq(unsigned x, unsigned y) {

  return x == y;

}

Bool ne(unsigned x, unsigned y) {

  return x != y;

}

Bool gt(unsigned x, unsigned y) {

  return (signed) x > (signed) y;

}

Bool ge(unsigned x, unsigned y) {

  return (signed) x >= (signed) y;

}

Bool lt(unsigned x, unsigned y) {

  return (signed) x < (signed) y;

}

Bool le(unsigned x, unsigned y) {

  return (signed) x <= (signed) y;

}

Bool gtu(unsigned x, unsigned y) {

  return x > y;

}

Bool geu(unsigned x, unsigned y) {

  return x >= y;

}

Bool ltu(unsigned x, unsigned y) {

  return x < y;

}

Bool leu(unsigned x, unsigned y) {

  return x <= y;

}

unsigned nums[] = {

  0x00000000,

  0x00000001,

  0x00000002,

  0x00000003,

  0x7FFFFFFC,

  0x7FFFFFFD,

  0x7FFFFFFE,

  0x7FFFFFFF,

  0x80000000,

  0x80000001,

  0x80000002,

  0x80000003,

  0xFFFFFFFC,

  0xFFFFFFFD,

  0xFFFFFFFE,

  0xFFFFFFFF,

};

int snums = sizeof(nums) / sizeof(nums[0]);

struct {

  char *name;

  Bool (*func)(unsigned x, unsigned y);

} ops[] = {

  { "eq",  eq  },

  { "ne",  ne  },

  { "gt",  gt  },

  { "ge",  ge  },

  { "lt",  lt  },

  { "le",  le  },

  { "gtu", gtu },

  { "geu", geu },

  { "ltu", ltu },

  { "leu", leu },

};

int sops = sizeof(ops) / sizeof(ops[0]);

int chooseReg(void) {

  int r;

  r = (rand() >> 8) % 16;

  return r + 8;

}

void chooseRegs(int *r1, int *r2) {

  *r1 = chooseReg();

  do {

    *r2 = chooseReg();

  } while (*r2 == *r1);

}

int newLabel(void) {

  static int lbl = 1000;

  return lbl++;

}

int main(void) {

  int i, j, k;

  Bool res;

  int r1, r2;

  int lbl1, lbl2;

  printf("\tadd\t$7,$0,'.'\n");

  for (i = 0; i < snums; i++) {

    for (j = 0; j < snums; j++) {

      for (k = 0; k < sops; k++) {

        res = ops[k].func(nums[i], nums[j]);

        chooseRegs(&r1, &r2);

        lbl1 = newLabel();

        printf("\tadd\t$%d,$0,0x%08X\n", r1, nums[i]);

        printf("\tadd\t$%d,$0,0x%08X\n", r2, nums[j]);

        printf("\tb%s\t$%d,$%d,L%d\n", ops[k].name, r1, r2, lbl1);

        if (res) {

          printf("\tadd\t$7,$0,'?'\n");

          printf("L%d:\n", lbl1);

        } else {

          lbl2 = newLabel();

          printf("\tj\tL%d\n", lbl2);

          printf("L%d:\n", lbl1);

          printf("\tadd\t$7,$0,'?'\n");

          printf("L%d:\n", lbl2);

        }

      }

    }

  }

  printf("out:\n");

  printf("\tadd\t$6,$0,0xF0300000\n");

  printf("out1:\n");

  printf("\tldw\t$5,$6,8\n");

  printf("\tand\t$5,$5,1\n");

  printf("\tbeq\t$5,$0,out1\n");

  printf("\tstw\t$7,$6,12\n");

  printf("halt:\n");

  printf("\tj\thalt\n");

  return 0;

}