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
|
discard """
output: '''
9.0
'''
"""
### bug #6773
{.emit: """ /*INCLUDESECTION*/
typedef double cimported;
cimported set1_imported(double x) {
return x;
}
"""}
type vfloat{.importc: "cimported".} = object
proc set1(a: float): vfloat {.importc: "set1_imported".}
converter scalar_to_vector(x: float): vfloat =
set1(x)
proc sqrt(x: vfloat): vfloat =
x
proc pow(x, y: vfloat): vfloat =
y
proc `^`(x: vfloat, exp: static[int]): vfloat =
when exp == 0:
1.0
else:
x
proc `^`(x: vfloat, exp: static[float]): vfloat =
when exp == 0.5:
sqrt(x)
else:
pow(x, exp)
proc `$`(x: vfloat): string =
let y = cast[ptr float](addr x)
result = $y[]
let x = set1(9.0)
echo x^0.5
|
