Mercurial > projects > ddmd

annotate dmd/CatAssignExp.d @ 146:af7e5ebef6ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
redundant extern(C)
author Eldar Insafutdinov <e.insafutdinov@gmail.com>
date Tue, 14 Sep 2010 23:34:50 +0100
parents 60bb0fe4563e
children e3afd1303184
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
1 module dmd.CatAssignExp;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
2
114
e28b18c23469 added a module dmd.common for commonly used stuff
Trass3r
parents: 108
diff changeset
3 import dmd.common;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
4 import dmd.BinExp;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
5 import dmd.Loc;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
6 import dmd.Expression;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
7 import dmd.Scope;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
8 import dmd.InterState;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
9 import dmd.SliceExp;
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
10 import dmd.ErrorExp;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
11 import dmd.Identifier;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
12 import dmd.IRState;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
13 import dmd.TOK;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
14 import dmd.TY;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
15 import dmd.Id;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
16 import dmd.Type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
17 import dmd.backend.elem;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
18 import dmd.backend.RTLSYM;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
19 import dmd.backend.Util;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
20 import dmd.backend.OPER;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
21 import dmd.backend.TYM;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
22 import dmd.backend.mTY;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
23
117
fe941d774f4a + ctfe of assign operations
Trass3r
parents: 114
diff changeset
24 import dmd.expression.Cat;
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
25 import dmd.expression.Util;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
26
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
27 class CatAssignExp : BinExp
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
28 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
29 this(Loc loc, Expression e1, Expression e2)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
30 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
31 super(loc, TOK.TOKcatass, CatAssignExp.sizeof, e1, e2);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
32 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
33
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
34 override Expression semantic(Scope sc)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
35 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
36 Expression e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
37
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
38 BinExp.semantic(sc);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
39 e2 = resolveProperties(sc, e2);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
40
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
41 e = op_overload(sc);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
42 if (e)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
43 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
44
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
45 if (e1.op == TOKslice)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
46 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
47 SliceExp se = cast(SliceExp)e1;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
48
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
49 if (se.e1.type.toBasetype().ty == Tsarray)
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
50 error("cannot append to static array %s", se.e1.type.toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
51 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
52
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
53 e1 = e1.modifiableLvalue(sc, e1);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
54
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
55 Type tb1 = e1.type.toBasetype();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
56 Type tb2 = e2.type.toBasetype();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
57
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
58 e2.rvalue();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
59
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
60 Type tb1next = tb1.nextOf();
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
61
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
62 if ((tb1.ty == Tarray) &&
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
63 (tb2.ty == Tarray || tb2.ty == Tsarray) &&
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
64 (e2.implicitConvTo(e1.type) ||
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
65 //version(DMDV2) {
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
66 tb2.nextOf().implicitConvTo(tb1next)
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
67 //}
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
68 )
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
69
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
70 )
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
71 { // Append array
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
72 e2 = e2.castTo(sc, e1.type);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
73 type = e1.type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
74 e = this;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
75 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
76 else if ((tb1.ty == Tarray) &&
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
77 e2.implicitConvTo(tb1next)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
78 )
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
79 { // Append element
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
80 e2 = e2.castTo(sc, tb1next);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
81 type = e1.type;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
82 e = this;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
83 }
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
84 else if (tb1.ty == Tarray &&
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
85 (tb1next.ty == Tchar || tb1next.ty == Twchar) &&
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
86 e2.implicitConvTo(Type.tdchar)
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
87 )
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
88 { // Append dchar to char[] or wchar[]
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
89 e2 = e2.castTo(sc, Type.tdchar);
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
90 type = e1.type;
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
91 e = this;
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
92
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
93 /* Do not allow appending wchar to char[] because if wchar happens
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
94 * to be a surrogate pair, nothing good can result.
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
95 */
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
96 }
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
97 else
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
98 {
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
99 error("cannot append type %s to type %s", tb2.toChars(), tb1.toChars());
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
100 e = new ErrorExp();
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
101 }
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
102 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
103 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
104
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
105 override Expression interpret(InterState istate)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
106 {
117
fe941d774f4a + ctfe of assign operations
Trass3r
parents: 114
diff changeset
107 return interpretAssignCommon(istate, &Cat);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
108 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
109
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
110 override Identifier opId() /* For operator overloading */
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
111 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
112 return Id.catass;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
113 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
114
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
115 override elem* toElem(IRState* irs)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
116 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
117 //printf("CatAssignExp.toElem('%s')\n", toChars());
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
118 elem* e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
119 Type tb1 = e1.type.toBasetype();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
120 Type tb2 = e2.type.toBasetype();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
121
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
122 if (tb1.ty == Tarray && tb2.ty == Tdchar &&
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
123 (tb1.nextOf().ty == Tchar || tb1.nextOf().ty == Twchar))
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
124 { // Append dchar to char[] or wchar[]
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
125
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
126 auto e1 = this.e1.toElem(irs);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
127 e1 = el_una(OPaddr, TYnptr, e1);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
128
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
129 auto e2 = this.e2.toElem(irs);
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
131 auto ep = el_params(e2, e1, null);
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
132 int rtl = (tb1.nextOf().ty == Tchar)
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
133 ? RTLSYM_ARRAYAPPENDCD
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
134 : RTLSYM_ARRAYAPPENDWD;
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
135 e = el_bin(OPcall, TYdarray, el_var(rtlsym[rtl]), ep);
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
136 el_setLoc(e,loc);
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
137 }
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
138 else if (tb1.ty == Tarray || tb2.ty == Tsarray)
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
139 {
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
140 auto e1 = this.e1.toElem(irs);
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
141 e1 = el_una(OPaddr, TYnptr, e1);
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
142
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
143 auto e2 = this.e2.toElem(irs);
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
144
108
6da99741178e e2ir.c changes, mainly accounts for static arrays being value types now
Trass3r
parents: 72
diff changeset
145 if (tybasic(e2.Ety) == TYstruct || tybasic(e2.Ety) == TYarray)
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
146 {
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
147 e2 = el_una(OPstrpar, TYstruct, e2);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
148 e2.Enumbytes = e2.E1.Enumbytes;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
149 assert(e2.Enumbytes);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
150 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
151
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
152 Type tb1n = tb1.nextOf().toBasetype();
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
153 if ((tb2.ty == Tarray || tb2.ty == Tsarray) &&
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
154 tb1n.equals(tb2.nextOf().toBasetype()))
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
155 { // Append array
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
156 auto ep = el_params(e2, e1, this.e1.type.getTypeInfo(null).toElem(irs), null);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
157 e = el_bin(OPcall, TYdarray, el_var(rtlsym[RTLSYM_ARRAYAPPENDT]), ep);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
158 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
159 else
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
160 { // Append element
130
60bb0fe4563e dmdfe 2.037 first main iteration
Eldar Insafutdinov <e.insafutdinov@gmail.com>
parents: 117
diff changeset
161 auto ep = el_params(e2, e1, this.e1.type.getTypeInfo(null).toElem(irs), null);
0
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
162 e = el_bin(OPcall, TYdarray, el_var(rtlsym[RTLSYM_ARRAYAPPENDCT]), ep);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
163 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
164 el_setLoc(e,loc);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
165 }
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
166 else
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
167 assert(0);
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
168
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
169 return e;
10317f0c89a5 Initial commit
korDen
parents:
diff changeset
170 }
72
2e2a5c3f943a reduced warnings by adding override to the methods
Trass3r
parents: 63
diff changeset
171 }