1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
# floating point casts and conversions
export
function s $fneg(s %f) {
@fneg
%b0 =w cast %f
%b1 =w xor 2147483648, %b0
%rs =s cast %b1
ret %rs
}
export
function d $ftrunc(d %f) {
@ftrunc
%l0 =w dtosi %f
%rt =d swtof %l0
ret %rt
}
export
function s $wtos(w %w) {
@start
%rt =s uwtof %w
ret %rt
}
export
function d $wtod(w %w) {
@start
%rt =d uwtof %w
ret %rt
}
export
function s $ltos(l %l) {
@start
%rt =s ultof %l
ret %rt
}
export
function d $ltod(l %l) {
@start
%rt =d ultof %l
ret %rt
}
# >>> driver
# extern float fneg(float);
# extern double ftrunc(double);
#
# extern float wtos(unsigned int);
# extern double wtod(unsigned int);
# extern float ltos(long long unsigned int);
# extern double ltod(long long unsigned int);
#
# unsigned long long iin[] = { 0, 1, 16, 234987, 427386245, 0x7fff0000,
# 0xffff0000, 23602938196141, 72259248152500195, 9589010795705032704ull,
# 0xdcf5fbe299d0148aull, 0xffffffff00000000ull, -1 };
#
# int main() {
# int i;
#
# if (fneg(1.23f) != -1.23f) return 1;
# if (ftrunc(3.1415) != 3.0) return 2;
# if (ftrunc(-1.234) != -1.0) return 3;
#
# for (i=0; i<sizeof(iin)/sizeof(iin[0]); i++) {
# if (wtos(iin[i]) != (float) (unsigned int)iin[i])
# return 4;
# if (wtod(iin[i]) != (double)(unsigned int)iin[i])
# return 5;
# if (ltos(iin[i]) != (float) iin[i])
# return 6;
# if (ltod(iin[i]) != (double)iin[i])
# return 7;
# }
# return 0;
# }
# <<<
|
