Mercurial > projects > ddmd
annotate dmd/expression/Add.d @ 114:e28b18c23469
added a module dmd.common for commonly used stuff
it currently holds code for consistency checking of predefined versions
also added a VisualD project file
| author | Trass3r |
|---|---|
| date | Wed, 01 Sep 2010 18:21:58 +0200 |
| parents | 5c9b78899f5d |
| children | 52188e7e3fb5 |
| rev | line source |
|---|---|
| 0 | 1 module dmd.expression.Add; |
| 2 | |
| 114 | 3 import dmd.common; |
| 0 | 4 import dmd.Expression; |
| 5 import dmd.Type; | |
| 6 import dmd.Loc; | |
| 7 import dmd.RealExp; | |
| 8 import dmd.ComplexExp; | |
| 9 import dmd.IntegerExp; | |
| 10 import dmd.TOK; | |
| 11 import dmd.SymOffExp; | |
| 12 import dmd.Complex; | |
|
16
5c9b78899f5d
Implemented methods for Tuples, fixed some linking issues.
Robert Clipsham <robert@octarineparrot.com>
parents:
0
diff
changeset
|
13 import dmd.Util : printf; |
| 0 | 14 |
| 15 Expression Add(Type type, Expression e1, Expression e2) | |
| 16 { | |
| 17 Expression e; | |
| 18 Loc loc = e1.loc; | |
| 19 | |
| 20 version (LOG) { | |
| 21 printf("Add(e1 = %s, e2 = %s)\n", e1.toChars(), e2.toChars()); | |
| 22 } | |
| 23 if (type.isreal()) | |
| 24 { | |
| 25 e = new RealExp(loc, e1.toReal() + e2.toReal(), type); | |
| 26 } | |
| 27 else if (type.isimaginary()) | |
| 28 { | |
| 29 e = new RealExp(loc, e1.toImaginary() + e2.toImaginary(), type); | |
| 30 } | |
| 31 else if (type.iscomplex()) | |
| 32 { | |
| 33 // This rigamarole is necessary so that -0.0 doesn't get | |
| 34 // converted to +0.0 by doing an extraneous add with +0.0 | |
| 35 Complex!(real) c1; | |
| 36 real r1; | |
| 37 real i1; | |
| 38 | |
| 39 Complex!(real) c2; | |
| 40 real r2; | |
| 41 real i2; | |
| 42 | |
| 43 Complex!(real) v; | |
| 44 int x; | |
| 45 | |
| 46 if (e1.type.isreal()) | |
| 47 { | |
| 48 r1 = e1.toReal(); | |
| 49 x = 0; | |
| 50 } | |
| 51 else if (e1.type.isimaginary()) | |
| 52 { | |
| 53 i1 = e1.toImaginary(); | |
| 54 x = 3; | |
| 55 } | |
| 56 else | |
| 57 { | |
| 58 c1 = e1.toComplex(); | |
| 59 x = 6; | |
| 60 } | |
| 61 | |
| 62 if (e2.type.isreal()) | |
| 63 { | |
| 64 r2 = e2.toReal(); | |
| 65 } | |
| 66 else if (e2.type.isimaginary()) | |
| 67 { | |
| 68 i2 = e2.toImaginary(); | |
| 69 x += 1; | |
| 70 } | |
| 71 else | |
| 72 { | |
| 73 c2 = e2.toComplex(); | |
| 74 x += 2; | |
| 75 } | |
| 76 | |
| 77 switch (x) | |
| 78 { | |
| 79 case 0+0: v = Complex!(real)(r1 + r2, 0); break; | |
| 80 case 0+1: v = Complex!(real)(r1, i2); break; | |
| 81 case 0+2: v = Complex!(real)(r1 + c2.re, c2.im); break; | |
| 82 case 3+0: v = Complex!(real)(r2, i1); break; | |
| 83 case 3+1: v = Complex!(real)(0, i1 + i2); break; | |
| 84 case 3+2: v = Complex!(real)(c2.re, i1 + c2.im); break; | |
| 85 case 6+0: v = Complex!(real)(c1.re + r2, c1.im); break; | |
| 86 case 6+1: v = Complex!(real)(c1.re, c1.im + i2); break; | |
| 87 case 6+2: v = Complex!(real)(c1.re + c2.re, c1.im + c2.im); break; | |
| 88 } | |
| 89 e = new ComplexExp(loc, v, type); | |
| 90 } | |
| 91 else if (e1.op == TOK.TOKsymoff) | |
| 92 { | |
| 93 SymOffExp soe = cast(SymOffExp)e1; | |
| 94 e = new SymOffExp(loc, soe.var, soe.offset + cast(uint)e2.toInteger()); | |
| 95 e.type = type; | |
| 96 } | |
| 97 else if (e2.op == TOK.TOKsymoff) | |
| 98 { | |
| 99 SymOffExp soe = cast(SymOffExp)e2; | |
| 100 e = new SymOffExp(loc, soe.var, soe.offset + cast(uint)e1.toInteger()); | |
| 101 e.type = type; | |
| 102 } | |
| 103 else | |
| 104 e = new IntegerExp(loc, e1.toInteger() + e2.toInteger(), type); | |
| 105 | |
| 106 return e; | |
|
16
5c9b78899f5d
Implemented methods for Tuples, fixed some linking issues.
Robert Clipsham <robert@octarineparrot.com>
parents:
0
diff
changeset
|
107 } |