Mercurial > projects > dstress
annotate run/creal_02.d @ 1630:d0efa3ae5522 default tip
run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
| author | David Nadlinger <code@klickverbot.at> |
|---|---|
| date | Sat, 23 Apr 2011 22:57:32 +0200 |
| parents | 5511f9277078 |
| children |
| rev | line source |
|---|---|
| 374 | 1 // $HeadURL$ |
| 2 // $Date$ | |
| 3 // $Author$ | |
| 4 | |
| 94 | 5 module dstress.run.creal_02; |
| 6 | |
| 7 int main(){ | |
| 920 | 8 real x1 = 2.0L; |
| 9 real y1 = 3.0L; | |
| 10 real x2 = 5.0L; | |
| 11 real y2 = 7.0L; | |
| 12 ireal i = 1.0Li; | |
| 94 | 13 |
| 14 creal a = x1 + y1*i; | |
| 15 creal b = x2 + y2*i; | |
| 16 creal c = a - b; | |
| 17 | |
| 18 creal d = (x1-x2) + (y1*i-y2*i); | |
| 19 assert(c == d); | |
| 20 | |
| 21 return 0; | |
| 22 } |