deps/lightning/check/fop_abs.tst

   1 #include "alu.inc"
   2
   3 .code
   4         prolog
   5 #define ABS(N, T, I, V)         FUN(N, T, abs, I, V)
   6 #define UABS(N, T, I, V)        UFUN(N, T, abs, I, V)
   7         ABS(0, _f,      -0.0,            0.0)
   8         ABS(1, _f,       0.5,            0.5)
   9         ABS(2, _f,      -0.5,            0.5)
  10         ABS(3, _f,      $Inf,           $Inf)
  11         ABS(4, _f,      $nInf,          $Inf)
  12         ABS(5, _f,       1.25,          1.25)
  13         ABS(6, _f,      -1.25,          1.25)
  14         ABS(7, _f,      $nInf,          $Inf)
  15         UABS(0, _f,     $NaN,           $NaN)
  16         ABS(0, _d,      -0.0,            0.0)
  17         ABS(1, _d,       0.5,            0.5)
  18         ABS(2, _d,      -0.5,            0.5)
  19         ABS(3, _d,      $Inf,           $Inf)
  20         ABS(4, _d,      $nInf,          $Inf)
  21         ABS(5, _d,       1.25,           1.25)
  22         ABS(6, _d,      -1.25,           1.25)
  23         ABS(7, _d,      $nInf,          $Inf)
  24         UABS(0, _d,     $NaN,           $NaN)
  25
  26         prepare
  27                 pushargi ok
  28                 ellipsis
  29         finishi @printf
  30         ret
  31         epilog