basis/compiler/cfg/two-operand/two-operand-tests.factor

   1 IN: compiler.cfg.two-operand.tests
   2 USING: compiler.cfg.two-operand compiler.cfg.instructions
   3 compiler.cfg.registers cpu.architecture namespaces tools.test ;
   4
   5 3 vreg-counter set-global
   6
   7 [
   8     V{
   9         T{ ##copy f V int-rep 1 V int-rep 2 int-rep }
  10         T{ ##sub f V int-rep 1 V int-rep 1 V int-rep 3 }
  11     }
  12 ] [
  13     {
  14         T{ ##sub f V int-rep 1 V int-rep 2 V int-rep 3 }
  15     } (convert-two-operand)
  16 ] unit-test
  17
  18 [
  19     V{
  20         T{ ##copy f V double-float-rep 1 V double-float-rep 2 double-float-rep }
  21         T{ ##sub-float f V double-float-rep 1 V double-float-rep 1 V double-float-rep 3 }
  22     }
  23 ] [
  24     {
  25         T{ ##sub-float f V double-float-rep 1 V double-float-rep 2 V double-float-rep 3 }
  26     } (convert-two-operand)
  27 ] unit-test