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 {
|
178
|
26 register();
|
135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
27 super(loc, TOK.TOKpowass, PowAssignExp.sizeof, e1, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
28 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
29
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
30 override Expression semantic(Scope sc)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
31 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
32 Expression e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
33
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
34 if (type)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
35 return this;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
36
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
37 BinExp.semantic(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
38 e2 = resolveProperties(sc, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
39
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
40 e = op_overload(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
41 if (e)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
42 return e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
43
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
44 e1 = e1.modifiableLvalue(sc, e1);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
45 assert(e1.type && e2.type);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
46
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
47 if ( (e1.type.isintegral() || e1.type.isfloating()) &&
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
48 (e2.type.isintegral() || e2.type.isfloating()))
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
49 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
50 if (e1.op == TOKvar)
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
51 { // Rewrite: e1 = e1 ^^ e2
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
52 e = new PowExp(loc, e1.syntaxCopy(), e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
53 e = new AssignExp(loc, e1, e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
54 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
55 else
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
56 { // Rewrite: ref tmp = e1; tmp = tmp ^^ e2
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
57 Identifier id = Lexer.uniqueId("__powtmp");
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
58 auto v = new VarDeclaration(e1.loc, e1.type, id, new ExpInitializer(loc, e1));
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
59 v.storage_class |= STC.STCref | STC.STCforeach;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
60 Expression de = new DeclarationExp(e1.loc, v);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
61 VarExp ve = new VarExp(e1.loc, v);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
62 e = new PowExp(loc, ve, e2);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
63 e = new AssignExp(loc, new VarExp(e1.loc, v), e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
64 e = new CommaExp(loc, de, e);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
65 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
66 e = e.semantic(sc);
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
67 return e;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
68 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
69 error("%s ^^= %s is not supported", e1.type.toChars(), e2.type.toChars() );
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
70 return new ErrorExp();
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
71 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
72
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
73 // For operator overloading
|
154
|
74 override Identifier opId()
|
135
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
75 {
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
76 return Id.powass;
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
77 }
|
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents:
diff
changeset
|
78 }; |