test/ir-test.c

   1 #include "gmqcc.h"
   2 #include "ir.h"
   3
   4 #ifdef assert
   5 #   undef assert
   6 #endif
   7 /* (note: 'do {} while(0)' forces the need for a semicolon after assert() */
   8 #define assert(x) do { if ( !(x) ) { printf("Assertion failed: %s\n", #x); abort(); } } while(0)
   9
  10 int main()
  11 {
  12         ir_builder *b  = ir_builder_new("test");
  13         ir_value   *va = ir_builder_create_global(b, "a", TYPE_FLOAT);
  14         ir_value   *v3 = ir_builder_create_global(b, "const_f_3", TYPE_FLOAT);
  15         ir_value   *vb = ir_builder_create_global(b, "b", TYPE_FLOAT);
  16         ir_value   *vc = ir_builder_create_global(b, "c", TYPE_FLOAT);
  17         ir_value   *vd = ir_builder_create_global(b, "d", TYPE_FLOAT);
  18
  19         ir_function *fmain  = NULL;
  20         ir_value    *la     = NULL;
  21         ir_block    *bmain  = NULL;
  22         ir_block    *blt    = NULL;
  23         ir_block    *bge    = NULL;
  24         ir_block    *bend   = NULL;
  25         ir_value    *sum    = NULL;
  26         ir_value    *prd    = NULL;
  27         ir_value    *less   = NULL;
  28         ir_value    *x1     = NULL;
  29         ir_value    *vig    = NULL;
  30         ir_value    *x2     = NULL;
  31         ir_instr    *retphi = NULL;
  32         ir_value    *retval = NULL;
  33
  34         assert(ir_value_set_float(v3, 3.0f)  );
  35         assert(ir_value_set_float(vb, 4.0f)  );
  36         assert(ir_value_set_float(vc, 10.0f) );
  37         assert(ir_value_set_float(vd, 20.0f) );
  38
  39         fmain = ir_builder_create_function(b, "main");
  40         assert(fmain);
  41
  42         la = ir_function_create_local(fmain, "loc1", TYPE_FLOAT);
  43         assert(la);
  44
  45         assert( bmain = ir_function_create_block(fmain, "top")          );
  46         assert( blt   = ir_function_create_block(fmain, "less")         );
  47         assert( bge   = ir_function_create_block(fmain, "greaterequal") );
  48         assert( bend  = ir_function_create_block(fmain, "end")          );
  49
  50         assert(ir_block_create_store_op(bmain, INSTR_STORE_F, va, v3));
  51         assert( sum  = ir_block_create_add(bmain, "%sum", va, vb)               );
  52         assert( prd  = ir_block_create_mul(bmain, "%mul", sum, vc)              );
  53         assert( less = ir_block_create_binop(bmain, "%less", INSTR_LT, prd, vd) );
  54
  55         assert(ir_block_create_if(bmain, less, blt, bge));
  56
  57         x1 = ir_block_create_binop(blt, "%x1", INSTR_ADD_F, sum, v3);
  58         assert(x1);
  59         assert(ir_block_create_goto(blt, bend));
  60
  61         vig = ir_block_create_binop(bge, "%ignore", INSTR_ADD_F, va, vb);
  62         assert(vig);
  63         assert(ir_block_create_store_op(bge, INSTR_STORE_F, la, vig));
  64         x2 = ir_block_create_binop(bge, "%x2", INSTR_ADD_F, sum, v3);
  65         assert(x2);
  66         assert(ir_block_create_goto(bge, bend));
  67
  68         retphi = ir_block_create_phi(bend, "%retval", TYPE_FLOAT);
  69         assert(retphi);
  70         assert(ir_phi_add(retphi, blt, x1));
  71         assert(ir_phi_add(retphi, bge, x2));
  72         retval = ir_phi_value(retphi);
  73         assert(retval);
  74         assert(ir_block_create_return(bend, retval));
  75
  76         /*
  77         printf("%i  should be 1\n", ir_value_life_merge(va, 31));
  78         printf("%i  should be 1\n", ir_value_life_merge(va, 33));
  79         printf("%i  should be 0\n", ir_value_life_merge(va, 33));
  80         printf("%i  should be 1\n", ir_value_life_merge(va, 1));
  81         printf("%i  should be 1\n", ir_value_life_merge(va, 2));
  82         printf("%i  should be 1\n", ir_value_life_merge(va, 20));
  83         printf("%i  should be 1\n", ir_value_life_merge(va, 21));
  84         printf("%i  should be 1\n", ir_value_life_merge(va, 8));
  85         printf("%i  should be 1\n", ir_value_life_merge(va, 9));
  86         printf("%i  should be 1\n", ir_value_life_merge(va, 3));
  87         printf("%i  should be 0\n", ir_value_life_merge(va, 9));
  88         printf("%i  should be 1\n", ir_value_life_merge(va, 17));
  89         printf("%i  should be 1\n", ir_value_life_merge(va, 18));
  90         printf("%i  should be 1\n", ir_value_life_merge(va, 19));
  91         printf("%i  should be 0\n", ir_value_life_merge(va, 19));
  92         ir_value_dump_life(va, printf);
  93         printf("%i  should be 1\n", ir_value_life_merge(va, 10));
  94         printf("%i  should be 1\n", ir_value_life_merge(va, 9));
  95         printf("%i  should be 0\n", ir_value_life_merge(va, 10));
  96         printf("%i  should be 0\n", ir_value_life_merge(va, 10));
  97         ir_value_dump_life(va, printf);
  98         */
  99
 100         ir_builder_dump(b, printf);
 101         assert(ir_function_finalize(fmain));
 102         ir_builder_dump(b, printf);
 103
 104         ir_value_dump_life(sum, printf);
 105         ir_value_dump_life(prd, printf);
 106         ir_value_dump_life(less, printf);
 107         ir_value_dump_life(x1, printf);
 108         ir_value_dump_life(x2, printf);
 109         ir_value_dump_life(retval, printf);
 110         ir_value_dump_life(vig, printf);
 111         ir_value_dump_life(la, printf);
 112
 113         ir_builder_delete(b);
 114         return 0;
 115 }