135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
1 module dmd.PowAssignExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
2
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
3 import dmd.BinExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
4 import dmd.Scope;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
5 import dmd.Loc;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
6 import dmd.Identifier;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
7 import dmd.Expression;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
8 import dmd.TOK;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
9 import dmd.STC;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
10 import dmd.PowExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
11 import dmd.AssignExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
12 import dmd.Lexer;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
13 import dmd.VarDeclaration;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
14 import dmd.ExpInitializer;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
15 import dmd.DeclarationExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
16 import dmd.VarExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
17 import dmd.CommaExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
18 import dmd.ErrorExp;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
19 import dmd.Id;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
20
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
21 // Only a reduced subset of operations for now.
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
22 class PowAssignExp : BinExp
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
23 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
24 this(Loc loc, Expression e1, Expression e2)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
25 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
26 super(loc, TOK.TOKpowass, PowAssignExp.sizeof, e1, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
27 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
28
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
29 override Expression semantic(Scope sc)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
30 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
31 Expression e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
32
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
33 if (type)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
34 return this;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
35
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
36 BinExp.semantic(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
37 e2 = resolveProperties(sc, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
38
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
39 e = op_overload(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
40 if (e)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
41 return e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
42
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
43 e1 = e1.modifiableLvalue(sc, e1);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
44 assert(e1.type && e2.type);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
45
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
46 if ( (e1.type.isintegral() || e1.type.isfloating()) &&
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
47 (e2.type.isintegral() || e2.type.isfloating()))
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
48 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
49 if (e1.op == TOKvar)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
50 { // Rewrite: e1 = e1 ^^ e2
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
51 e = new PowExp(loc, e1.syntaxCopy(), e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
52 e = new AssignExp(loc, e1, e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
53 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
54 else
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
55 { // Rewrite: ref tmp = e1; tmp = tmp ^^ e2
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
56 Identifier id = Lexer.uniqueId("__powtmp");
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
57 auto v = new VarDeclaration(e1.loc, e1.type, id, new ExpInitializer(loc, e1));
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
58 v.storage_class |= STC.STCref | STC.STCforeach;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
59 Expression de = new DeclarationExp(e1.loc, v);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
60 VarExp ve = new VarExp(e1.loc, v);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
61 e = new PowExp(loc, ve, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
62 e = new AssignExp(loc, new VarExp(e1.loc, v), e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
63 e = new CommaExp(loc, de, e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
64 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
65 e = e.semantic(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
66 return e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
67 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
68 error("%s ^^= %s is not supported", e1.type.toChars(), e2.type.toChars() );
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
69 return new ErrorExp();
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
70 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
71
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
72 // For operator overloading
|
154
|
73 override Identifier opId()
|
135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
74 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
75 return Id.powass;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
76 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
77 }; |