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

   1 USING: kernel compiler.cfg.two-operand compiler.cfg.instructions
   2 compiler.cfg.registers cpu.architecture namespaces tools.test ;
   3 IN: compiler.cfg.two-operand.tests
   4
   5 3 vreg-counter set-global
   6
   7 [
   8     V{
   9         T{ ##copy f 1 2 int-rep }
  10         T{ ##sub f 1 1 3 }
  11     }
  12 ] [
  13     H{
  14         { 1 int-rep }
  15         { 2 int-rep }
  16         { 3 int-rep }
  17     } clone representations set
  18     {
  19         T{ ##sub f 1 2 3 }
  20     } (convert-two-operand)
  21 ] unit-test
  22
  23 [
  24     V{
  25         T{ ##copy f 1 2 double-float-rep }
  26         T{ ##sub-float f 1 1 3 }
  27     }
  28 ] [
  29     H{
  30         { 1 double-float-rep }
  31         { 2 double-float-rep }
  32         { 3 double-float-rep }
  33     } clone representations set
  34     {
  35         T{ ##sub-float f 1 2 3 }
  36     } (convert-two-operand)
  37 ] unit-test
  38
  39 [
  40     V{
  41         T{ ##copy f 1 2 double-float-rep }
  42         T{ ##mul-float f 1 1 1 }
  43     }
  44 ] [
  45     H{
  46         { 1 double-float-rep }
  47         { 2 double-float-rep }
  48     } clone representations set
  49     {
  50         T{ ##mul-float f 1 2 2 }
  51     } (convert-two-operand)
  52 ] unit-test