mirror of
https://github.com/Zenithsiz/ftmemsim-valgrind.git
synced 2026-02-10 21:47:06 +00:00
bae94d70af
actually checks the condition code of the conversion instruction (most programs dont do that) git-svn-id: svn://svn.valgrind.org/valgrind/trunk@12859
148 lines
8.2 KiB
C
148 lines
8.2 KiB
C
/* basic float <-> signed int conversions available since z900 */
|
|
#include <float.h>
|
|
#include <stdio.h>
|
|
#include "opcodes.h"
|
|
|
|
#define I2F(insn, initial, target,round) \
|
|
({ \
|
|
register unsigned long source asm("2") = initial; \
|
|
register typeof(target) _t asm("f0"); \
|
|
asm volatile(insn " 0,2\n\t" :"=f" (_t):"d"(source)); \
|
|
_t; \
|
|
})
|
|
|
|
#define F2L(insn, initial, type, round, cc) \
|
|
({ \
|
|
register type source asm("f0") = initial; \
|
|
register unsigned long target asm ("2") = 0; \
|
|
asm volatile(insn " 2," #round ",0\n\t" \
|
|
"ipm %1\n\t" \
|
|
"srl %1,28\n\t" \
|
|
:"=d" (target), "=d" (cc) :"f"(source):"cc"); \
|
|
target; \
|
|
})
|
|
|
|
|
|
#define DO_INSN_I2F32(insn, round) \
|
|
({ \
|
|
float f32; \
|
|
printf(#insn " %f\n", I2F(insn, 0, f32, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 1, f32, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0xffffffffUL, f32, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x80000000UL, f32, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x7fffffffUL, f32, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x100000000UL, f32, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0xffffffffffffffffUL, f32, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x8000000000000000UL, f32, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x7fffffffffffffffUL, f32, round)); \
|
|
})
|
|
|
|
#define DO_INSN_I2F64(insn, round) \
|
|
({ \
|
|
double f64; \
|
|
printf(#insn " %f\n", I2F(insn, 0, f64, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 1, f64, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0xffffffffUL, f64, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x80000000UL, f64, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x7fffffffUL, f64, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x100000000UL, f64, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0xffffffffffffffffUL, f64, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x8000000000000000UL, f64, round)); \
|
|
printf(#insn " %f\n", I2F(insn, 0x7fffffffffffffffUL, f64, round)); \
|
|
})
|
|
|
|
#define DO_INSN_I2F128(insn, round) \
|
|
({ \
|
|
long double f128; \
|
|
printf(#insn " %Lf\n", I2F(insn, 0, f128, round)); \
|
|
printf(#insn " %Lf\n", I2F(insn, 1, f128, round)); \
|
|
printf(#insn " %Lf\n", I2F(insn, 0xffffffffUL, f128, round)); \
|
|
printf(#insn " %Lf\n", I2F(insn, 0x80000000UL, f128, round)); \
|
|
printf(#insn " %Lf\n", I2F(insn, 0x7fffffffUL, f128, round)); \
|
|
printf(#insn " %Lf\n", I2F(insn, 0x100000000UL, f128, round)); \
|
|
printf(#insn " %Lf\n", I2F(insn, 0xffffffffffffffffUL, f128, round)); \
|
|
printf(#insn " %Lf\n", I2F(insn, 0x8000000000000000UL, f128, round)); \
|
|
printf(#insn " %Lf\n", I2F(insn, 0x7fffffffffffffffUL, f128, round)); \
|
|
})
|
|
|
|
#define DO_INSN_F2L(insn, round, type) \
|
|
({ \
|
|
int cc; \
|
|
printf(#insn " %ld ", F2L(insn, -1.1, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 0, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.4, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.5, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.6, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.6E+4, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.6E+8, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.6E+12, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.6E+20, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.6E+200, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.6E+2000L, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, 1.6E-4, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, FLT_MIN, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, FLT_MAX, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, DBL_MIN, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, DBL_MAX, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, LDBL_MIN, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
printf(#insn " %ld ", F2L(insn, LDBL_MAX, type, round, cc)); \
|
|
printf("cc=%d\n", cc); \
|
|
})
|
|
|
|
#define DO_I2F(round) \
|
|
({ \
|
|
DO_INSN_I2F32("cefbr", round); \
|
|
DO_INSN_I2F32("cegbr", round); \
|
|
DO_INSN_I2F64("cdfbr", round); \
|
|
DO_INSN_I2F64("cdgbr", round); \
|
|
DO_INSN_I2F128("cxfbr", round); \
|
|
DO_INSN_I2F128("cxgbr", round); \
|
|
})
|
|
|
|
#define DO_F2L(round) \
|
|
({ \
|
|
DO_INSN_F2L("cfebr", round, float); \
|
|
DO_INSN_F2L("cgebr", round, float); \
|
|
DO_INSN_F2L("cfdbr", round, double); \
|
|
DO_INSN_F2L("cgdbr", round, double); \
|
|
DO_INSN_F2L("cfxbr", round, long double); \
|
|
DO_INSN_F2L("cgxbr", round, long double); \
|
|
})
|
|
|
|
|
|
int main()
|
|
{
|
|
DO_I2F(4);
|
|
DO_F2L(4);
|
|
|
|
DO_I2F(5);
|
|
DO_F2L(5);
|
|
|
|
DO_I2F(6);
|
|
DO_F2L(6);
|
|
|
|
DO_I2F(7);
|
|
DO_F2L(7);
|
|
|
|
return 0;
|
|
}
|