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
|
#! stap -p4
#Test the floating point tapset.
function printlnfp(a) { println(fp_to_string(a,5)) }
probe process("stap").mark("benchmark__thread__start") {
println("sdt parameters:")
printlnfp($fp1)
printlnfp($fp2)
println("sdt locals:")
printlnfp($fp_local1)
printlnfp($fp_local2)
printlnfp($fp_local3)
printlnfp($fp_local4)
printlnfp($fp_local5)
printlnfp($fp_local6)
printlnfp($fp_local7)
printlnfp($fp_local8)
printlnfp($fp_local9)
printlnfp($fp_local10)
printlnfp($fp_local11)
printlnfp($fp_local12)
printlnfp($fp_local13)
printlnfp($fp_local14)
printlnfp($fp_local15)
exit()
}
probe begin {
a = 4614253070214989087 //3.14
b = 4622500287032611308 //11.21
println(fp_to_string(a, 5)) // 3.14
printlnfp(string_to_fp("3.14"))
printlnfp(string_to_fp("1.0"))
printlnfp(long_to_fp(3))
println(fp_to_long(a, 0, 0)) //3.14
printlnfp(fp_add(b, a)) //11.21 + 3.14 = 14.35
printlnfp(fp_sub(b, a)) //11.21 - 3.14 = 8.07
printlnfp(fp_mul(b, a)) //11.21 * 3.14 = 35.199
printlnfp(fp_div(b, a)) //11.21 / 3.14 = 3.570
//println(fp_rem(b, a)) //11.21 % 3.14 = 1.79
printlnfp(fp_sqrt(a)) //sqrt 3.14 = 1.772
println(fp_lt(b, a)) //11.21 < 3.14 0
println(fp_le(b, a)) //11.21 <= 3.14 0
println(fp_eq(b, a)) //11.21 == 3.14 0
println(fp_lt(a, b)) //3.14 < 11.21 1
println(fp_le(a, b)) //3.14 <= 11.21 1
println(fp_eq(a, a)) //3.14 == 3.14 1
println(fp_lt(a, a)) //3.14 < 3.14 0
println(fp_le(a, a)) //3.14 <= 3.14 1
println(fp_eq(a, a)) //3.14 == 3.14 1
try {
/* do something */
printlnfp(string_to_fp("deadbeef"))
} catch (msg) { /* omit (msg) entirely if not interested */
println("caught error: ", msg)
}
}
|
