#include "config.h"

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#include <orc/orcprogram.h>

#define N 19

int16_t src1[N];
int16_t src2[N];
int16_t dest[N];

void test(OrcExecutor *ex);

int
main (int argc, char *argv[])
{
  OrcProgram *p;
  OrcExecutor *ex;
  int s1, s2, d1, offset, shift;
  int t1;

  orc_init ();

  p = orc_program_new ();

  d1 = orc_program_add_destination (p, 2, "d1");
  s1 = orc_program_add_source (p, 2, "s1");
  s2 = orc_program_add_source (p, 2, "s2");
  t1 = orc_program_add_temporary (p, 2, "t1");
  offset = orc_program_add_constant (p, 2, 1, "offset");
  shift = orc_program_add_constant (p, 2, 1, "shift");

  orc_program_append (p, "addw", t1, s1, s2);
  orc_program_append (p, "addw", t1, t1, offset);
  orc_program_append (p, "shrsw", d1, t1, shift);

  orc_program_compile (p);

  if (1) {
    int i;

    for(i=0;i<N;i++){
      src1[i] = rand()&0xf;
      src2[i] = rand()&0xf;
    }

    ex = orc_executor_new (p);

    orc_executor_set_n (ex, N-4);
    orc_executor_set_array (ex, s1, src1);
    orc_executor_set_array (ex, s2, src2);
    orc_executor_set_array (ex, d1, dest);

    printf("#code exec %p\n", ex->program->code_exec);

    orc_executor_run (ex);
    //orc_executor_emulate (ex);

    for(i=0;i<N;i++){
      printf("#  %4d %4d %4d %4d\n", src1[i], src2[i], dest[i],
          (src1[i] + src2[i] + 1) >> 1);
    }

    orc_executor_free (ex);
  }

  orc_program_free (p);

  return 0;
}



void
test1 (int16_t *dest, int16_t *src1, int16_t *src2, int n)
{
  int i;
  int16_t t1, t2;
  for(i=0;i<n;i++){
    t1 = src1[i] + src2[i];
    t2 = t1 + 1;
    dest[i] = t2>>1;
  }
}