Mercurial > projects > ddmd
annotate dmd/TypeDArray.d @ 14:2cc604139636
Implemented Linux support for ddmd. Some parts are a bit hacky to just "get it working", that said, druntime and phobos compile, and unittests pass.
| author | Robert Clipsham <robert@octarineparrot.com> |
|---|---|
| date | Sun, 04 Apr 2010 02:06:32 +0100 |
| parents | 10317f0c89a5 |
| children | 01cadcfa4842 |
| rev | line source |
|---|---|
| 0 | 1 module dmd.TypeDArray; |
| 2 | |
| 3 import dmd.TypeArray; | |
| 4 import dmd.MOD; | |
| 5 import dmd.Id; | |
| 6 import dmd.TOK; | |
| 7 import dmd.StringExp; | |
| 8 import dmd.IntegerExp; | |
| 9 import dmd.ArrayLengthExp; | |
| 10 import dmd.Type; | |
| 11 import dmd.Loc; | |
| 12 import dmd.Scope; | |
| 13 import dmd.OutBuffer; | |
| 14 import dmd.HdrGenState; | |
| 15 import dmd.Expression; | |
| 16 import dmd.Identifier; | |
| 17 import dmd.MATCH; | |
| 18 import dmd.ArrayTypes; | |
| 19 import dmd.TypeInfoDeclaration; | |
| 20 import dmd.TypeInfoArrayDeclaration; | |
| 21 import dmd.NullExp; | |
| 22 import dmd.TY; | |
| 23 import dmd.TypeStruct; | |
| 24 import dmd.Util; | |
| 25 import dmd.TypePointer; | |
| 26 import dmd.Global; | |
| 27 | |
| 28 import dmd.backend.TYPE; | |
| 29 import dmd.backend.Symbol; | |
| 30 import dmd.backend.Classsym; | |
| 31 import dmd.backend.Util; | |
| 32 import dmd.backend.SC; | |
| 33 import dmd.backend.TYM; | |
| 34 import dmd.backend.LIST; | |
| 35 | |
| 36 import core.stdc.stdlib; | |
| 37 import core.stdc.stdio; | |
|
14
2cc604139636
Implemented Linux support for ddmd. Some parts are a bit hacky to just "get it working", that said, druntime and phobos compile, and unittests pass.
Robert Clipsham <robert@octarineparrot.com>
parents:
0
diff
changeset
|
38 version (Bug4054) import core.memory; |
| 0 | 39 |
| 40 // Dynamic array, no dimension | |
| 41 class TypeDArray : TypeArray | |
| 42 { | |
| 43 this(Type t) | |
| 44 { | |
| 45 super(TY.Tarray, t); | |
| 46 //printf("TypeDArray(t = %p)\n", t); | |
| 47 } | |
| 48 | |
| 49 version (DumbClone) { | |
| 50 } else { | |
| 51 Type clone() | |
| 52 { | |
| 53 assert(false); | |
| 54 } | |
| 55 } | |
| 56 Type syntaxCopy() | |
| 57 { | |
| 58 Type t = next.syntaxCopy(); | |
| 59 if (t == next) | |
| 60 t = this; | |
| 61 else | |
| 62 { | |
| 63 t = new TypeDArray(t); | |
| 64 t.mod = mod; | |
| 65 } | |
| 66 return t; | |
| 67 } | |
| 68 | |
| 69 ulong size(Loc loc) | |
| 70 { | |
| 71 //printf("TypeDArray.size()\n"); | |
| 72 return PTRSIZE * 2; | |
| 73 } | |
| 74 | |
| 75 uint alignsize() | |
| 76 { | |
| 77 // A DArray consists of two ptr-sized values, so align it on pointer size | |
| 78 // boundary | |
| 79 return PTRSIZE; | |
| 80 } | |
| 81 | |
| 82 Type semantic(Loc loc, Scope sc) | |
| 83 { | |
| 84 Type tn = next; | |
| 85 | |
| 86 tn = next.semantic(loc,sc); | |
| 87 Type tbn = tn.toBasetype(); | |
| 88 switch (tbn.ty) | |
| 89 { | |
| 90 case TY.Tfunction: | |
| 91 case TY.Tnone: | |
| 92 case TY.Ttuple: | |
| 93 error(loc, "can't have array of %s", tbn.toChars()); | |
| 94 tn = next = tint32; | |
| 95 break; | |
| 96 case TY.Tstruct: | |
| 97 { | |
| 98 TypeStruct ts = cast(TypeStruct)tbn; | |
| 99 if (ts.sym.isnested) | |
| 100 error(loc, "cannot have array of inner structs %s", ts.toChars()); | |
| 101 break; | |
| 102 } | |
| 103 | |
| 104 default: | |
| 105 break; /// | |
| 106 } | |
| 107 if (tn.isauto()) | |
| 108 error(loc, "cannot have array of auto %s", tn.toChars()); | |
| 109 | |
| 110 next = tn; | |
| 111 transitive(); | |
| 112 return merge(); | |
| 113 } | |
| 114 | |
| 115 void toDecoBuffer(OutBuffer buf, int flag) | |
| 116 { | |
| 117 Type.toDecoBuffer(buf, flag); | |
| 118 if (next) | |
| 119 next.toDecoBuffer(buf, (flag & 0x100) ? 0 : mod); | |
| 120 } | |
| 121 | |
| 122 void toCBuffer2(OutBuffer buf, HdrGenState* hgs, MOD mod) | |
| 123 { | |
| 124 if (mod != this.mod) | |
| 125 { | |
| 126 toCBuffer3(buf, hgs, mod); | |
| 127 return; | |
| 128 } | |
| 129 next.toCBuffer2(buf, hgs, this.mod); | |
| 130 buf.writestring("[]"); | |
| 131 } | |
| 132 | |
| 133 Expression dotExp(Scope sc, Expression e, Identifier ident) | |
| 134 { | |
| 135 version (LOGDOTEXP) { | |
| 136 printf("TypeDArray.dotExp(e = '%s', ident = '%s')\n", e.toChars(), ident.toChars()); | |
| 137 } | |
| 138 if (ident is Id.length) | |
| 139 { | |
| 140 if (e.op == TOK.TOKstring) | |
| 141 { | |
| 142 StringExp se = cast(StringExp)e; | |
| 143 | |
| 144 return new IntegerExp(se.loc, se.len, Type.tindex); | |
| 145 } | |
| 146 e = new ArrayLengthExp(e.loc, e); | |
| 147 e.type = Type.tsize_t; | |
| 148 return e; | |
| 149 } | |
| 150 else if (ident is Id.ptr) | |
| 151 { | |
| 152 e = e.castTo(sc, next.pointerTo()); | |
| 153 return e; | |
| 154 } | |
| 155 else | |
| 156 { | |
| 157 e = TypeArray.dotExp(sc, e, ident); | |
| 158 } | |
| 159 return e; | |
| 160 } | |
| 161 | |
| 162 int isString() | |
| 163 { | |
| 164 assert(false); | |
| 165 } | |
| 166 | |
| 167 bool isZeroInit(Loc loc) | |
| 168 { | |
| 169 return true; | |
| 170 } | |
| 171 | |
| 172 bool checkBoolean() | |
| 173 { | |
| 174 return true; | |
| 175 } | |
| 176 | |
| 177 MATCH implicitConvTo(Type to) | |
| 178 { | |
| 179 //printf("TypeDArray.implicitConvTo(to = %s) this = %s\n", to.toChars(), toChars()); | |
| 180 if (equals(to)) | |
| 181 return MATCHexact; | |
| 182 | |
| 183 // Allow implicit conversion of array to pointer | |
| 184 if (IMPLICIT_ARRAY_TO_PTR && to.ty == Tpointer) | |
| 185 { | |
| 186 TypePointer tp = cast(TypePointer)to; | |
| 187 | |
| 188 /* Allow conversion to void* | |
| 189 */ | |
| 190 if (tp.next.ty == Tvoid && | |
| 191 (next.mod == tp.next.mod || tp.next.mod == MODconst)) | |
| 192 { | |
| 193 return MATCHconvert; | |
| 194 } | |
| 195 | |
| 196 return next.constConv(to); | |
| 197 } | |
| 198 | |
| 199 if (to.ty == Tarray) | |
| 200 { | |
| 201 int offset = 0; | |
| 202 TypeDArray ta = cast(TypeDArray)to; | |
| 203 | |
| 204 if (!(next.mod == ta.next.mod || ta.next.mod == MODconst)) | |
| 205 return MATCHnomatch; // not const-compatible | |
| 206 | |
| 207 /* Allow conversion to void[] | |
| 208 */ | |
| 209 if (next.ty != Tvoid && ta.next.ty == Tvoid) | |
| 210 { | |
| 211 return MATCHconvert; | |
| 212 } | |
| 213 | |
| 214 MATCH m = next.constConv(ta.next); | |
| 215 if (m != MATCHnomatch) | |
| 216 { | |
| 217 if (m == MATCHexact && mod != to.mod) | |
| 218 m = MATCHconst; | |
| 219 return m; | |
| 220 } | |
| 221 | |
| 222 /* Allow conversions of T[][] to const(T)[][] | |
| 223 */ | |
| 224 if (mod == ta.mod && next.ty == Tarray && ta.next.ty == Tarray) | |
| 225 { | |
| 226 m = next.implicitConvTo(ta.next); | |
| 227 if (m == MATCHconst) | |
| 228 return m; | |
| 229 } | |
| 230 | |
| 231 /* Conversion of array of derived to array of base | |
| 232 */ | |
| 233 if (ta.next.isBaseOf(next, &offset) && offset == 0) | |
| 234 return MATCHconvert; | |
| 235 } | |
| 236 return Type.implicitConvTo(to); | |
| 237 } | |
| 238 | |
| 239 Expression defaultInit(Loc loc) | |
| 240 { | |
| 241 version (LOGDEFAULTINIT) { | |
| 242 printf("TypeDArray.defaultInit() '%s'\n", toChars()); | |
| 243 } | |
| 244 Expression e = new NullExp(loc); | |
| 245 e.type = this; | |
| 246 return e; | |
| 247 } | |
| 248 | |
| 249 bool builtinTypeInfo() | |
| 250 { | |
| 251 version (DMDV2) { | |
| 252 return !mod && (next.isTypeBasic() !is null && !next.mod || | |
| 253 // strings are so common, make them builtin | |
| 254 next.ty == Tchar && next.mod == MODinvariant); | |
| 255 } else { | |
| 256 return next.isTypeBasic() !is null; | |
| 257 } | |
| 258 } | |
| 259 version (DMDV2) { | |
| 260 MATCH deduceType(Scope sc, Type tparam, TemplateParameters parameters, Objects dedtypes) | |
| 261 { | |
| 262 static if (false) { | |
| 263 printf("TypeDArray.deduceType()\n"); | |
| 264 printf("\tthis = %d, ", ty); print(); | |
| 265 printf("\ttparam = %d, ", tparam.ty); tparam.print(); | |
| 266 } | |
| 267 return Type.deduceType(sc, tparam, parameters, dedtypes); | |
| 268 | |
| 269 Lnomatch: | |
| 270 return MATCHnomatch; | |
| 271 } | |
| 272 } | |
| 273 TypeInfoDeclaration getTypeInfoDeclaration() | |
| 274 { | |
| 275 return new TypeInfoArrayDeclaration(this); | |
| 276 } | |
| 277 | |
| 278 bool hasPointers() | |
| 279 { | |
| 280 return true; | |
| 281 } | |
| 282 | |
| 283 version (CPP_MANGLE) { | |
| 284 void toCppMangle(OutBuffer buf, CppMangleState* cms); | |
| 285 } | |
| 286 | |
| 287 type* toCtype() | |
| 288 { | |
| 289 type *t; | |
| 290 | |
| 291 if (ctype) | |
| 292 return ctype; | |
| 293 | |
| 294 if (0 && global.params.symdebug) | |
| 295 { | |
| 296 /* Create a C type out of: | |
| 297 * struct _Array_T { size_t length; T* data; } | |
| 298 */ | |
| 299 Symbol* s; | |
| 300 char *id; | |
| 301 | |
| 302 assert(next.deco); | |
|
14
2cc604139636
Implemented Linux support for ddmd. Some parts are a bit hacky to just "get it working", that said, druntime and phobos compile, and unittests pass.
Robert Clipsham <robert@octarineparrot.com>
parents:
0
diff
changeset
|
303 version (Bug4054) |
|
2cc604139636
Implemented Linux support for ddmd. Some parts are a bit hacky to just "get it working", that said, druntime and phobos compile, and unittests pass.
Robert Clipsham <robert@octarineparrot.com>
parents:
0
diff
changeset
|
304 id = cast(char*) GC.malloc(7 + next.deco.length + 1); |
|
2cc604139636
Implemented Linux support for ddmd. Some parts are a bit hacky to just "get it working", that said, druntime and phobos compile, and unittests pass.
Robert Clipsham <robert@octarineparrot.com>
parents:
0
diff
changeset
|
305 else |
| 0 | 306 id = cast(char*) alloca(7 + next.deco.length + 1); |
| 307 sprintf(id, "_Array_%.*s", next.deco); | |
| 308 s = symbol_calloc(id); | |
| 309 s.Sclass = SC.SCstruct; | |
| 310 s.Sstruct = struct_calloc(); | |
| 311 s.Sstruct.Sflags |= 0; | |
| 312 s.Sstruct.Salignsize = alignsize(); | |
| 313 s.Sstruct.Sstructalign = cast(ubyte)global.structalign; | |
| 314 s.Sstruct.Sstructsize = cast(uint)size(Loc(0)); | |
| 315 slist_add(s); | |
| 316 | |
| 317 Symbol* s1 = symbol_name("length", SC.SCmember, Type.tsize_t.toCtype()); | |
| 318 list_append(&s.Sstruct.Sfldlst, s1); | |
| 319 | |
| 320 Symbol* s2 = symbol_name("data", SC.SCmember, next.pointerTo().toCtype()); | |
| 321 s2.Smemoff = cast(uint)Type.tsize_t.size(); | |
| 322 list_append(&s.Sstruct.Sfldlst, s2); | |
| 323 | |
| 324 t = type_alloc(TYM.TYstruct); | |
| 325 t.Ttag = cast(Classsym*)s; // structure tag name | |
| 326 t.Tcount++; | |
| 327 s.Stype = t; | |
| 328 } | |
| 329 else | |
| 330 { | |
| 331 if (global.params.symdebug == 1) | |
| 332 { | |
| 333 // Generate D symbolic debug info, rather than C | |
| 334 t = type_allocn(TYM.TYdarray, next.toCtype()); | |
| 335 } | |
| 336 else | |
| 337 t = type_fake(TYM.TYdarray); | |
| 338 } | |
| 339 t.Tcount++; | |
| 340 ctype = t; | |
| 341 return t; | |
| 342 } | |
|
14
2cc604139636
Implemented Linux support for ddmd. Some parts are a bit hacky to just "get it working", that said, druntime and phobos compile, and unittests pass.
Robert Clipsham <robert@octarineparrot.com>
parents:
0
diff
changeset
|
343 } |