| /* 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; |
| } |