1 #include <stdio.h>
2 #include <math.h>
3 #include <stdlib.h>
4
5
6 float no1,no2,no3,no4,no5,no6,no7;
7 float result,resultd,resultld;
8 float *float_memory;
9 long double ldx = 88888888888888888888.88, ldy = 9999999999999999999.99;
10 double x = 100.345, y = 25.7789;
11 /* marks FPU stack as empty */
empty_fpu_stack()12 void empty_fpu_stack()
13 {
14 asm ("ffree %st(1) \n\t"
15 "ffree %st(2) \n\t"
16 "ffree %st(3) \n\t"
17 "ffree %st(4) \n\t"
18 "ffree %st(5) \n\t"
19 "ffree %st(6) \n\t"
20 "ffree %st(7)");
21 }
22
23 /* initialization of floats */
init_floats()24 void init_floats()
25 {
26 no1 = 10.45;
27 no2 = 20.77;
28 no3 = 156.89874646;
29 no4 = 14.56;
30 no5 = 11.11;
31 no6 = 66.77;
32 no7 = 88.88;
33 float_memory = malloc(sizeof(float) * 4);
34 *float_memory = 256.256;
35 *(float_memory + 1) = 356.356;
36 *(float_memory + 2) = 456.456;
37 *(float_memory + 3) = 556.556;
38 }
39
main()40 int main()
41 {
42 init_floats();
43 empty_fpu_stack(); /* BEGIN I387-FLOAT-REVERSE */
44
45 asm("nop"); /* TEST ENV */
46 asm ("fsave %0" : "=m"(*float_memory) : );
47 asm ("frstor %0" : : "m"(*float_memory));
48 asm ("fstsw %ax"); /* test eax register */
49
50 asm ("fld1");
51 asm ("fldl2t");
52 asm ("fldl2e");
53 asm ("fldpi");
54 asm ("fldlg2");
55 asm ("fldln2");
56 asm ("fldz");
57 asm ("nop");
58
59 return 1; /* END I387-FLOAT-REVERSE */
60 }
61