blob: 718ed8de20c38999a90f441dcb883e71336a81aa (
plain) (
blame)
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
|
namespace;
include rt, run;
// f32: single precision values and packed arrays of them
struct vec3 { f32 x, y, z; };
f32 gsum;
fn put_f(x) { asm { x @ #1220 } return 0; }
f32[8] run.gbuf;
f32 half(f32 v) { return v / 2; }
fn main() {
gsum = 0.1;
f32 a = 16777216.0;
f32 b = a + 1.0; // rounds back to 16777216 in single precision
float c = 16777216.0 + 1.0;
f32 t = 0.1;
float u = 0.1;
put_f(b); rt.put_c(' '); put_f(c); rt.put_c(' ');
rt.put_n(t == 0.1); rt.put_n(t == u); rt.put_n(t == (f32)u); rt.put_c(' ');
put_f(half(3.0)); rt.put_c(' ');
put_f(gsum * 10); rt.put_c(' '); // 1.000000 (0.1f * 10 in double)
vec3 v; v.x = 1.5; v.y = 0.1; v.z = 2;
put_f(v.x + v.y + v.z); rt.put_c(' ');
int i = 0;
run.gbuf[0] = 0.1; rt.put_n(run.gbuf[0] == t); rt.put_n(run.gbuf[0] == u); rt.put_c(' ');
while (i < 8) { run.gbuf[i] = i * 0.25 + 0.1; i++; }
float s = 0;
i = 0;
while (i < 8) { s += run.gbuf[i]; i++; }
put_f(s); rt.put_c(' ');
f32* p = rt.new(f32, 100);
i = 0;
while (i < 100) { p[i] = i; i++; }
s = 0; i = 0;
while (i < 100) { s += p[i]; i++; }
put_f(s); rt.put_c(' ');
rt.put_n(sizeof(run.gbuf)); rt.put_n(sizeof(f32[100])); rt.put_c(10);
rt.free(d*p);
}
|
