test/mathffp.c

   1 /* Because fload is defined to "int" later below,
   2    and we still need the real float in some places */
   3
   4 typedef float realfloat;
   5
   6 union kludge
   7 {
   8     realfloat f;
   9     int i;
  10 };
  11
  12 /* !!!! Where you see "float" later below, "int" will be
  13    used instead by the compiler !!!! */
  14
  15 #define float int
  16
  17 /* Because of the define above, the math protos/defines are
  18    changed in such a way that all parameters are assumed to
  19    be integers and also the return value is assumed to be
  20    integer !!!! */
  21
  22 #include <proto/exec.h>
  23 #include <proto/mathffp.h>
  24 #include <proto/mathtrans.h>
  25 #include <libraries/mathffp.h>
  26 #include <stdio.h>
  27
  28 struct MathBase *MathBase;
  29 struct MathTransBase *MathTransBase;
  30
  31 realfloat converttofloat(float ffpfloat)
  32 {
  33     union kludge n;
  34
  35     n.i = ffpfloat;
  36     n.i = SPTieee(n.i);
  37
  38     return n.f;
  39 }
  40
  41 void domul(realfloat a, realfloat b)
  42 {
  43     union kludge x, y, res;
  44
  45     x.f = a;
  46     x.i = SPFieee(x.i);
  47
  48     y.f = b;
  49     y.i = SPFieee(y.i);
  50
  51     res.i = SPMul(x.i, y.i);
  52
  53     puts("");
  54     printf("mathffp  : %f x %f = %f (hex %x)\n",
  55            converttofloat(x.i), converttofloat(y.i), converttofloat(res.i), res.i);
  56     printf("realfloat: %f x %f = %f\n",
  57            a, b, a * b);
  58
  59 }
  60
  61 int main(void)
  62 {
  63     MathBase = (struct MathBase *)OpenLibrary("mathffp.library", 0);
  64     if (!MathBase) return;
  65
  66     /* mathtrans.library is needed for SPFieee() function to convert
  67        a float to IEEE floating point format */
  68
  69     MathTransBase = (struct MathTransBase *)OpenLibrary("mathtrans.library", 0);
  70     if (!MathTransBase) return;
  71
  72     domul(1.0, 0.017812);
  73     domul(2.0, 0.017812);
  74     domul(3.0, 0.017812);
  75     domul(4.0, 0.017812);
  76     domul(5.0, 0.017812);
  77     domul(6.0, 0.017812);
  78     domul(7.0, 0.017812);
  79     domul(8.0, 0.017812);
  80     domul(9.0, 0.017812);
  81
  82     CloseLibrary((struct Library *)MathTransBase);
  83     CloseLibrary((struct Library *)MathBase);
  84 }