Mercurial > projects > ldc
annotate tests/mini/structs3.d @ 445:cc40db549aea
Changed the handling of variadic intrinsics a bit.
Removed the -fp80 option and made real be 80bit floats on X86, this is what the D spec really says it should be and fixes a bunch of issues.
Changed the handling of parameter attributes to a bit more generalized approach.
Added sext/zext attributes for byte/short/ubyte/ushort parameters, fixes #60 .
Parameter attribs now properly set for intrinsic calls if necessary.
Made the tango.math.Math patch less intrusive.
Fixed/added some mini tests.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Fri, 01 Aug 2008 17:59:58 +0200 |
parents | 1bb99290e03a |
children |
rev | line source |
---|---|
7 | 1 module structs3; |
2 | |
3 struct S | |
4 { | |
5 char c; | |
8
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
6 float f; |
7 | 7 } |
8 | |
9 struct T | |
10 { | |
11 S s; | |
12 long l; | |
13 } | |
14 | |
15 void main() | |
16 { | |
8
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
17 T t; |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
18 float f = void; |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
19 float* fp = void; |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
20 {f = t.s.f;} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
21 {t.s.f = 0.0;} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
22 {fp = &t.s.f;} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
23 {*fp = 1.0;} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
24 {assert(t.s.f == 1.0);} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
25 {assert(*(&t.s.f) == 1.0);} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
26 {t.s.c = 'a';} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
27 {assert(t.s.c == 'a');} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
28 {t.l = 64;} |
5e69b77a5c51
[svn r12] fixed accessing aggregate fields of aggregates
lindquist
parents:
7
diff
changeset
|
29 {assert(t.l == 64);} |
7 | 30 } |