xref: /external/valgrind/none/tests/s390x/dfpext.c

#include <stdio.h>
#include "opcodes.h"
#include "dfp_utils.h"
#define __STDC_WANT_DEC_FP__ 1
#include <float.h>

#define L2D(insn,  initial, target,round)                               \
  ({                                                                    \
    register unsigned long source asm("2") =  initial;                  \
    register typeof(target) _t asm("f0");                               \
    asm volatile(insn(round,0,0,2) :"=f" (_t):"d"(source));             \
    _t;                                                                 \
  })

#define I2D(insn,  initial, target,round)                               \
  ({                                                                    \
    register int source asm("2") =  initial;                            \
    register typeof(target) _t asm("f0");                               \
    asm volatile(insn(round,0,0,2) :"=f" (_t):"d"(source));             \
    _t;                                                                 \
})

#define D2L(insn, initial, type, round, cc)                             \
  ({                                                                    \
    register type source asm("f0") =  initial;                          \
    register unsigned long target asm ("2") = 0;                        \
    asm volatile(insn(round,0,2,0)                                      \
                 "ipm %1\n\t"                                           \
                 "srl %1,28\n\t"                                        \
                 :"=d" (target), "=d" (cc) :"f"(source):"cc");          \
    target;                                                             \
  })

#define D2I(insn, initial, type, round, cc)                             \
  ({                                                                    \
    register type source asm("f0") =  initial;                          \
    register int target asm ("2") = 0;                                  \
    asm volatile(insn(round,0,2,0)                                      \
                 "ipm %1\n\t"                                           \
                 "srl %1,28\n\t"                                        \
                 :"=d" (target), "=d" (cc) :"f"(source):"cc");          \
    target;                                                             \
})


#define DO_PRINT_L2D(insn, l, d, round)                                 \
  ({                                                                    \
    printf(#insn " round=%d %lu -> ", 0x##round, l);                    \
    d = L2D(insn, l, d, round);                                         \
    DFP_VAL_PRINT(d, typeof(d));                                        \
    printf("\n");                                                       \
  })

#define DO_INSN_L2D(insn, round, type)                                  \
  ({                                                                    \
    type d;                                                             \
    DO_PRINT_L2D(insn, 0UL, d, round);                                  \
    DO_PRINT_L2D(insn, 1UL, d, round);                                  \
    DO_PRINT_L2D(insn, 0xffffffffUL, d, round);                         \
    DO_PRINT_L2D(insn, 0x80000000UL, d, round);                         \
    DO_PRINT_L2D(insn, 0x7fffffffUL, d, round);                         \
    DO_PRINT_L2D(insn, 0x100000000UL, d, round);                        \
    DO_PRINT_L2D(insn, 0xffffffffffffffffUL, d, round);                 \
    DO_PRINT_L2D(insn, 0x8000000000000000UL, d, round);                 \
    DO_PRINT_L2D(insn, 0x7fffffffffffffffUL, d, round);                 \
  })

#define DO_PRINT_I2D(insn, l, d, round)                                 \
  ({                                                                    \
    printf(#insn " round=%d %d -> ", 0x##round, l);                     \
    d = I2D(insn, l, d, round);                                         \
    DFP_VAL_PRINT(d, typeof(d));                                        \
    printf("\n");                                                       \
  })

#define DO_INSN_I2D(insn, round, type)                                  \
  ({                                                                    \
    type d;                                                             \
    DO_PRINT_I2D(insn, 0, d, round);                                    \
    DO_PRINT_I2D(insn, 1, d, round);                                    \
    DO_PRINT_I2D(insn, 0xffffffff, d, round);                           \
    DO_PRINT_I2D(insn, 0x80000000, d, round);                           \
    DO_PRINT_I2D(insn, 0x7fffffff, d, round);                           \
   })

#define DO_PRINT_D2L(insn, d, type, round, cc)                          \
  ({                                                                    \
    printf(#insn " round=%d ", 0x##round);                              \
    DFP_VAL_PRINT(d, type);                                             \
    printf(" -> %lu ", D2L(insn, d, type, round, cc));                  \
    printf("cc=%d\n", cc);                                              \
  })

#define DO_INSN_D2L(insn, round, type)                                  \
  ({                                                                    \
    int cc;                                                             \
    type d;                                                             \
    d = -1.1DD;                                                         \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 0.DD;                                                           \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.DD;                                                           \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.4DD;                                                          \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.5DD;                                                          \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.6DD;                                                          \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.6E+4DD;                                                       \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.6E+8DD;                                                       \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.6E+4DD;                                                       \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.6E+12DD;                                                      \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.6E+20DD;                                                      \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.6E+200DD;                                                     \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = 1.6E-4DD;                                                       \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = DEC32_MIN;                                                      \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = DEC32_MAX;                                                      \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = DEC64_MIN;                                                      \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
    d = DEC64_MAX;                                                      \
    DO_PRINT_D2L(insn, d, type, round, cc);                             \
  })

#define DO_PRINT_D2I(insn, d, type, round, cc)                          \
  ({                                                                    \
    printf(#insn " round=%d ", 0x##round);                              \
    DFP_VAL_PRINT(d, type);                                             \
    printf(" -> %d ", D2I(insn, d, type, round, cc));                   \
    printf("cc=%d\n", cc);                                              \
  })

#define DO_INSN_D2I(insn, round, type)                                  \
  ({                                                                    \
    int cc;                                                             \
    type d;                                                             \
    d = -1.1DD;                                                         \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 0.DD;                                                           \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.DD;                                                           \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.4DD;                                                          \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.5DD;                                                          \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.6DD;                                                          \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.6E+4DD;                                                       \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.6E+8DD;                                                       \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.6E+4DD;                                                       \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.6E+12DD;                                                      \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.6E+20DD;                                                      \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.6E+200DD;                                                     \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = 1.6E-4DD;                                                       \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = DEC32_MIN;                                                      \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = DEC32_MAX;                                                      \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = DEC64_MIN;                                                      \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
    d = DEC64_MAX;                                                      \
    DO_PRINT_D2I(insn, d, type, round, cc);                             \
  })

#define DO_D2L(round)                                                   \
  ({                                                                    \
    DO_INSN_D2L(CLFDTR, round, _Decimal64);                             \
    DO_INSN_D2L(CLGDTR, round, _Decimal64);                             \
    DO_INSN_D2I(CFDTR,  round, _Decimal64);                             \
    DO_INSN_D2L(CLFXTR, round, _Decimal128);                            \
    DO_INSN_D2L(CLGXTR, round, _Decimal128);                            \
    DO_INSN_D2I(CFXTR,  round, _Decimal128);                            \
  })


int main()
{
  /* rounding mode is not used for the following insns */
  DO_INSN_I2D(CDFTR,  0, _Decimal64);
  DO_INSN_I2D(CXFTR,  0, _Decimal128);
  DO_INSN_L2D(CDLFTR, 0, _Decimal64);
  DO_INSN_L2D(CXLFTR, 0, _Decimal128);
  DO_INSN_L2D(CXLGTR, 0, _Decimal128);

  /* Omit rounding mode value 0 and 2 as the current DFP rounding
     mode is chosen for these values. */
  DO_INSN_L2D(CDLGTR, 1, _Decimal64);
  DO_D2L(1);

  DO_INSN_L2D(CDLGTR, 3, _Decimal64);
  DO_D2L(3);

  DO_INSN_L2D(CDLGTR, 4, _Decimal64);
  DO_D2L(4);

  DO_INSN_L2D(CDLGTR, 5, _Decimal64);
  DO_D2L(5);

  DO_INSN_L2D(CDLGTR, 6, _Decimal64);
  DO_D2L(6);

  DO_INSN_L2D(CDLGTR, 7, _Decimal64);
  DO_D2L(7);

  DO_INSN_L2D(CDLGTR, 8, _Decimal64);
  DO_D2L(8);

  DO_INSN_L2D(CDLGTR, 9, _Decimal64);
  DO_D2L(9);

  DO_INSN_L2D(CDLGTR, a, _Decimal64);
  DO_D2L(a);

  DO_INSN_L2D(CDLGTR, b, _Decimal64);
  DO_D2L(b);

  DO_INSN_L2D(CDLGTR, c, _Decimal64);
  DO_D2L(c);

  DO_INSN_L2D(CDLGTR, d, _Decimal64);
  DO_D2L(d);

  DO_INSN_L2D(CDLGTR, e, _Decimal64);
  DO_D2L(e);

  DO_INSN_L2D(CDLGTR, f, _Decimal64);
  DO_D2L(f);

  return 0;
}