testsuite/perf_opcodes_sys.c

   1
   2 #include "config.h"
   3
   4 #include <stdio.h>
   5
   6 #include <orc/orc.h>
   7 #include <orc-test/orctest.h>
   8
   9
  10 int error = FALSE;
  11
  12 void test_opcode_src (OrcStaticOpcode *opcode);
  13
  14 int
  15 main (int argc, char *argv[])
  16 {
  17   int i;
  18   OrcOpcodeSet *opcode_set;
  19
  20   orc_test_init();
  21   orc_init();
  22
  23   opcode_set = orc_opcode_set_get ("sys");
  24
  25   for(i=0;i<opcode_set->n_opcodes;i++){
  26     printf("opcode_%-20s ", opcode_set->opcodes[i].name);
  27     test_opcode_src (opcode_set->opcodes + i);
  28   }
  29
  30   if (error) return 1;
  31   return 0;
  32 }
  33
  34 void
  35 test_opcode_src (OrcStaticOpcode *opcode)
  36 {
  37   OrcProgram *p;
  38   int flags = 0;
  39
  40   p = orc_test_get_program_for_opcode (opcode);
  41
  42   printf("%g\n", orc_test_performance_full (p, flags, NULL));
  43
  44   orc_program_free (p);
  45 }
  46