projects/ldc: dmd/struct.c annotate

annotate dmd/struct.c @ 1578:1dee66f6ec0b

Removed a chunk of code in favour of a shorter and more portable method

author	Robert Clipsham <robert@octarineparrot.com>
date	Tue, 08 Sep 2009 11:21:30 +0100
parents	d9c5f5a43403
children	def7a1d494fd

rev	line source
1195 e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	2 // Compiler implementation of the D programming language
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	3 // Copyright (c) 1999-2009 by Digital Mars
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	4 // All Rights Reserved
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	5 // written by Walter Bright
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	6 // http://www.digitalmars.com
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	7 // License for redistribution is by either the Artistic License
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	8 // in artistic.txt, or the GNU General Public License in gnu.txt.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	9 // See the included readme.txt for details.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	10
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	11 #include <stdio.h>
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	12 #include <assert.h>
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	13
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	14 #include "root.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	15 #include "aggregate.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	16 #include "scope.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	17 #include "mtype.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	18 #include "declaration.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	19 #include "module.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	20 #include "id.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	21 #include "statement.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	22
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	23 /******************************* AggregateDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	24
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	25 AggregateDeclaration::AggregateDeclaration(Loc loc, Identifier *id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	26 : ScopeDsymbol(id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	27 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	28 this->loc = loc;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	29
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	30 storage_class = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	31 protection = PROTpublic;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	32 type = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	33 handle = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	34 structsize = 0; // size of struct
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	35 alignsize = 0; // size of struct for alignment purposes
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	36 structalign = 0; // struct member alignment in effect
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	37 hasUnions = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	38 sizeok = 0; // size not determined yet
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	39 isdeprecated = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	40 inv = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	41 aggNew = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	42 aggDelete = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	43
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	44 #if IN_DMD
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	45 stag = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	46 sinit = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	47 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	48 scope = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	49 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	50 dtor = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	51
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	52 ctor = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	53 defaultCtor = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	54 #endif
1482 d9c5f5a43403 Run `semantic3` on imported modules, and emit new symbols with Frits van Bommel <fvbommel wxs.nl> parents: 1367 diff changeset	55
d9c5f5a43403 Run `semantic3` on imported modules, and emit new symbols with Frits van Bommel <fvbommel wxs.nl> parents: 1367 diff changeset	56 #if IN_LLVM
d9c5f5a43403 Run `semantic3` on imported modules, and emit new symbols with Frits van Bommel <fvbommel wxs.nl> parents: 1367 diff changeset	57 availableExternally = true; // assume this unless proven otherwise
d9c5f5a43403 Run `semantic3` on imported modules, and emit new symbols with Frits van Bommel <fvbommel wxs.nl> parents: 1367 diff changeset	58 #endif
1195 e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	59 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	60
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	61 enum PROT AggregateDeclaration::prot()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	62 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	63 return protection;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	64 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	65
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	66 void AggregateDeclaration::semantic2(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	67 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	68 //printf("AggregateDeclaration::semantic2(%s)\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	69 if (scope)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	70 { error("has forward references");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	71 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	72 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	73 if (members)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	74 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	75 sc = sc->push(this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	76 for (size_t i = 0; i < members->dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	77 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	78 Dsymbol s = (Dsymbol )members->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	79 s->semantic2(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	80 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	81 sc->pop();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	82 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	83 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	84
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	85 void AggregateDeclaration::semantic3(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	86 { int i;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	87
1482 d9c5f5a43403 Run `semantic3` on imported modules, and emit new symbols with Frits van Bommel <fvbommel wxs.nl> parents: 1367 diff changeset	88 // LDC
d9c5f5a43403 Run `semantic3` on imported modules, and emit new symbols with Frits van Bommel <fvbommel wxs.nl> parents: 1367 diff changeset	89 if (!global.params.useAvailableExternally)
d9c5f5a43403 Run `semantic3` on imported modules, and emit new symbols with Frits van Bommel <fvbommel wxs.nl> parents: 1367 diff changeset	90 availableExternally = false;
d9c5f5a43403 Run `semantic3` on imported modules, and emit new symbols with Frits van Bommel <fvbommel wxs.nl> parents: 1367 diff changeset	91
1195 e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	92 //printf("AggregateDeclaration::semantic3(%s)\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	93 if (members)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	94 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	95 sc = sc->push(this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	96 for (i = 0; i < members->dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	97 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	98 Dsymbol s = (Dsymbol )members->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	99 s->semantic3(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	100 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	101 sc->pop();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	102 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	103 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	104
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	105 void AggregateDeclaration::inlineScan()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	106 { int i;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	107
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	108 //printf("AggregateDeclaration::inlineScan(%s)\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	109 if (members)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	110 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	111 for (i = 0; i < members->dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	112 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	113 Dsymbol s = (Dsymbol )members->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	114 //printf("inline scan aggregate symbol '%s'\n", s->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	115 s->inlineScan();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	116 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	117 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	118 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	119
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	120 unsigned AggregateDeclaration::size(Loc loc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	121 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	122 //printf("AggregateDeclaration::size() = %d\n", structsize);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	123 if (!members)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	124 error(loc, "unknown size");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	125 if (sizeok != 1)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	126 { error(loc, "no size yet for forward reference");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	127 //(char)0=0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	128 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	129 return structsize;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	130 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	131
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	132 Type *AggregateDeclaration::getType()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	133 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	134 return type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	135 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	136
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	137 int AggregateDeclaration::isDeprecated()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	138 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	139 return isdeprecated;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	140 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	141
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	142 /****************************
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	143 * Do byte or word alignment as necessary.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	144 * Align sizes of 0, as we may not know array sizes yet.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	145 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	146
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	147 void AggregateDeclaration::alignmember(
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	148 unsigned salign, // struct alignment that is in effect
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	149 unsigned size, // alignment requirement of field
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	150 unsigned *poffset)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	151 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	152 //printf("salign = %d, size = %d, offset = %d\n",salign,size,offset);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	153 if (salign > 1)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	154 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	155 assert(size != 3);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	156 int sa = size;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	157 if (sa == 0 \|\| salign < sa)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	158 sa = salign;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	159 poffset = (poffset + sa - 1) & ~(sa - 1);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	160 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	161 //printf("result = %d\n",offset);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	162 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	163
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	164
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	165 void AggregateDeclaration::addField(Scope sc, VarDeclaration v)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	166 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	167 unsigned memsize; // size of member
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	168 unsigned memalignsize; // size of member for alignment purposes
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	169 unsigned xalign; // alignment boundaries
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	170
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	171 //printf("AggregateDeclaration::addField('%s') %s\n", v->toChars(), toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	172
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	173 // Check for forward referenced types which will fail the size() call
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	174 Type *t = v->type->toBasetype();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	175 if (t->ty == Tstruct /&& isStructDeclaration()/)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	176 { TypeStruct ts = (TypeStruct )t;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	177 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	178 if (ts->sym == this)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	179 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	180 error("cannot have field %s with same struct type", v->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	181 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	182 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	183
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	184 if (ts->sym->sizeok != 1)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	185 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	186 sizeok = 2; // cannot finish; flag as forward referenced
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	187 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	188 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	189 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	190 if (t->ty == Tident)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	191 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	192 sizeok = 2; // cannot finish; flag as forward referenced
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	193 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	194 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	195
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	196 memsize = v->type->size(loc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	197 memalignsize = v->type->alignsize();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	198 xalign = v->type->memalign(sc->structalign);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	199 alignmember(xalign, memalignsize, &sc->offset);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	200 v->offset = sc->offset;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	201 sc->offset += memsize;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	202 if (sc->offset > structsize)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	203 structsize = sc->offset;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	204 if (sc->structalign < memalignsize)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	205 memalignsize = sc->structalign;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	206 if (alignsize < memalignsize)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	207 alignsize = memalignsize;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	208 //printf("\talignsize = %d\n", alignsize);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	209
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	210 v->storage_class \|= STCfield;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	211 //printf(" addField '%s' to '%s' at offset %d, size = %d\n", v->toChars(), toChars(), v->offset, memsize);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	212 fields.push(v);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	213 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	214
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	215
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	216 /******************************* StructDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	217
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	218 StructDeclaration::StructDeclaration(Loc loc, Identifier *id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	219 : AggregateDeclaration(loc, id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	220 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	221 zeroInit = 0; // assume false until we do semantic processing
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	222 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	223 hasIdentityAssign = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	224 cpctor = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	225 postblit = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	226 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	227
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	228 // For forward references
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	229 type = new TypeStruct(this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	230 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	231
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	232 Dsymbol StructDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	233 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	234 StructDeclaration *sd;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	235
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	236 if (s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	237 sd = (StructDeclaration *)s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	238 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	239 sd = new StructDeclaration(loc, ident);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	240 ScopeDsymbol::syntaxCopy(sd);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	241 return sd;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	242 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	243
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	244 void StructDeclaration::semantic(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	245 { int i;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	246 Scope *sc2;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	247
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	248 //printf("+StructDeclaration::semantic(this=%p, '%s')\n", this, toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	249
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	250 //static int count; if (++count == 20) (char)0=0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	251
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	252 assert(type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	253 if (!members) // if forward reference
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	254 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	255
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	256 if (symtab)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	257 { if (!scope)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	258 return; // semantic() already completed
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	259 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	260 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	261 symtab = new DsymbolTable();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	262
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	263 Scope *scx = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	264 if (scope)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	265 { sc = scope;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	266 scx = scope; // save so we don't make redundant copies
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	267 scope = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	268 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	269
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	270 parent = sc->parent;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	271 #if STRUCTTHISREF
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	272 handle = type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	273 #else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	274 handle = type->pointerTo();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	275 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	276 structalign = sc->structalign;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	277 protection = sc->protection;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	278 if (sc->stc & STCdeprecated)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	279 isdeprecated = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	280 assert(!isAnonymous());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	281 if (sc->stc & STCabstract)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	282 error("structs, unions cannot be abstract");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	283 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	284 if (storage_class & STCinvariant)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	285 type = type->invariantOf();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	286 else if (storage_class & STCconst)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	287 type = type->constOf();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	288 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	289
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	290 if (sizeok == 0) // if not already done the addMember step
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	291 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	292 for (i = 0; i < members->dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	293 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	294 Dsymbol s = (Dsymbol )members->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	295 //printf("adding member '%s' to '%s'\n", s->toChars(), this->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	296 s->addMember(sc, this, 1);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	297 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	298 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	299
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	300 sizeok = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	301 sc2 = sc->push(this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	302 sc2->stc = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	303 sc2->parent = this;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	304 if (isUnionDeclaration())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	305 sc2->inunion = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	306 sc2->protection = PROTpublic;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	307 sc2->explicitProtection = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	308
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	309 int members_dim = members->dim;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	310 for (i = 0; i < members_dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	311 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	312 Dsymbol s = (Dsymbol )members->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	313 s->semantic(sc2);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	314 if (isUnionDeclaration())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	315 sc2->offset = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	316 #if 0
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	317 if (sizeok == 2)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	318 { //printf("forward reference\n");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	319 break;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	320 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	321 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	322 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	323
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	324 /* The TypeInfo_Struct is expecting an opEquals and opCmp with
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	325 * a parameter that is a pointer to the struct. But if there
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	326 * isn't one, but is an opEquals or opCmp with a value, write
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	327 * another that is a shell around the value:
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	328 * int opCmp(struct p) { return opCmp(p); }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	329 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	330
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	331 TypeFunction *tfeqptr;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	332 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	333 Arguments *arguments = new Arguments;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	334 Argument *arg = new Argument(STCin, handle, Id::p, NULL);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	335
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	336 arguments->push(arg);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	337 tfeqptr = new TypeFunction(arguments, Type::tint32, 0, LINKd);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	338 tfeqptr = (TypeFunction *)tfeqptr->semantic(0, sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	339 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	340
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	341 TypeFunction *tfeq;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	342 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	343 Arguments *arguments = new Arguments;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	344 Argument *arg = new Argument(STCin, type, NULL, NULL);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	345
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	346 arguments->push(arg);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	347 tfeq = new TypeFunction(arguments, Type::tint32, 0, LINKd);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	348 tfeq = (TypeFunction *)tfeq->semantic(0, sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	349 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	350
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	351 Identifier *id = Id::eq;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	352 for (int i = 0; i < 2; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	353 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	354 Dsymbol *s = search_function(this, id);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	355 FuncDeclaration *fdx = s ? s->isFuncDeclaration() : NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	356 if (fdx)
1358 78038e540342 Fix overload resolution issue in dmd bug 313/314 fix. Christian Kamm <kamm incasoftware de> parents: 1195 diff changeset	357 { FuncDeclaration *fd = fdx->overloadExactMatch(tfeqptr, getModule());
1195 e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	358 if (!fd)
1358 78038e540342 Fix overload resolution issue in dmd bug 313/314 fix. Christian Kamm <kamm incasoftware de> parents: 1195 diff changeset	359 { fd = fdx->overloadExactMatch(tfeq, getModule());
1195 e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	360 if (fd)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	361 { // Create the thunk, fdptr
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	362 FuncDeclaration *fdptr = new FuncDeclaration(loc, loc, fdx->ident, STCundefined, tfeqptr);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	363 Expression *e = new IdentifierExp(loc, Id::p);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	364 e = new PtrExp(loc, e);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	365 Expressions *args = new Expressions();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	366 args->push(e);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	367 e = new IdentifierExp(loc, id);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	368 e = new CallExp(loc, e, args);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	369 fdptr->fbody = new ReturnStatement(loc, e);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	370 ScopeDsymbol *s = fdx->parent->isScopeDsymbol();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	371 assert(s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	372 s->members->push(fdptr);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	373 fdptr->addMember(sc, s, 1);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	374 fdptr->semantic(sc2);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	375 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	376 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	377 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	378
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	379 id = Id::cmp;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	380 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	381 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	382 dtor = buildDtor(sc2);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	383 postblit = buildPostBlit(sc2);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	384 cpctor = buildCpCtor(sc2);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	385 buildOpAssign(sc2);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	386 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	387
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	388 sc2->pop();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	389
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	390 if (sizeok == 2)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	391 { // semantic() failed because of forward references.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	392 // Unwind what we did, and defer it for later
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	393 fields.setDim(0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	394 structsize = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	395 alignsize = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	396 structalign = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	397
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	398 scope = scx ? scx : new Scope(*sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	399 scope->setNoFree();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	400 scope->module->addDeferredSemantic(this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	401 //printf("\tdeferring %s\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	402 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	403 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	404
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	405 // 0 sized struct's are set to 1 byte
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	406 if (structsize == 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	407 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	408 structsize = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	409 alignsize = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	410 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	411
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	412 // Round struct size up to next alignsize boundary.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	413 // This will ensure that arrays of structs will get their internals
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	414 // aligned properly.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	415 structsize = (structsize + alignsize - 1) & ~(alignsize - 1);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	416
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	417 sizeok = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	418 Module::dprogress++;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	419
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	420 //printf("-StructDeclaration::semantic(this=%p, '%s')\n", this, toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	421
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	422 // Determine if struct is all zeros or not
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	423 zeroInit = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	424 for (i = 0; i < fields.dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	425 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	426 Dsymbol s = (Dsymbol )fields.data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	427 VarDeclaration *vd = s->isVarDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	428 if (vd && !vd->isDataseg())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	429 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	430 if (vd->init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	431 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	432 // Should examine init to see if it is really all 0's
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	433 zeroInit = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	434 break;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	435 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	436 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	437 {
1367 8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1358 diff changeset	438 if (!vd->type->isZeroInit(loc))
1195 e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	439 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	440 zeroInit = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	441 break;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	442 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	443 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	444 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	445 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	446
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	447 /* Look for special member functions.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	448 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	449 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	450 ctor = (CtorDeclaration *)search(0, Id::ctor, 0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	451 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	452 inv = (InvariantDeclaration *)search(0, Id::classInvariant, 0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	453 aggNew = (NewDeclaration *)search(0, Id::classNew, 0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	454 aggDelete = (DeleteDeclaration *)search(0, Id::classDelete, 0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	455
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	456 if (sc->func)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	457 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	458 semantic2(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	459 semantic3(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	460 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	461 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	462
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	463 void StructDeclaration::toCBuffer(OutBuffer buf, HdrGenState hgs)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	464 { int i;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	465
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	466 buf->printf("%s ", kind());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	467 if (!isAnonymous())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	468 buf->writestring(toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	469 if (!members)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	470 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	471 buf->writeByte(';');
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	472 buf->writenl();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	473 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	474 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	475 buf->writenl();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	476 buf->writeByte('{');
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	477 buf->writenl();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	478 for (i = 0; i < members->dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	479 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	480 Dsymbol s = (Dsymbol )members->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	481
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	482 buf->writestring(" ");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	483 s->toCBuffer(buf, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	484 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	485 buf->writeByte('}');
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	486 buf->writenl();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	487 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	488
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	489
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	490 const char *StructDeclaration::kind()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	491 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	492 return "struct";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	493 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	494
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	495 /******************************* UnionDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	496
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	497 UnionDeclaration::UnionDeclaration(Loc loc, Identifier *id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	498 : StructDeclaration(loc, id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	499 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	500 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	501
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	502 Dsymbol UnionDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	503 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	504 UnionDeclaration *ud;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	505
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	506 if (s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	507 ud = (UnionDeclaration *)s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	508 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	509 ud = new UnionDeclaration(loc, ident);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	510 StructDeclaration::syntaxCopy(ud);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	511 return ud;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	512 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	513
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	514
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	515 const char *UnionDeclaration::kind()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	516 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	517 return "union";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	518 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	519
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	520

Mercurial > projects > ldc

annotate dmd/struct.c @ 1578:1dee66f6ec0b