sdcc/support/regression/tests/oldfmul.c

   1 /*
   2    oldfmul.c - a bug that resulted in wrong results in an old float multiplication routine.
   3 */
   4
   5 #include <testfwk.h>
   6
   7 union float_long
   8   {
   9     float f;
  10     unsigned long l;
  11   };
  12
  13 #define HIDDEN          (unsigned long)(1ul << 23)
  14
  15 void lmul (unsigned long l, unsigned long r)
  16 {
  17   ASSERT (l == HIDDEN >> 8);
  18   ASSERT (r == HIDDEN >> 8);
  19
  20 }
  21
  22 void oldfmul11 (void) {
  23   volatile union float_long fl1, fl2;
  24
  25   fl1.l = HIDDEN;
  26   fl2.l = HIDDEN;
  27
  28   lmul((fl1.l >> 8), (fl2.l >> 8));
  29 }
  30
  31 void
  32 testBug (void)
  33 {
  34   oldfmul11 ();
  35 }
  36