projects/ldc: dmd/declaration.c annotate

annotate dmd/declaration.c @ 1256:6af2359b433a

Change needed for mingw

author	Kelly Wilson <wilsonk cpsc.ucalgary.ca>
date	Wed, 22 Apr 2009 14:40:56 -0600
parents	e961851fb8be
children	0c03ba6f7c24

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 "init.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	15 #include "declaration.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	16 #include "attrib.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 "template.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	19 #include "scope.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	20 #include "aggregate.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	21 #include "module.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	22 #include "id.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	23 #include "expression.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	24 #include "hdrgen.h"
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	25
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	26 /******************************* Declaration **************************/
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 Declaration::Declaration(Identifier *id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	29 : Dsymbol(id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	30 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	31 type = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	32 originalType = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	33 storage_class = STCundefined;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	34 protection = PROTundefined;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	35 linkage = LINKdefault;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	36 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	37
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	38 void Declaration::semantic(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	39 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	40 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	41
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	42 const char *Declaration::kind()
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 return "declaration";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	45 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	46
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	47 unsigned Declaration::size(Loc loc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	48 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	49 assert(type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	50 return type->size();
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
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	53 int Declaration::isStaticConstructor()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	54 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	55 return FALSE;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	56 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	57
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	58 int Declaration::isStaticDestructor()
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 return FALSE;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	61 }
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 int Declaration::isDelete()
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 return FALSE;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	66 }
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 int Declaration::isDataseg()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	69 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	70 return FALSE;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	71 }
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 int Declaration::isCodeseg()
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 return FALSE;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	76 }
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 enum PROT Declaration::prot()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	79 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	80 return protection;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	81 }
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 * Check to see if declaration can be modified in this context (sc).
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	85 * Issue error if not.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	86 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	87
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	88 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	89 void Declaration::checkModify(Loc loc, Scope sc, Type t)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	90 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	91 if (sc->incontract && isParameter())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	92 error(loc, "cannot modify parameter '%s' in contract", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	93
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	94 if (isCtorinit())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	95 { // It's only modifiable if inside the right constructor
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	96 Dsymbol *s = sc->func;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	97 while (1)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	98 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	99 FuncDeclaration *fd = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	100 if (s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	101 fd = s->isFuncDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	102 if (fd &&
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	103 ((fd->isCtorDeclaration() && storage_class & STCfield) \|\|
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	104 (fd->isStaticCtorDeclaration() && !(storage_class & STCfield))) &&
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	105 fd->toParent() == toParent()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	106 )
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 VarDeclaration *v = isVarDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	109 assert(v);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	110 v->ctorinit = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	111 //printf("setting ctorinit\n");
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 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	114 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	115 if (s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	116 { s = s->toParent2();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	117 continue;
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 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	120 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	121 const char *p = isStatic() ? "static " : "";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	122 error(loc, "can only initialize %sconst %s inside %sconstructor",
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	123 p, toChars(), p);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	124 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	125 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	126 break;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	127 }
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 else
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 VarDeclaration *v = isVarDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	132 if (v && v->canassign == 0)
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 char *p = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	135 if (isConst())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	136 p = "const";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	137 else if (isInvariant())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	138 p = "invariant";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	139 else if (storage_class & STCmanifest)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	140 p = "manifest constant";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	141 else if (!t->isAssignable())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	142 p = "struct with immutable members";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	143 if (p)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	144 { error(loc, "cannot modify %s", p);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	145 halt();
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 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	148 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	149 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	150 #endif
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
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	153 /******************************* TupleDeclaration **************************/
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 TupleDeclaration::TupleDeclaration(Loc loc, Identifier id, Objects objects)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	156 : Declaration(id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	157 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	158 this->type = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	159 this->objects = objects;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	160 this->isexp = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	161 this->tupletype = NULL;
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 Dsymbol TupleDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	165 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	166 assert(0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	167 return NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	168 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	169
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	170 const char *TupleDeclaration::kind()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	171 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	172 return "tuple";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	173 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	174
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	175 Type *TupleDeclaration::getType()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	176 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	177 /* If this tuple represents a type, return that type
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	178 */
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 //printf("TupleDeclaration::getType() %s\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	181 if (isexp)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	182 return NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	183 if (!tupletype)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	184 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	185 /* It's only a type tuple if all the Object's are types
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	186 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	187 for (size_t i = 0; i < objects->dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	188 { Object o = (Object )objects->data[i];
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 (o->dyncast() != DYNCAST_TYPE)
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 //printf("\tnot[%d], %p, %d\n", i, o, o->dyncast());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	193 return NULL;
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
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	197 /* We know it's a type tuple, so build the TypeTuple
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	198 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	199 Arguments *args = new Arguments();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	200 args->setDim(objects->dim);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	201 OutBuffer buf;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	202 for (size_t i = 0; i < objects->dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	203 { Type t = (Type )objects->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	204
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	205 //printf("type = %s\n", t->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	206 #if 0
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	207 buf.printf("_%s_%d", ident->toChars(), i);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	208 char name = (char )buf.extractData();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	209 Identifier *id = new Identifier(name, TOKidentifier);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	210 Argument *arg = new Argument(STCin, t, id, NULL);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	211 #else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	212 Argument *arg = new Argument(STCin, t, NULL, NULL);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	213 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	214 args->data[i] = (void *)arg;
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
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	217 tupletype = new TypeTuple(args);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	218 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	219
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	220 return tupletype;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	221 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	222
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	223 int TupleDeclaration::needThis()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	224 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	225 //printf("TupleDeclaration::needThis(%s)\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	226 for (size_t i = 0; i < objects->dim; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	227 { Object o = (Object )objects->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	228 if (o->dyncast() == DYNCAST_EXPRESSION)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	229 { Expression e = (Expression )o;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	230 if (e->op == TOKdsymbol)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	231 { DsymbolExp ve = (DsymbolExp )e;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	232 Declaration *d = ve->s->isDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	233 if (d && d->needThis())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	234 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	235 return 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	236 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	237 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	238 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	239 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	240 return 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	241 }
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 /******************************* TypedefDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	244
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	245 TypedefDeclaration::TypedefDeclaration(Loc loc, Identifier id, Type basetype, Initializer *init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	246 : Declaration(id)
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 this->type = new TypeTypedef(this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	249 this->basetype = basetype->toBasetype();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	250 this->init = init;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	251 #ifdef _DH
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	252 this->htype = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	253 this->hbasetype = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	254 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	255 this->sem = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	256 this->inuse = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	257 this->loc = loc;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	258 #if IN_DMD
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	259 this->sinit = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	260 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	261 }
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 Dsymbol TypedefDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	264 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	265 Type *basetype = this->basetype->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	266
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	267 Initializer *init = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	268 if (this->init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	269 init = this->init->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	270
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	271 assert(!s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	272 TypedefDeclaration *st;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	273 st = new TypedefDeclaration(loc, ident, basetype, init);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	274 #ifdef _DH
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	275 // Syntax copy for header file
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	276 if (!htype) // Don't overwrite original
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	277 { if (type) // Make copy for both old and new instances
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	278 { htype = type->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	279 st->htype = type->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	280 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	281 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	282 else // Make copy of original for new instance
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	283 st->htype = htype->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	284 if (!hbasetype)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	285 { if (basetype)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	286 { hbasetype = basetype->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	287 st->hbasetype = basetype->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	288 }
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 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	291 st->hbasetype = hbasetype->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	292 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	293 return st;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	294 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	295
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	296 void TypedefDeclaration::semantic(Scope *sc)
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 //printf("TypedefDeclaration::semantic(%s) sem = %d\n", toChars(), sem);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	299 if (sem == 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	300 { sem = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	301 basetype = basetype->semantic(loc, sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	302 sem = 2;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	303 type = type->semantic(loc, sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	304 if (sc->parent->isFuncDeclaration() && init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	305 semantic2(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	306 storage_class \|= sc->stc & STCdeprecated;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	307 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	308 else if (sem == 1)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	309 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	310 error("circular definition");
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 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	313
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	314 void TypedefDeclaration::semantic2(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	315 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	316 //printf("TypedefDeclaration::semantic2(%s) sem = %d\n", toChars(), sem);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	317 if (sem == 2)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	318 { sem = 3;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	319 if (init)
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 init = init->semantic(sc, basetype);
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 ExpInitializer *ie = init->isExpInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	324 if (ie)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	325 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	326 if (ie->exp->type == basetype)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	327 ie->exp->type = type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	328 }
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 }
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 const char *TypedefDeclaration::kind()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	334 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	335 return "typedef";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	336 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	337
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	338 Type *TypedefDeclaration::getType()
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 return type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	341 }
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 void TypedefDeclaration::toCBuffer(OutBuffer buf, HdrGenState hgs)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	344 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	345 buf->writestring("typedef ");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	346 basetype->toCBuffer(buf, ident, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	347 if (init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	348 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	349 buf->writestring(" = ");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	350 init->toCBuffer(buf, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	351 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	352 buf->writeByte(';');
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	353 buf->writenl();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	354 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	355
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	356 /******************************* AliasDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	357
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	358 AliasDeclaration::AliasDeclaration(Loc loc, Identifier id, Type type)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	359 : Declaration(id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	360 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	361 //printf("AliasDeclaration(id = '%s', type = %p)\n", id->toChars(), type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	362 //printf("type = '%s'\n", type->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	363 this->loc = loc;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	364 this->type = type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	365 this->aliassym = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	366 #ifdef _DH
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	367 this->htype = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	368 this->haliassym = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	369 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	370 this->overnext = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	371 this->inSemantic = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	372 assert(type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	373 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	374
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	375 AliasDeclaration::AliasDeclaration(Loc loc, Identifier id, Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	376 : Declaration(id)
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 //printf("AliasDeclaration(id = '%s', s = %p)\n", id->toChars(), s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	379 assert(s != this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	380 this->loc = loc;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	381 this->type = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	382 this->aliassym = s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	383 #ifdef _DH
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	384 this->htype = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	385 this->haliassym = NULL;
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 this->overnext = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	388 this->inSemantic = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	389 assert(s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	390 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	391
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	392 Dsymbol AliasDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	393 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	394 //printf("AliasDeclaration::syntaxCopy()\n");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	395 assert(!s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	396 AliasDeclaration *sa;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	397 if (type)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	398 sa = new AliasDeclaration(loc, ident, type->syntaxCopy());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	399 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	400 sa = new AliasDeclaration(loc, ident, aliassym->syntaxCopy(NULL));
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	401 #ifdef _DH
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	402 // Syntax copy for header file
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	403 if (!htype) // Don't overwrite original
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	404 { if (type) // Make copy for both old and new instances
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	405 { htype = type->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	406 sa->htype = type->syntaxCopy();
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 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	409 else // Make copy of original for new instance
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	410 sa->htype = htype->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	411 if (!haliassym)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	412 { if (aliassym)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	413 { haliassym = aliassym->syntaxCopy(s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	414 sa->haliassym = aliassym->syntaxCopy(s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	415 }
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 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	418 sa->haliassym = haliassym->syntaxCopy(s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	419 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	420 return sa;
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
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	423 void AliasDeclaration::semantic(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	424 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	425 //printf("AliasDeclaration::semantic() %s\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	426 if (aliassym)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	427 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	428 if (aliassym->isTemplateInstance())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	429 aliassym->semantic(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	430 return;
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 this->inSemantic = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	433
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	434 if (storage_class & STCconst)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	435 error("cannot be const");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	436
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	437 storage_class \|= sc->stc & STCdeprecated;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	438
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	439 // Given:
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	440 // alias foo.bar.abc def;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	441 // it is not knowable from the syntax whether this is an alias
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	442 // for a type or an alias for a symbol. It is up to the semantic()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	443 // pass to distinguish.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	444 // If it is a type, then type is set and getType() will return that
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	445 // type. If it is a symbol, then aliassym is set and type is NULL -
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	446 // toAlias() will return aliasssym.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	447
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	448 Dsymbol *s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	449 Type *t;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	450 Expression *e;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	451
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	452 /* This section is needed because resolve() will:
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	453 * const x = 3;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	454 * alias x y;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	455 * try to alias y to 3.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	456 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	457 s = type->toDsymbol(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	458 if (s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	459 goto L2; // it's a symbolic alias
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 //printf("alias type is %s\n", type->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	462 type->resolve(loc, sc, &e, &t, &s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	463 if (s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	464 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	465 goto L2;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	466 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	467 else if (e)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	468 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	469 // Try to convert Expression to Dsymbol
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	470 if (e->op == TOKvar)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	471 { s = ((VarExp *)e)->var;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	472 goto L2;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	473 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	474 else if (e->op == TOKfunction)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	475 { s = ((FuncExp *)e)->fd;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	476 goto L2;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	477 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	478 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	479 { error("cannot alias an expression %s", e->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	480 t = e->type;
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 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	483 else if (t)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	484 type = t;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	485 if (overnext)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	486 ScopeDsymbol::multiplyDefined(0, this, overnext);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	487 this->inSemantic = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	488 return;
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 L2:
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	491 //printf("alias is a symbol %s %s\n", s->kind(), s->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	492 type = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	493 VarDeclaration *v = s->isVarDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	494 if (v && v->linkage == LINKdefault)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	495 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	496 error("forward reference of %s", v->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	497 s = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	498 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	499 else
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 FuncDeclaration *f = s->toAlias()->isFuncDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	502 if (f)
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 if (overnext)
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 FuncAliasDeclaration *fa = new FuncAliasDeclaration(f);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	507 if (!fa->overloadInsert(overnext))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	508 ScopeDsymbol::multiplyDefined(0, f, overnext);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	509 overnext = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	510 s = fa;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	511 s->parent = sc->parent;
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 if (overnext)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	515 ScopeDsymbol::multiplyDefined(0, s, overnext);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	516 if (s == this)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	517 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	518 assert(global.errors);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	519 s = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	520 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	521 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	522 aliassym = s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	523 this->inSemantic = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	524 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	525
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	526 int AliasDeclaration::overloadInsert(Dsymbol *s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	527 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	528 /* Don't know yet what the aliased symbol is, so assume it can
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	529 * be overloaded and check later for correctness.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	530 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	531
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	532 //printf("AliasDeclaration::overloadInsert('%s')\n", s->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	533 if (overnext == NULL)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	534 { overnext = s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	535 return TRUE;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	536 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	537 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	538 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	539 return overnext->overloadInsert(s);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	540 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	541 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	542
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	543 const char *AliasDeclaration::kind()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	544 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	545 return "alias";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	546 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	547
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	548 Type *AliasDeclaration::getType()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	549 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	550 return type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	551 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	552
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	553 Dsymbol *AliasDeclaration::toAlias()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	554 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	555 //printf("AliasDeclaration::toAlias('%s', this = %p, aliassym = %p, kind = '%s')\n", toChars(), this, aliassym, aliassym ? aliassym->kind() : "");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	556 assert(this != aliassym);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	557 //static int count; if (++count == 10) (char)0=0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	558 if (inSemantic)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	559 { error("recursive alias declaration");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	560 // return this;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	561 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	562 Dsymbol *s = aliassym ? aliassym->toAlias() : this;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	563 return s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	564 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	565
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	566 void AliasDeclaration::toCBuffer(OutBuffer buf, HdrGenState hgs)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	567 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	568 buf->writestring("alias ");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	569 #if 0 && _DH
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	570 if (hgs->hdrgen)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	571 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	572 if (haliassym)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	573 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	574 haliassym->toCBuffer(buf, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	575 buf->writeByte(' ');
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	576 buf->writestring(ident->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	577 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	578 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	579 htype->toCBuffer(buf, ident, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	580 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	581 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	582 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	583 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	584 if (aliassym)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	585 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	586 aliassym->toCBuffer(buf, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	587 buf->writeByte(' ');
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	588 buf->writestring(ident->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	589 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	590 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	591 type->toCBuffer(buf, ident, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	592 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	593 buf->writeByte(';');
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	594 buf->writenl();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	595 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	596
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	597 /******************************* VarDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	598
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	599 VarDeclaration::VarDeclaration(Loc loc, Type type, Identifier id, Initializer *init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	600 : Declaration(id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	601 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	602 //printf("VarDeclaration('%s')\n", id->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	603 #ifdef DEBUG
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	604 if (!type && !init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	605 { printf("VarDeclaration('%s')\n", id->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	606 //(char)0=0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	607 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	608 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	609 assert(type \|\| init);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	610 this->type = type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	611 this->init = init;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	612 #ifdef _DH
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	613 this->htype = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	614 this->hinit = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	615 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	616 this->loc = loc;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	617 offset = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	618 noauto = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	619 nestedref = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	620 inuse = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	621 ctorinit = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	622 aliassym = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	623 onstack = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	624 canassign = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	625 value = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	626
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	627 // LDC
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	628 anonDecl = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	629 offset2 = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	630 nakedUse = false;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	631 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	632
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	633 Dsymbol VarDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	634 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	635 //printf("VarDeclaration::syntaxCopy(%s)\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	636
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	637 VarDeclaration *sv;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	638 if (s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	639 { sv = (VarDeclaration *)s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	640 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	641 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	642 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	643 Initializer *init = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	644 if (this->init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	645 { init = this->init->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	646 //init->isExpInitializer()->exp->print();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	647 //init->isExpInitializer()->exp->dump(0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	648 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	649
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	650 sv = new VarDeclaration(loc, type ? type->syntaxCopy() : NULL, ident, init);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	651 sv->storage_class = storage_class;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	652 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	653 #ifdef _DH
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	654 // Syntax copy for header file
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	655 if (!htype) // Don't overwrite original
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	656 { if (type) // Make copy for both old and new instances
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	657 { htype = type->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	658 sv->htype = type->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	659 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	660 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	661 else // Make copy of original for new instance
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	662 sv->htype = htype->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	663 if (!hinit)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	664 { if (init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	665 { hinit = init->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	666 sv->hinit = init->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	667 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	668 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	669 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	670 sv->hinit = hinit->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	671 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	672 return sv;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	673 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	674
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	675 void VarDeclaration::semantic(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	676 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	677 //printf("VarDeclaration::semantic('%s', parent = '%s')\n", toChars(), sc->parent->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	678 //printf(" type = %s\n", type ? type->toChars() : "null");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	679 //printf(" stc = x%x\n", sc->stc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	680 //printf(" storage_class = x%x\n", storage_class);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	681 //printf("linkage = %d\n", sc->linkage);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	682 //if (strcmp(toChars(), "mul") == 0) halt();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	683
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	684 storage_class \|= sc->stc;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	685 if (storage_class & STCextern && init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	686 error("extern symbols cannot have initializers");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	687
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	688 /* If auto type inference, do the inference
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	689 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	690 int inferred = 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	691 if (!type)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	692 { inuse++;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	693 type = init->inferType(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	694 inuse--;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	695 inferred = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	696
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	697 /* This is a kludge to support the existing syntax for RAII
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	698 * declarations.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	699 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	700 storage_class &= ~STCauto;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	701 originalType = type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	702 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	703 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	704 { if (!originalType)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	705 originalType = type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	706 type = type->semantic(loc, sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	707 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	708 //printf(" semantic type = %s\n", type ? type->toChars() : "null");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	709
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	710 type->checkDeprecated(loc, sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	711 linkage = sc->linkage;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	712 this->parent = sc->parent;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	713 //printf("this = %p, parent = %p, '%s'\n", this, parent, parent->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	714 protection = sc->protection;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	715 //printf("sc->stc = %x\n", sc->stc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	716 //printf("storage_class = x%x\n", storage_class);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	717
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	718 Dsymbol *parent = toParent();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	719 FuncDeclaration *fd = parent->isFuncDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	720
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	721 Type *tb = type->toBasetype();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	722 if (tb->ty == Tvoid && !(storage_class & STClazy))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	723 { error("voids have no value");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	724 type = Type::terror;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	725 tb = type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	726 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	727 if (tb->ty == Tfunction)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	728 { error("cannot be declared to be a function");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	729 type = Type::terror;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	730 tb = type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	731 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	732 if (tb->ty == Tstruct)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	733 { TypeStruct ts = (TypeStruct )tb;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	734
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	735 if (!ts->sym->members)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	736 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	737 error("no definition of struct %s", ts->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	738 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	739 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	740
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	741 if (tb->ty == Ttuple)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	742 { /* Instead, declare variables for each of the tuple elements
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	743 * and add those.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	744 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	745 TypeTuple tt = (TypeTuple )tb;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	746 size_t nelems = Argument::dim(tt->arguments);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	747 Objects *exps = new Objects();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	748 exps->setDim(nelems);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	749 Expression *ie = init ? init->toExpression() : NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	750
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	751 for (size_t i = 0; i < nelems; i++)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	752 { Argument *arg = Argument::getNth(tt->arguments, i);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	753
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	754 OutBuffer buf;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	755 buf.printf("_%s_field_%zu", ident->toChars(), i);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	756 buf.writeByte(0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	757 char name = (char )buf.extractData();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	758 Identifier *id = new Identifier(name, TOKidentifier);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	759
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	760 Expression *einit = ie;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	761 if (ie && ie->op == TOKtuple)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	762 { einit = (Expression )((TupleExp )ie)->exps->data[i];
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	763 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	764 Initializer *ti = init;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	765 if (einit)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	766 { ti = new ExpInitializer(einit->loc, einit);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	767 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	768
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	769 VarDeclaration *v = new VarDeclaration(loc, arg->type, id, ti);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	770 //printf("declaring field %s of type %s\n", v->toChars(), v->type->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	771 v->semantic(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	772
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	773 /*
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	774 // removed for LDC since TupleDeclaration::toObj already creates the fields;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	775 // adding them to the scope again leads to duplicates
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	776 if (sc->scopesym)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	777 { //printf("adding %s to %s\n", v->toChars(), sc->scopesym->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	778 if (sc->scopesym->members)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	779 sc->scopesym->members->push(v);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	780 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	781 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	782 Expression *e = new DsymbolExp(loc, v);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	783 exps->data[i] = e;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	784 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	785 TupleDeclaration *v2 = new TupleDeclaration(loc, ident, exps);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	786 v2->isexp = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	787 aliassym = v2;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	788 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	789 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	790
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	791 if (storage_class & STCconst && !init && !fd)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	792 // Initialize by constructor only
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	793 storage_class = (storage_class & ~STCconst) \| STCctorinit;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	794
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	795 if (isConst())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	796 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	797 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	798 else if (isStatic())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	799 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	800 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	801 else if (isSynchronized())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	802 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	803 error("variable %s cannot be synchronized", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	804 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	805 else if (isOverride())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	806 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	807 error("override cannot be applied to variable");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	808 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	809 else if (isAbstract())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	810 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	811 error("abstract cannot be applied to variable");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	812 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	813 else if (storage_class & STCtemplateparameter)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	814 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	815 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	816 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	817 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	818 AggregateDeclaration *aad = sc->anonAgg;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	819 if (!aad)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	820 aad = parent->isAggregateDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	821 if (aad)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	822 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	823 aad->addField(sc, this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	824 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	825
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	826 InterfaceDeclaration *id = parent->isInterfaceDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	827 if (id)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	828 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	829 error("field not allowed in interface");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	830 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	831
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	832 /* Templates cannot add fields to aggregates
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	833 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	834 TemplateInstance *ti = parent->isTemplateInstance();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	835 if (ti)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	836 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	837 // Take care of nested templates
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	838 while (1)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	839 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	840 TemplateInstance *ti2 = ti->tempdecl->parent->isTemplateInstance();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	841 if (!ti2)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	842 break;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	843 ti = ti2;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	844 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	845
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	846 // If it's a member template
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	847 AggregateDeclaration *ad = ti->tempdecl->isMember();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	848 if (ad && storage_class != STCundefined)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	849 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	850 error("cannot use template to add field to aggregate '%s'", ad->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	851 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	852 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	853 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	854
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	855 if (type->isauto() && !noauto)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	856 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	857 if (storage_class & (STCfield \| STCout \| STCref \| STCstatic) \|\| !fd)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	858 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	859 error("globals, statics, fields, ref and out parameters cannot be auto");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	860 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	861
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	862 if (!(storage_class & (STCauto \| STCscope)))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	863 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	864 if (!(storage_class & STCparameter) && ident != Id::withSym)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	865 error("reference to scope class must be scope");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	866 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	867 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	868
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	869 if (!init && !sc->inunion && !isStatic() && !isConst() && fd &&
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	870 !(storage_class & (STCfield \| STCin \| STCforeach)) &&
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	871 type->size() != 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	872 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	873 // Provide a default initializer
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	874 //printf("Providing default initializer for '%s'\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	875 if (type->ty == Tstruct &&
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	876 ((TypeStruct *)type)->sym->zeroInit == 1)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	877 { /* If a struct is all zeros, as a special case
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	878 * set it's initializer to the integer 0.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	879 * In AssignExp::toElem(), we check for this and issue
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	880 * a memset() to initialize the struct.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	881 * Must do same check in interpreter.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	882 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	883 Expression *e = new IntegerExp(loc, 0, Type::tint32);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	884 Expression *e1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	885 e1 = new VarExp(loc, this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	886 e = new AssignExp(loc, e1, e);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	887 e->type = e1->type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	888 init = new ExpInitializer(loc, e/->type->defaultInit()/);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	889 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	890 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	891 else if (type->ty == Ttypedef)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	892 { TypeTypedef td = (TypeTypedef )type;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	893 if (td->sym->init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	894 { init = td->sym->init;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	895 ExpInitializer *ie = init->isExpInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	896 if (ie)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	897 // Make copy so we can modify it
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	898 init = new ExpInitializer(ie->loc, ie->exp);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	899 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	900 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	901 init = getExpInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	902 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	903 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	904 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	905 init = getExpInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	906 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	907 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	908
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	909 if (init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	910 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	911 sc = sc->push();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	912 sc->stc &= ~(STCconst \| STCinvariant \| STCpure);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	913
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	914 ArrayInitializer *ai = init->isArrayInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	915 if (ai && tb->ty == Taarray)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	916 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	917 init = ai->toAssocArrayInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	918 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	919
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	920 StructInitializer *si = init->isStructInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	921 ExpInitializer *ei = init->isExpInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	922
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	923 // See if we can allocate on the stack
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	924 if (ei && isScope() && ei->exp->op == TOKnew)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	925 { NewExp ne = (NewExp )ei->exp;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	926 if (!(ne->newargs && ne->newargs->dim))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	927 { ne->onstack = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	928 onstack = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	929 if (type->isBaseOf(ne->newtype->semantic(loc, sc), NULL))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	930 onstack = 2;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	931 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	932 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	933
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	934 // If inside function, there is no semantic3() call
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	935 if (sc->func)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	936 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	937 // If local variable, use AssignExp to handle all the various
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	938 // possibilities.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	939 if (fd && !isStatic() && !isConst() && !init->isVoidInitializer())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	940 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	941 //printf("fd = '%s', var = '%s'\n", fd->toChars(), toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	942 if (!ei)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	943 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	944 Expression *e = init->toExpression();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	945 if (!e)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	946 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	947 init = init->semantic(sc, type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	948 e = init->toExpression();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	949 if (!e)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	950 { error("is not a static and cannot have static initializer");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	951 return;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	952 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	953 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	954 ei = new ExpInitializer(init->loc, e);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	955 init = ei;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	956 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	957
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	958 Expression *e1 = new VarExp(loc, this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	959
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	960 Type *t = type->toBasetype();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	961 if (t->ty == Tsarray)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	962 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	963 ei->exp = ei->exp->semantic(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	964 if (!ei->exp->implicitConvTo(type))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	965 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	966 int dim = ((TypeSArray *)t)->dim->toInteger();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	967 // If multidimensional static array, treat as one large array
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	968 while (1)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	969 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	970 t = t->nextOf()->toBasetype();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	971 if (t->ty != Tsarray)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	972 break;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	973 dim = ((TypeSArray )t)->dim->toInteger();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	974 e1->type = new TypeSArray(t->nextOf(), new IntegerExp(0, dim, Type::tindex));
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	975 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	976 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	977 e1 = new SliceExp(loc, e1, NULL, NULL);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	978 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	979 else if (t->ty == Tstruct)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	980 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	981 ei->exp = ei->exp->semantic(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	982 if (!ei->exp->implicitConvTo(type))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	983 ei->exp = new CastExp(loc, ei->exp, type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	984 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	985 ei->exp = new AssignExp(loc, e1, ei->exp);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	986 ei->exp->op = TOKconstruct;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	987 canassign++;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	988 ei->exp = ei->exp->semantic(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	989 canassign--;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	990 ei->exp->optimize(WANTvalue);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	991 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	992 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	993 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	994 init = init->semantic(sc, type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	995 if (fd && isConst() && !isStatic())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	996 { // Make it static
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	997 storage_class \|= STCstatic;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	998 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	999 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1000 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1001 else if (isConst() \|\| isFinal())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1002 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1003 /* Because we may need the results of a const declaration in a
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1004 * subsequent type, such as an array dimension, before semantic2()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1005 * gets ordinarily run, try to run semantic2() now.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1006 * Ignore failure.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1007 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1008
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1009 if (!global.errors && !inferred)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1010 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1011 unsigned errors = global.errors;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1012 global.gag++;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1013 //printf("+gag\n");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1014 Expression *e;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1015 Initializer *i2 = init;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1016 inuse++;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1017 if (ei)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1018 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1019 e = ei->exp->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1020 e = e->semantic(sc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1021 e = e->implicitCastTo(sc, type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1022 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1023 else if (si \|\| ai)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1024 { i2 = init->syntaxCopy();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1025 i2 = i2->semantic(sc, type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1026 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1027 inuse--;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1028 global.gag--;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1029 //printf("-gag\n");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1030 if (errors != global.errors) // if errors happened
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1031 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1032 if (global.gag == 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1033 global.errors = errors; // act as if nothing happened
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1034 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1035 else if (ei)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1036 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1037 e = e->optimize(WANTvalue \| WANTinterpret);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1038 if (e->op == TOKint64 \|\| e->op == TOKstring)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1039 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1040 ei->exp = e; // no errors, keep result
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1041 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1042 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1043 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1044 init = i2; // no errors, keep result
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1045 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1046 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1047 sc = sc->pop();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1048 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1049 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1050
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1051 ExpInitializer *VarDeclaration::getExpInitializer()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1052 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1053 ExpInitializer *ei;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1054
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1055 if (init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1056 ei = init->isExpInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1057 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1058 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1059 Expression *e = type->defaultInit(loc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1060 if (e)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1061 ei = new ExpInitializer(loc, e);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1062 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1063 ei = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1064 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1065 return ei;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1066 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1067
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1068 void VarDeclaration::semantic2(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1069 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1070 //printf("VarDeclaration::semantic2('%s')\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1071 if (init && !toParent()->isFuncDeclaration())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1072 { inuse++;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1073 #if 0
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1074 ExpInitializer *ei = init->isExpInitializer();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1075 if (ei)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1076 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1077 ei->exp->dump(0);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1078 printf("type = %p\n", ei->exp->type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1079 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1080 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1081 init = init->semantic(sc, type);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1082 inuse--;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1083 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1084 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1085
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1086 const char *VarDeclaration::kind()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1087 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1088 return "variable";
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1089 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1090
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1091 Dsymbol *VarDeclaration::toAlias()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1092 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1093 //printf("VarDeclaration::toAlias('%s', this = %p, aliassym = %p)\n", toChars(), this, aliassym);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1094 assert(this != aliassym);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1095 Dsymbol *s = aliassym ? aliassym->toAlias() : this;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1096 return s;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1097 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1098
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1099 void VarDeclaration::toCBuffer(OutBuffer buf, HdrGenState hgs)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1100 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1101 StorageClassDeclaration::stcToCBuffer(buf, storage_class);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1102
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1103 /* If changing, be sure and fix CompoundDeclarationStatement::toCBuffer()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1104 * too.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1105 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1106 if (type)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1107 type->toCBuffer(buf, ident, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1108 else
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1109 buf->writestring(ident->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1110 if (init)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1111 { buf->writestring(" = ");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1112 init->toCBuffer(buf, hgs);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1113 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1114 buf->writeByte(';');
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1115 buf->writenl();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1116 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1117
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1118 int VarDeclaration::needThis()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1119 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1120 //printf("VarDeclaration::needThis(%s, x%x)\n", toChars(), storage_class);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1121 return storage_class & STCfield;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1122 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1123
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1124 int VarDeclaration::isImportedSymbol()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1125 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1126 if (protection == PROTexport && !init && (isStatic() \|\| isConst() \|\| parent->isModule()))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1127 return TRUE;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1128 return FALSE;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1129 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1130
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1131 void VarDeclaration::checkCtorConstInit()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1132 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1133 if (ctorinit == 0 && isCtorinit() && !(storage_class & STCfield))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1134 error("missing initializer in static constructor for const variable");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1135 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1136
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1137 /************************************
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1138 * Check to see if this variable is actually in an enclosing function
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1139 * rather than the current one.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1140 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1141
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1142 void VarDeclaration::checkNestedReference(Scope *sc, Loc loc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1143 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1144 //printf("VarDeclaration::checkNestedReference() %s\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1145 if (parent && !isDataseg() && parent != sc->parent)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1146 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1147 // The function that this variable is in
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1148 FuncDeclaration *fdv = toParent()->isFuncDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1149 // The current function
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1150 FuncDeclaration *fdthis = sc->parent->isFuncDeclaration();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1151
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1152 if (fdv && fdthis)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1153 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1154 if (loc.filename)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1155 fdthis->getLevel(loc, fdv);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1156 nestedref = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1157 fdv->nestedFrameRef = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1158 fdv->nestedVars.insert(this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1159 //printf("var %s in function %s is nested ref\n", toChars(), fdv->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1160 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1161 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1162 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1163
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1164 /*******************************
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1165 * Does symbol go into data segment?
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1166 * Includes extern variables.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1167 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1168
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1169 int VarDeclaration::isDataseg()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1170 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1171 #if 0
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1172 printf("VarDeclaration::isDataseg(%p, '%s')\n", this, toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1173 printf("%x, %p, %p\n", storage_class & (STCstatic \| STCconst), parent->isModule(), parent->isTemplateInstance());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1174 printf("parent = '%s'\n", parent->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1175 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1176 Dsymbol *parent = this->toParent();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1177 if (!parent && !(storage_class & (STCstatic \| STCconst)))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1178 { error("forward referenced");
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1179 type = Type::terror;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1180 return 0;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1181 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1182 return (storage_class & (STCstatic \| STCconst) \|\|
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1183 parent->isModule() \|\|
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1184 parent->isTemplateInstance());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1185 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1186
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1187 int VarDeclaration::hasPointers()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1188 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1189 return (!isDataseg() && type->hasPointers());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1190 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1191
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1192 /******************************************
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1193 * If a variable has an auto destructor call, return call for it.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1194 * Otherwise, return NULL.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1195 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1196
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1197 Expression *VarDeclaration::callAutoDtor()
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1198 { Expression *e = NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1199
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1200 //printf("VarDeclaration::callAutoDtor() %s\n", toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1201 if (storage_class & (STCauto \| STCscope) && !noauto)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1202 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1203 for (ClassDeclaration *cd = type->isClassHandle();
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1204 cd;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1205 cd = cd->baseClass)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1206 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1207 /* We can do better if there's a way with onstack
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1208 * classes to determine if there's no way the monitor
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1209 * could be set.
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1210 */
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1211 //if (cd->isInterfaceDeclaration())
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1212 //error("interface %s cannot be scope", cd->toChars());
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1213 if (1 \|\| onstack \|\| cd->dtors.dim) // if any destructors
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1214 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1215 // delete this;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1216 Expression *ec;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1217
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1218 ec = new VarExp(loc, this);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1219 e = new DeleteExp(loc, ec);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1220 e->type = Type::tvoid;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1221 break;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1222 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1223 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1224 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1225 return e;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1226 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1227
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1228
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1229 /******************************* ClassInfoDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1230
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1231 ClassInfoDeclaration::ClassInfoDeclaration(ClassDeclaration *cd)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1232 : VarDeclaration(0, ClassDeclaration::classinfo->type, cd->ident, NULL)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1233 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1234 this->cd = cd;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1235 storage_class = STCstatic;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1236 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1237
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1238 Dsymbol ClassInfoDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1239 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1240 assert(0); // should never be produced by syntax
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1241 return NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1242 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1243
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1244 void ClassInfoDeclaration::semantic(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1245 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1246 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1247
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1248 /******************************* ModuleInfoDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1249
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1250 ModuleInfoDeclaration::ModuleInfoDeclaration(Module *mod)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1251 : VarDeclaration(0, Module::moduleinfo->type, mod->ident, NULL)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1252 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1253 this->mod = mod;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1254 storage_class = STCstatic;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1255 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1256
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1257 Dsymbol ModuleInfoDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1258 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1259 assert(0); // should never be produced by syntax
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1260 return NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1261 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1262
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1263 void ModuleInfoDeclaration::semantic(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1264 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1265 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1266
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1267 /******************************* TypeInfoDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1268
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1269 TypeInfoDeclaration::TypeInfoDeclaration(Type *tinfo, int internal)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1270 : VarDeclaration(0, Type::typeinfo->type, tinfo->getTypeInfoIdent(internal), NULL)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1271 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1272 this->tinfo = tinfo;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1273 storage_class = STCstatic;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1274 protection = PROTpublic;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1275 linkage = LINKc;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1276 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1277
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1278 Dsymbol TypeInfoDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1279 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1280 assert(0); // should never be produced by syntax
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1281 return NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1282 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1283
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1284 void TypeInfoDeclaration::semantic(Scope *sc)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1285 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1286 assert(linkage == LINKc);
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1287 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1288
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1289 /*************************** TypeInfoConstDeclaration ********************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1290
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1291 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1292 TypeInfoConstDeclaration::TypeInfoConstDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1293 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1294 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1295 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1296 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1297
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1298 /*************************** TypeInfoInvariantDeclaration ********************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1299
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1300 #if DMDV2
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1301 TypeInfoInvariantDeclaration::TypeInfoInvariantDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1302 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1303 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1304 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1305 #endif
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1306
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1307 /*************************** TypeInfoStructDeclaration ********************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1308
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1309 TypeInfoStructDeclaration::TypeInfoStructDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1310 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1311 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1312 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1313
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1314 /*************************** TypeInfoClassDeclaration *********************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1315
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1316 TypeInfoClassDeclaration::TypeInfoClassDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1317 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1318 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1319 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1320
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1321 /*************************** TypeInfoInterfaceDeclaration *****************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1322
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1323 TypeInfoInterfaceDeclaration::TypeInfoInterfaceDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1324 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1325 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1326 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1327
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1328 /*************************** TypeInfoTypedefDeclaration *******************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1329
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1330 TypeInfoTypedefDeclaration::TypeInfoTypedefDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1331 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1332 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1333 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1334
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1335 /*************************** TypeInfoPointerDeclaration *******************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1336
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1337 TypeInfoPointerDeclaration::TypeInfoPointerDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1338 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1339 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1340 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1341
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1342 /*************************** TypeInfoArrayDeclaration *********************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1343
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1344 TypeInfoArrayDeclaration::TypeInfoArrayDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1345 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1346 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1347 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1348
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1349 /*************************** TypeInfoStaticArrayDeclaration ***************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1350
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1351 TypeInfoStaticArrayDeclaration::TypeInfoStaticArrayDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1352 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1353 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1354 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1355
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1356 /*************************** TypeInfoAssociativeArrayDeclaration **********/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1357
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1358 TypeInfoAssociativeArrayDeclaration::TypeInfoAssociativeArrayDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1359 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1360 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1361 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1362
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1363 /*************************** TypeInfoEnumDeclaration *********************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1364
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1365 TypeInfoEnumDeclaration::TypeInfoEnumDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1366 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1367 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1368 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1369
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1370 /*************************** TypeInfoFunctionDeclaration ******************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1371
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1372 TypeInfoFunctionDeclaration::TypeInfoFunctionDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1373 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1374 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1375 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1376
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1377 /*************************** TypeInfoDelegateDeclaration ******************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1378
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1379 TypeInfoDelegateDeclaration::TypeInfoDelegateDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1380 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1381 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1382 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1383
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1384 /*************************** TypeInfoTupleDeclaration ********************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1385
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1386 TypeInfoTupleDeclaration::TypeInfoTupleDeclaration(Type *tinfo)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1387 : TypeInfoDeclaration(tinfo, 0)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1388 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1389 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1390
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1391 /******************************* ThisDeclaration **************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1392
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1393 // For the "this" parameter to member functions
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1394
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1395 ThisDeclaration::ThisDeclaration(Type *t)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1396 : VarDeclaration(0, t, Id::This, NULL)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1397 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1398 noauto = 1;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1399 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1400
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1401 Dsymbol ThisDeclaration::syntaxCopy(Dsymbol s)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1402 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1403 assert(0); // should never be produced by syntax
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1404 return NULL;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1405 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1406
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1407 /******************** StaticStructInitDeclaration *************************/
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1408
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1409 StaticStructInitDeclaration::StaticStructInitDeclaration(Loc loc, StructDeclaration *dsym)
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1410 : Declaration(new Identifier("", TOKidentifier))
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1411 {
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1412 this->loc = loc;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1413 this->dsym = dsym;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1414 storage_class \|= STCconst;
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1415 }
e961851fb8be Merged DMD 1.042. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 1146 diff changeset	1416

Mercurial > projects > ldc

annotate dmd/declaration.c @ 1256:6af2359b433a