xref: /external/valgrind/main/none/tests/s390x/fpconv.c

#include <float.h>
#include <stdio.h>
#include <stdint.h>
#include <inttypes.h>
#include <limits.h>

/* The following opcodes are tested:

   Convert to fixed:    cfebr, cgebr, cfdbr, cgdbr
   Convert from fixed:  cefbr, cdfbr, cegbr, cdgbr

   We do not test rounding here. Just making sure the insn selector
   picks the correct insn.
*/

#define I2F(insn, initial, target_type)                         \
do {                                                            \
   int64_t source = initial;                                    \
   target_type target;                                          \
   asm volatile(insn " %0,%1\n\t" :"=f" (target) :"d"(source)); \
   printf(insn " %"PRId64" -> %f\n", source, target);           \
} while (0)

#define DO_INSN_I32_TO_F(insn, target_type)        \
do {                                               \
   printf("\n----- int32_t -> " #target_type "\n");\
   I2F(insn,   0, target_type);                    \
   I2F(insn,   1, target_type);                    \
   I2F(insn,  -1, target_type);                    \
   I2F(insn,  42, target_type);                    \
   I2F(insn, SHRT_MAX, target_type);               \
   I2F(insn, SHRT_MIN, target_type);               \
   I2F(insn, INT_MAX, target_type);                \
   I2F(insn, INT_MIN, target_type);                \
} while (0)

#define DO_INSN_I64_TO_F(insn, target_type)        \
do {                                               \
   printf("\n----- int64_t -> " #target_type "\n");\
   I2F(insn,   0, target_type);                    \
   I2F(insn,   1, target_type);                    \
   I2F(insn,  -1, target_type);                    \
   I2F(insn,  42, target_type);                    \
   I2F(insn, SHRT_MAX, target_type);               \
   I2F(insn, SHRT_MIN, target_type);               \
   I2F(insn, INT_MAX, target_type);                \
   I2F(insn, INT_MIN, target_type);                \
   I2F(insn, LONG_MAX, target_type);               \
   I2F(insn, LONG_MIN, target_type);               \
} while (0)

#define DO_I2F()                        \
do {                                    \
   DO_INSN_I32_TO_F("cefbr", float);    \
   DO_INSN_I32_TO_F("cdfbr", double);   \
   DO_INSN_I64_TO_F("cegbr", float);    \
   DO_INSN_I64_TO_F("cdgbr", double);   \
} while (0)


#define F2I(insn, initial, source_type, target_type)               \
do {                                                               \
   int cc;                                                         \
   source_type source = initial;                                   \
   target_type target = 0;                                         \
   asm volatile(insn " %0,0,%2\n\t"                                \
                "ipm %1\n\t"                                       \
                "srl %1,28\n\t"                                    \
 		: "=d" (target), "=d" (cc) : "f"(source) : "cc");  \
   printf(insn " %f -> %ld   cc = %d\n", source, (long)target, cc); \
} while (0)

#define DO_INSN_F32_TO_I(insn, type)          \
do {                                          \
   printf("\n----- float -> " #type "\n");    \
   F2I(insn, -1.0f, float, type);             \
   F2I(insn,  0.0f, float, type);             \
   F2I(insn,  1.0f, float, type);             \
   F2I(insn, 1.4f, float, type);              \
   F2I(insn, 1.5f, float, type);              \
   F2I(insn, 1.6f, float, type);              \
   F2I(insn, 1.6E+4f, float, type);           \
   F2I(insn, 1.6E+8f, float, type);           \
   F2I(insn, 1.6E-4f, float, type);           \
   F2I(insn, FLT_MAX, float, type);           \
} while (0)

#define DO_INSN_F64_TO_I(insn, type)          \
do {                                          \
   printf("\n----- double -> " #type "\n");   \
   F2I(insn, -1.0, double, type);             \
   F2I(insn,  0.0, double, type);             \
   F2I(insn,  1.0, double, type);             \
   F2I(insn, 1.4, double, type);              \
   F2I(insn, 1.5, double, type);              \
   F2I(insn, 1.6, double, type);              \
   F2I(insn, 1.6E+4, double, type);           \
   F2I(insn, 1.6E+8, double, type);           \
   F2I(insn, 1.6E-4, double, type);           \
   F2I(insn, FLT_MAX, double, type);          \
   F2I(insn, DBL_MAX, double, type);          \
} while (0)

#define DO_F2I()                        \
do {                                    \
   DO_INSN_F32_TO_I("cfebr", int32_t);  \
   DO_INSN_F32_TO_I("cgebr", int64_t);  \
   DO_INSN_F64_TO_I("cfdbr", int32_t);  \
   DO_INSN_F64_TO_I("cgdbr", int64_t);  \
} while (0)


int main()
{
   DO_I2F();
   DO_F2I();

   return 0;
}