dmd2/declaration.c

   1
   2 // Compiler implementation of the D programming language
   3 // Copyright (c) 1999-2008 by Digital Mars
   4 // All Rights Reserved
   5 // written by Walter Bright
   6 // http://www.digitalmars.com
   7 // License for redistribution is by either the Artistic License
   8 // in artistic.txt, or the GNU General Public License in gnu.txt.
   9 // See the included readme.txt for details.
  10
  11 /* NOTE: This file has been patched from the original DMD distribution to
  12    work with the GDC compiler.
  13
  14    Modified by David Friedman, December 2006
  15 */
  16
  17 #include <stdio.h>
  18 #include <assert.h>
  19
  20 #include "init.h"
  21 #include "declaration.h"
  22 #include "attrib.h"
  23 #include "mtype.h"
  24 #include "template.h"
  25 #include "scope.h"
  26 #include "aggregate.h"
  27 #include "module.h"
  28 #include "id.h"
  29 #include "expression.h"
  30 #include "hdrgen.h"
  31
  32 /********************************* Declaration ****************************/
  33
  34 Declaration::Declaration(Identifier *id)
  35     : Dsymbol(id)
  36 {
  37     type = NULL;
  38     originalType = NULL;
  39     storage_class = STCundefined;
  40     protection = PROTundefined;
  41     linkage = LINKdefault;
  42     attributes = NULL;
  43 }
  44
  45 void Declaration::semantic(Scope *sc)
  46 {
  47 }
  48
  49 char *Declaration::kind()
  50 {
  51     return "declaration";
  52 }
  53
  54 target_size_t Declaration::size(Loc loc)
  55 {
  56     assert(type);
  57     return type->size();
  58 }
  59
  60 int Declaration::isStaticConstructor()
  61 {
  62     return FALSE;
  63 }
  64
  65 int Declaration::isStaticDestructor()
  66 {
  67     return FALSE;
  68 }
  69
  70 int Declaration::isDelete()
  71 {
  72     return FALSE;
  73 }
  74
  75 int Declaration::isDataseg()
  76 {
  77     return FALSE;
  78 }
  79
  80 int Declaration::isCodeseg()
  81 {
  82     return FALSE;
  83 }
  84
  85 enum PROT Declaration::prot()
  86 {
  87     return protection;
  88 }
  89
  90 /*************************************
  91  * Check to see if declaration can be modified in this context (sc).
  92  * Issue error if not.
  93  */
  94
  95 void Declaration::checkModify(Loc loc, Scope *sc, Type *t)
  96 {
  97     if (sc->incontract && isParameter())
  98         error(loc, "cannot modify parameter '%s' in contract", toChars());
  99
 100     if (isCtorinit())
 101     {   // It's only modifiable if inside the right constructor
 102         Dsymbol *s = sc->func;
 103         while (1)
 104         {
 105             FuncDeclaration *fd = NULL;
 106             if (s)
 107                 fd = s->isFuncDeclaration();
 108             if (fd &&
 109                 ((fd->isCtorDeclaration() && storage_class & STCfield) ||
 110                  (fd->isStaticCtorDeclaration() && !(storage_class & STCfield))) &&
 111                 fd->toParent() == toParent()
 112                )
 113             {
 114                 VarDeclaration *v = isVarDeclaration();
 115                 assert(v);
 116                 v->ctorinit = 1;
 117                 //printf("setting ctorinit\n");
 118             }
 119             else
 120             {
 121                 if (s)
 122                 {   s = s->toParent2();
 123                     continue;
 124                 }
 125                 else
 126                 {
 127                     const char *p = isStatic() ? "static " : "";
 128                     error(loc, "can only initialize %sconst %s inside %sconstructor",
 129                         p, toChars(), p);
 130                 }
 131             }
 132             break;
 133         }
 134     }
 135     else
 136     {
 137         VarDeclaration *v = isVarDeclaration();
 138         if (v && v->canassign == 0)
 139         {
 140             char *p = NULL;
 141             if (isConst())
 142                 p = "const";
 143             else if (isInvariant())
 144                 p = "invariant";
 145             else if (storage_class & STCmanifest)
 146                 p = "manifest constant";
 147             else if (!t->isAssignable())
 148                 p = "struct with immutable members";
 149             if (p)
 150             {   error(loc, "cannot modify %s", p);
 151                 halt();
 152             }
 153         }
 154     }
 155 }
 156
 157
 158 /********************************* TupleDeclaration ****************************/
 159
 160 TupleDeclaration::TupleDeclaration(Loc loc, Identifier *id, Objects *objects)
 161     : Declaration(id)
 162 {
 163     this->type = NULL;
 164     this->objects = objects;
 165     this->isexp = 0;
 166     this->tupletype = NULL;
 167 }
 168
 169 Dsymbol *TupleDeclaration::syntaxCopy(Dsymbol *s)
 170 {
 171     assert(0);
 172     return NULL;
 173 }
 174
 175 char *TupleDeclaration::kind()
 176 {
 177     return "tuple";
 178 }
 179
 180 Type *TupleDeclaration::getType()
 181 {
 182     /* If this tuple represents a type, return that type
 183      */
 184
 185     //printf("TupleDeclaration::getType() %s\n", toChars());
 186     if (isexp)
 187         return NULL;
 188     if (!tupletype)
 189     {
 190         /* It's only a type tuple if all the Object's are types
 191          */
 192         for (size_t i = 0; i < objects->dim; i++)
 193         {   Object *o = (Object *)objects->data[i];
 194
 195             if (o->dyncast() != DYNCAST_TYPE)
 196             {
 197                 //printf("\tnot[%d], %p, %d\n", i, o, o->dyncast());
 198                 return NULL;
 199             }
 200         }
 201
 202         /* We know it's a type tuple, so build the TypeTuple
 203          */
 204         Arguments *args = new Arguments();
 205         args->setDim(objects->dim);
 206         OutBuffer buf;
 207         for (size_t i = 0; i < objects->dim; i++)
 208         {   Type *t = (Type *)objects->data[i];
 209
 210             //printf("type = %s\n", t->toChars());
 211 #if 0
 212             buf.printf("_%s_%d", ident->toChars(), i);
 213             char *name = (char *)buf.extractData();
 214             Identifier *id = new Identifier(name, TOKidentifier);
 215             Argument *arg = new Argument(STCin, t, id, NULL);
 216 #else
 217             Argument *arg = new Argument(0, t, NULL, NULL);
 218 #endif
 219             args->data[i] = (void *)arg;
 220         }
 221
 222         tupletype = new TypeTuple(args);
 223     }
 224
 225     return tupletype;
 226 }
 227
 228 int TupleDeclaration::needThis()
 229 {
 230     //printf("TupleDeclaration::needThis(%s)\n", toChars());
 231     for (size_t i = 0; i < objects->dim; i++)
 232     {   Object *o = (Object *)objects->data[i];
 233         if (o->dyncast() == DYNCAST_EXPRESSION)
 234         {   Expression *e = (Expression *)o;
 235             if (e->op == TOKdsymbol)
 236             {   DsymbolExp *ve = (DsymbolExp *)e;
 237                 Declaration *d = ve->s->isDeclaration();
 238                 if (d && d->needThis())
 239                 {
 240                     return 1;
 241                 }
 242             }
 243         }
 244     }
 245     return 0;
 246 }
 247
 248 /********************************* TypedefDeclaration ****************************/
 249
 250 TypedefDeclaration::TypedefDeclaration(Loc loc, Identifier *id, Type *basetype, Initializer *init)
 251     : Declaration(id)
 252 {
 253     this->type = new TypeTypedef(this);
 254     this->basetype = basetype->toBasetype();
 255     this->init = init;
 256 #ifdef _DH
 257     this->htype = NULL;
 258     this->hbasetype = NULL;
 259 #endif
 260     this->sem = 0;
 261     this->inuse = 0;
 262     this->loc = loc;
 263     this->sinit = NULL;
 264 }
 265
 266 Dsymbol *TypedefDeclaration::syntaxCopy(Dsymbol *s)
 267 {
 268     Type *basetype = this->basetype->syntaxCopy();
 269
 270     Initializer *init = NULL;
 271     if (this->init)
 272         init = this->init->syntaxCopy();
 273
 274     assert(!s);
 275     TypedefDeclaration *st;
 276     st = new TypedefDeclaration(loc, ident, basetype, init);
 277 #ifdef _DH
 278     // Syntax copy for header file
 279     if (!htype)      // Don't overwrite original
 280     {   if (type)    // Make copy for both old and new instances
 281         {   htype = type->syntaxCopy();
 282             st->htype = type->syntaxCopy();
 283         }
 284     }
 285     else            // Make copy of original for new instance
 286         st->htype = htype->syntaxCopy();
 287     if (!hbasetype)
 288     {   if (basetype)
 289         {   hbasetype = basetype->syntaxCopy();
 290             st->hbasetype = basetype->syntaxCopy();
 291         }
 292     }
 293     else
 294         st->hbasetype = hbasetype->syntaxCopy();
 295 #endif
 296     return st;
 297 }
 298
 299 void TypedefDeclaration::semantic(Scope *sc)
 300 {
 301     //printf("TypedefDeclaration::semantic(%s) sem = %d\n", toChars(), sem);
 302     if (sem == 0)
 303     {   sem = 1;
 304         basetype = basetype->semantic(loc, sc);
 305         sem = 2;
 306         type = type->semantic(loc, sc);
 307         if (attributes)
 308             attributes->append(sc->attributes);
 309         else
 310             attributes = sc->attributes;
 311         if (sc->parent->isFuncDeclaration() && init)
 312             semantic2(sc);
 313     }
 314     else if (sem == 1)
 315     {
 316         error("circular definition");
 317     }
 318 }
 319
 320 void TypedefDeclaration::semantic2(Scope *sc)
 321 {
 322     //printf("TypedefDeclaration::semantic2(%s) sem = %d\n", toChars(), sem);
 323     if (sem == 2)
 324     {   sem = 3;
 325         if (init)
 326         {
 327             init = init->semantic(sc, basetype);
 328
 329             ExpInitializer *ie = init->isExpInitializer();
 330             if (ie)
 331             {
 332                 if (ie->exp->type == basetype)
 333                     ie->exp->type = type;
 334             }
 335         }
 336     }
 337 }
 338
 339 char *TypedefDeclaration::kind()
 340 {
 341     return "typedef";
 342 }
 343
 344 Type *TypedefDeclaration::getType()
 345 {
 346     return type;
 347 }
 348
 349 void TypedefDeclaration::toCBuffer(OutBuffer *buf, HdrGenState *hgs)
 350 {
 351     buf->writestring("typedef ");
 352     basetype->toCBuffer(buf, ident, hgs);
 353     if (init)
 354     {
 355         buf->writestring(" = ");
 356         init->toCBuffer(buf, hgs);
 357     }
 358     buf->writeByte(';');
 359     buf->writenl();
 360 }
 361
 362 /********************************* AliasDeclaration ****************************/
 363
 364 AliasDeclaration::AliasDeclaration(Loc loc, Identifier *id, Type *type)
 365     : Declaration(id)
 366 {
 367     //printf("AliasDeclaration(id = '%s', type = %p)\n", id->toChars(), type);
 368     //printf("type = '%s'\n", type->toChars());
 369     this->loc = loc;
 370     this->type = type;
 371     this->aliassym = NULL;
 372 #ifdef _DH
 373     this->htype = NULL;
 374     this->haliassym = NULL;
 375 #endif
 376     this->overnext = NULL;
 377     this->inSemantic = 0;
 378     assert(type);
 379 }
 380
 381 AliasDeclaration::AliasDeclaration(Loc loc, Identifier *id, Dsymbol *s)
 382     : Declaration(id)
 383 {
 384     //printf("AliasDeclaration(id = '%s', s = %p)\n", id->toChars(), s);
 385     assert(s != this);
 386     this->loc = loc;
 387     this->type = NULL;
 388     this->aliassym = s;
 389 #ifdef _DH
 390     this->htype = NULL;
 391     this->haliassym = NULL;
 392 #endif
 393     this->overnext = NULL;
 394     this->inSemantic = 0;
 395     assert(s);
 396 }
 397
 398 Dsymbol *AliasDeclaration::syntaxCopy(Dsymbol *s)
 399 {
 400     //printf("AliasDeclaration::syntaxCopy()\n");
 401     assert(!s);
 402     AliasDeclaration *sa;
 403     if (type)
 404         sa = new AliasDeclaration(loc, ident, type->syntaxCopy());
 405     else
 406         sa = new AliasDeclaration(loc, ident, aliassym->syntaxCopy(NULL));
 407 #ifdef _DH
 408     // Syntax copy for header file
 409     if (!htype)     // Don't overwrite original
 410     {   if (type)       // Make copy for both old and new instances
 411         {   htype = type->syntaxCopy();
 412             sa->htype = type->syntaxCopy();
 413         }
 414     }
 415     else                        // Make copy of original for new instance
 416         sa->htype = htype->syntaxCopy();
 417     if (!haliassym)
 418     {   if (aliassym)
 419         {   haliassym = aliassym->syntaxCopy(s);
 420             sa->haliassym = aliassym->syntaxCopy(s);
 421         }
 422     }
 423     else
 424         sa->haliassym = haliassym->syntaxCopy(s);
 425 #endif
 426     return sa;
 427 }
 428
 429 void AliasDeclaration::semantic(Scope *sc)
 430 {
 431     //printf("AliasDeclaration::semantic() %s\n", toChars());
 432     if (aliassym)
 433     {
 434         if (aliassym->isTemplateInstance())
 435             aliassym->semantic(sc);
 436         return;
 437     }
 438     this->inSemantic = 1;
 439
 440     if (storage_class & STCconst)
 441         error("cannot be const");
 442
 443     storage_class |= sc->stc & STCdeprecated;
 444
 445     // Given:
 446     //  alias foo.bar.abc def;
 447     // it is not knowable from the syntax whether this is an alias
 448     // for a type or an alias for a symbol. It is up to the semantic()
 449     // pass to distinguish.
 450     // If it is a type, then type is set and getType() will return that
 451     // type. If it is a symbol, then aliassym is set and type is NULL -
 452     // toAlias() will return aliasssym.
 453
 454     Dsymbol *s;
 455     Type *t;
 456     Expression *e;
 457
 458     /* This section is needed because resolve() will:
 459      *   const x = 3;
 460      *   alias x y;
 461      * try to alias y to 3.
 462      */
 463     s = type->toDsymbol(sc);
 464     if (s && ((s->getType() && type->equals(s->getType())) || s->isEnumMember()))
 465         goto L2;                        // it's a symbolic alias
 466
 467     //printf("alias type is %s\n", type->toChars());
 468     type->resolve(loc, sc, &e, &t, &s);
 469     if (s)
 470     {
 471         goto L2;
 472     }
 473     else if (e)
 474     {
 475         // Try to convert Expression to Dsymbol
 476         s = getDsymbol(e);
 477         if (s)
 478             goto L2;
 479
 480         error("cannot alias an expression %s", e->toChars());
 481         t = e->type;
 482     }
 483     else if (t)
 484         type = t;
 485     if (overnext)
 486         ScopeDsymbol::multiplyDefined(0, this, overnext);
 487     this->inSemantic = 0;
 488     return;
 489
 490   L2:
 491     //printf("alias is a symbol %s %s\n", s->kind(), s->toChars());
 492     type = NULL;
 493     VarDeclaration *v = s->isVarDeclaration();
 494     if (v && v->linkage == LINKdefault)
 495     {
 496         error("forward reference of %s", v->toChars());
 497         s = NULL;
 498     }
 499     else
 500     {
 501         FuncDeclaration *f = s->toAlias()->isFuncDeclaration();
 502         if (f)
 503         {
 504             if (overnext)
 505             {
 506                 FuncAliasDeclaration *fa = new FuncAliasDeclaration(f);
 507                 if (!fa->overloadInsert(overnext))
 508                     ScopeDsymbol::multiplyDefined(0, f, overnext);
 509                 overnext = NULL;
 510                 s = fa;
 511                 s->parent = sc->parent;
 512             }
 513         }
 514         if (overnext)
 515             ScopeDsymbol::multiplyDefined(0, s, overnext);
 516         if (s == this)
 517         {
 518             assert(global.errors);
 519             s = NULL;
 520         }
 521     }
 522     aliassym = s;
 523     this->inSemantic = 0;
 524 }
 525
 526 int AliasDeclaration::overloadInsert(Dsymbol *s)
 527 {
 528     /* Don't know yet what the aliased symbol is, so assume it can
 529      * be overloaded and check later for correctness.
 530      */
 531
 532     //printf("AliasDeclaration::overloadInsert('%s')\n", s->toChars());
 533     if (overnext == NULL)
 534     {   overnext = s;
 535         return TRUE;
 536     }
 537     else
 538     {
 539         return overnext->overloadInsert(s);
 540     }
 541 }
 542
 543 char *AliasDeclaration::kind()
 544 {
 545     return "alias";
 546 }
 547
 548 Type *AliasDeclaration::getType()
 549 {
 550     return type;
 551 }
 552
 553 Dsymbol *AliasDeclaration::toAlias()
 554 {
 555     //printf("AliasDeclaration::toAlias('%s', this = %p, aliassym = %p, kind = '%s')\n", toChars(), this, aliassym, aliassym ? aliassym->kind() : "");
 556     assert(this != aliassym);
 557     //static int count; if (++count == 10) *(char*)0=0;
 558     if (inSemantic)
 559     {   error("recursive alias declaration");
 560 //      return this;
 561     }
 562     Dsymbol *s = aliassym ? aliassym->toAlias() : this;
 563     return s;
 564 }
 565
 566 void AliasDeclaration::toCBuffer(OutBuffer *buf, HdrGenState *hgs)
 567 {
 568     buf->writestring("alias ");
 569 #if 0 && _DH
 570     if (hgs->hdrgen)
 571     {
 572         if (haliassym)
 573         {
 574             haliassym->toCBuffer(buf, hgs);
 575             buf->writeByte(' ');
 576             buf->writestring(ident->toChars());
 577         }
 578         else
 579             htype->toCBuffer(buf, ident, hgs);
 580     }
 581     else
 582 #endif
 583     {
 584         if (aliassym)
 585         {
 586             aliassym->toCBuffer(buf, hgs);
 587             buf->writeByte(' ');
 588             buf->writestring(ident->toChars());
 589         }
 590         else
 591             type->toCBuffer(buf, ident, hgs);
 592     }
 593     buf->writeByte(';');
 594     buf->writenl();
 595 }
 596
 597 /********************************* VarDeclaration ****************************/
 598
 599 VarDeclaration::VarDeclaration(Loc loc, Type *type, Identifier *id, Initializer *init)
 600     : Declaration(id)
 601 {
 602     //printf("VarDeclaration('%s')\n", id->toChars());
 603 #ifdef DEBUG
 604     if (!type && !init)
 605     {   printf("VarDeclaration('%s')\n", id->toChars());
 606         //*(char*)0=0;
 607     }
 608 #endif
 609     assert(type || init);
 610     this->type = type;
 611     this->init = init;
 612 #ifdef _DH
 613     this->htype = NULL;
 614     this->hinit = NULL;
 615 #endif
 616     this->loc = loc;
 617     offset = 0;
 618     noauto = 0;
 619     requirePointerInit = 0;
 620     dltNormalMode = 0;
 621     inuse = 0;
 622     ctorinit = 0;
 623     aliassym = NULL;
 624     onstack = 0;
 625     canassign = 0;
 626     value = NULL;
 627     scope = NULL;
 628 }
 629
 630 Dsymbol *VarDeclaration::syntaxCopy(Dsymbol *s)
 631 {
 632     //printf("VarDeclaration::syntaxCopy(%s)\n", toChars());
 633
 634     VarDeclaration *sv;
 635     if (s)
 636     {   sv = (VarDeclaration *)s;
 637     }
 638     else
 639     {
 640         Initializer *init = NULL;
 641         if (this->init)
 642         {   init = this->init->syntaxCopy();
 643             //init->isExpInitializer()->exp->print();
 644             //init->isExpInitializer()->exp->dump(0);
 645         }
 646
 647         sv = new VarDeclaration(loc, type ? type->syntaxCopy() : NULL, ident, init);
 648         sv->storage_class = storage_class;
 649     }
 650     sv->requirePointerInit = requirePointerInit;
 651 #ifdef _DH
 652     // Syntax copy for header file
 653     if (!htype)      // Don't overwrite original
 654     {   if (type)    // Make copy for both old and new instances
 655         {   htype = type->syntaxCopy();
 656             sv->htype = type->syntaxCopy();
 657         }
 658     }
 659     else            // Make copy of original for new instance
 660         sv->htype = htype->syntaxCopy();
 661     if (!hinit)
 662     {   if (init)
 663         {   hinit = init->syntaxCopy();
 664             sv->hinit = init->syntaxCopy();
 665         }
 666     }
 667     else
 668         sv->hinit = hinit->syntaxCopy();
 669 #endif
 670     return sv;
 671 }
 672
 673 void VarDeclaration::semantic(Scope *sc)
 674 {
 675     //printf("VarDeclaration::semantic('%s', parent = '%s')\n", toChars(), sc->parent->toChars());
 676     //printf(" type = %s\n", type ? type->toChars() : "null");
 677     //printf(" stc = x%x\n", sc->stc);
 678     //printf(" storage_class = x%x\n", storage_class);
 679     //printf("linkage = %d\n", sc->linkage);
 680     //if (strcmp(toChars(), "mul") == 0) halt();
 681
 682     storage_class |= sc->stc;
 683     if (storage_class & STCextern && init)
 684         error("extern symbols cannot have initializers");
 685
 686     if (dltNormalMode && (storage_class & STCstatic))
 687         error("no static variables in Delight");
 688
 689     /* If auto type inference, do the inference
 690      */
 691     int inferred = 0;
 692     if (!type)
 693     {   inuse++;
 694         type = init->inferType(sc);
 695         inuse--;
 696         inferred = 1;
 697
 698         /* This is a kludge to support the existing syntax for RAII
 699          * declarations.
 700          */
 701         storage_class &= ~STCauto;
 702         originalType = type;
 703     }
 704     else
 705     {   if (!originalType)
 706             originalType = type;
 707         type = type->semantic(loc, sc);
 708     }
 709     //printf(" semantic type = %s\n", type ? type->toChars() : "null");
 710
 711     type->checkDeprecated(loc, sc);
 712     linkage = sc->linkage;
 713     this->parent = sc->parent;
 714     //printf("this = %p, parent = %p, '%s'\n", this, parent, parent->toChars());
 715     protection = sc->protection;
 716     if (attributes)
 717         attributes->append(sc->attributes);
 718     else
 719         attributes = sc->attributes;
 720     //printf("sc->stc = %x\n", sc->stc);
 721     //printf("storage_class = x%x\n", storage_class);
 722
 723     Dsymbol *parent = toParent();
 724     FuncDeclaration *fd = parent->isFuncDeclaration();
 725
 726     Type *tb = type->toBasetype();
 727     if (tb->ty == Tvoid && !(storage_class & STClazy))
 728     {   error("voids have no value");
 729         type = Type::terror;
 730         tb = type;
 731     }
 732     if (tb->ty == Tfunction)
 733     {   error("cannot be declared to be a function");
 734         type = Type::terror;
 735         tb = type;
 736     }
 737     if (tb->ty == Tstruct)
 738     {   TypeStruct *ts = (TypeStruct *)tb;
 739
 740         if (!ts->sym->members)
 741         {
 742             error("no definition of struct %s", ts->toChars());
 743         }
 744     }
 745
 746     if (tb->ty == Ttuple)
 747     {   /* Instead, declare variables for each of the tuple elements
 748          * and add those.
 749          */
 750         TypeTuple *tt = (TypeTuple *)tb;
 751         size_t nelems = Argument::dim(tt->arguments);
 752         Objects *exps = new Objects();
 753         exps->setDim(nelems);
 754         Expression *ie = init ? init->toExpression() : NULL;
 755
 756         for (size_t i = 0; i < nelems; i++)
 757         {   Argument *arg = Argument::getNth(tt->arguments, i);
 758
 759             OutBuffer buf;
 760             buf.printf("_%s_field_%"PRIuSIZE, ident->toChars(), i);
 761             buf.writeByte(0);
 762             char *name = (char *)buf.extractData();
 763             Identifier *id = new Identifier(name, TOKidentifier);
 764
 765             Expression *einit = ie;
 766             if (ie && ie->op == TOKtuple)
 767             {   einit = (Expression *)((TupleExp *)ie)->exps->data[i];
 768             }
 769             Initializer *ti = init;
 770             if (einit)
 771             {   ti = new ExpInitializer(einit->loc, einit);
 772             }
 773
 774             VarDeclaration *v = new VarDeclaration(loc, arg->type, id, ti);
 775             //printf("declaring field %s of type %s\n", v->toChars(), v->type->toChars());
 776             v->semantic(sc);
 777
 778             if (sc->scopesym)
 779             {   //printf("adding %s to %s\n", v->toChars(), sc->scopesym->toChars());
 780                 if (sc->scopesym->members)
 781                     sc->scopesym->members->push(v);
 782             }
 783
 784             Expression *e = new DsymbolExp(loc, v);
 785             exps->data[i] = e;
 786         }
 787         TupleDeclaration *v2 = new TupleDeclaration(loc, ident, exps);
 788         v2->isexp = 1;
 789         aliassym = v2;
 790         return;
 791     }
 792
 793 Lagain:
 794     if (storage_class & STCinvariant)
 795     {
 796         type = type->invariantOf();
 797     }
 798     else if (storage_class & (STCconst | STCin))
 799     {
 800         if (!type->isInvariant())
 801             type = type->constOf();
 802     }
 803     else if (type->isConst())
 804         storage_class |= STCconst;
 805     else if (type->isInvariant())
 806         storage_class |= STCinvariant;
 807
 808     if (isSynchronized())
 809     {
 810         error("variable %s cannot be synchronized", toChars());
 811     }
 812     else if (isOverride())
 813     {
 814         error("override cannot be applied to variable");
 815     }
 816     else if (isAbstract())
 817     {
 818         error("abstract cannot be applied to variable");
 819     }
 820     else if (storage_class & STCfinal)
 821     {
 822         error("final cannot be applied to variable");
 823     }
 824
 825     if (storage_class & (STCstatic | STCextern | STCmanifest | STCtemplateparameter | STCtls))
 826     {
 827     }
 828     else
 829     {
 830         AggregateDeclaration *aad = sc->anonAgg;
 831         if (!aad)
 832             aad = parent->isAggregateDeclaration();
 833         if (aad)
 834         {   assert(!(storage_class & (STCextern | STCstatic | STCtls)));
 835
 836             if (storage_class & (STCconst | STCinvariant) && init)
 837             {
 838                 if (!type->toBasetype()->isTypeBasic())
 839                     storage_class |= STCstatic;
 840             }
 841             else
 842                 aad->addField(sc, this);
 843         }
 844
 845         InterfaceDeclaration *id = parent->isInterfaceDeclaration();
 846         if (id)
 847         {
 848             error("field not allowed in interface");
 849         }
 850
 851         /* Templates cannot add fields to aggregates
 852          */
 853         TemplateInstance *ti = parent->isTemplateInstance();
 854         if (ti)
 855         {
 856             // Take care of nested templates
 857             while (1)
 858             {
 859                 TemplateInstance *ti2 = ti->tempdecl->parent->isTemplateInstance();
 860                 if (!ti2)
 861                     break;
 862                 ti = ti2;
 863             }
 864
 865             // If it's a member template
 866             AggregateDeclaration *ad = ti->tempdecl->isMember();
 867             if (ad && storage_class != STCundefined)
 868             {
 869                 error("cannot use template to add field to aggregate '%s'", ad->toChars());
 870             }
 871         }
 872     }
 873
 874     if (type->isauto() && !noauto)
 875     {
 876         if (storage_class & (STCfield | STCout | STCref | STCstatic | STCmanifest | STCtls) || !fd)
 877         {
 878             error("globals, statics, fields, manifest constants, ref and out parameters cannot be auto");
 879         }
 880
 881         if (!(storage_class & (STCauto | STCscope)))
 882         {
 883             if (!(storage_class & STCparameter) && ident != Id::withSym)
 884                 error("reference to scope class must be scope");
 885         }
 886     }
 887
 888     if ((isConst() || isInvariant()) && !init && !fd)
 889     {   // Initialize by constructor only
 890         storage_class |= STCctorinit;
 891     }
 892
 893     if (init)
 894         storage_class |= STCinit;     // remember we had an explicit initializer
 895     else if (storage_class & STCmanifest)
 896         error("manifest constants must have initializers");
 897
 898     enum TOK op = TOKconstruct;
 899     if (!init && !sc->inunion && !isStatic() && fd &&
 900         (!(storage_class & (STCfield | STCin | STCforeach | STCparameter)) || (storage_class & STCout)) &&
 901         type->size() != 0)
 902     {
 903         // Provide a default initializer
 904         //printf("Providing default initializer for '%s'\n", toChars());
 905         if (type->ty == Tstruct &&
 906             ((TypeStruct *)type)->sym->zeroInit == 1)
 907         {   /* If a struct is all zeros, as a special case
 908              * set it's initializer to the integer 0.
 909              * In AssignExp::toElem(), we check for this and issue
 910              * a memset() to initialize the struct.
 911              * Must do same check in interpreter.
 912              */
 913             Expression *e = new IntegerExp(loc, 0, Type::tint32);
 914             Expression *e1;
 915             e1 = new VarExp(loc, this);
 916             e = new AssignExp(loc, e1, e);
 917             e->type = e1->type;         // don't type check this, it would fail
 918             init = new ExpInitializer(loc, e);
 919             return;
 920         }
 921         else if (type->ty == Ttypedef)
 922         {   TypeTypedef *td = (TypeTypedef *)type;
 923             if (td->sym->init)
 924             {   init = td->sym->init;
 925                 ExpInitializer *ie = init->isExpInitializer();
 926                 if (ie)
 927                     // Make copy so we can modify it
 928                     init = new ExpInitializer(ie->loc, ie->exp);
 929             }
 930             else
 931                 init = getExpInitializer();
 932         }
 933         else
 934         {
 935             init = getExpInitializer();
 936         }
 937         // Default initializer is always a blit
 938         op = TOKblit;
 939     }
 940
 941     if (init)
 942     {
 943         ArrayInitializer *ai = init->isArrayInitializer();
 944         if (ai && tb->ty == Taarray)
 945         {
 946             init = ai->toAssocArrayInitializer();
 947         }
 948
 949         StructInitializer *si = init->isStructInitializer();
 950         ExpInitializer *ei = init->isExpInitializer();
 951
 952         // See if we can allocate on the stack
 953         if (ei && isScope() && ei->exp->op == TOKnew)
 954         {   NewExp *ne = (NewExp *)ei->exp;
 955             if (!(ne->newargs && ne->newargs->dim))
 956             {   ne->onstack = 1;
 957                 onstack = 1;
 958                 if (type->isBaseOf(ne->newtype->semantic(loc, sc), NULL))
 959                     onstack = 2;
 960             }
 961         }
 962
 963         // If inside function, there is no semantic3() call
 964         if (sc->func)
 965         {
 966             // If local variable, use AssignExp to handle all the various
 967             // possibilities.
 968             if (fd && !isStatic() && !(storage_class & STCmanifest) &&
 969                 !init->isVoidInitializer())
 970             {
 971                 //printf("fd = '%s', var = '%s'\n", fd->toChars(), toChars());
 972                 if (!ei)
 973                 {
 974                     Expression *e = init->toExpression();
 975                     if (!e)
 976                     {
 977                         init = init->semantic(sc, type);
 978                         e = init->toExpression();
 979                         if (!e)
 980                         {   error("is not a static and cannot have static initializer");
 981                             return;
 982                         }
 983                     }
 984                     ei = new ExpInitializer(init->loc, e);
 985                     init = ei;
 986                 }
 987
 988                 Expression *e1 = new VarExp(loc, this);
 989
 990                 Type *t = type->toBasetype();
 991                 if (t->ty == Tsarray)
 992                 {
 993                     ei->exp = ei->exp->semantic(sc);
 994                     if (!ei->exp->implicitConvTo(type))
 995                     {
 996                         sinteger_t dim = ((TypeSArray *)t)->dim->toInteger();
 997                         // If multidimensional static array, treat as one large array
 998                         while (1)
 999                         {
1000                             t = t->nextOf()->toBasetype();
1001                             if (t->ty != Tsarray)
1002                                 break;
1003                             dim *= ((TypeSArray *)t)->dim->toInteger();
1004                             e1->type = new TypeSArray(t->nextOf(), new IntegerExp(0, dim, Type::tindex));
1005                         }
1006                     }
1007                     e1 = new SliceExp(loc, e1, NULL, NULL);
1008                 }
1009                 else if (t->ty == Tstruct)
1010                 {
1011                     ei->exp = ei->exp->semantic(sc);
1012                     if (!ei->exp->implicitConvTo(type))
1013                     {   Type *ti = ei->exp->type->toBasetype();
1014                         // Don't cast away invariant or mutability in initializer
1015                         if (!(ti->ty == Tstruct && t->toDsymbol(sc) == ti->toDsymbol(sc)))
1016                             ei->exp = new CastExp(loc, ei->exp, type);
1017                     }
1018                 }
1019                 ei->exp = new AssignExp(loc, e1, ei->exp);
1020                 ei->exp->op = op;
1021                 canassign++;
1022                 ei->exp = ei->exp->semantic(sc);
1023                 canassign--;
1024                 ei->exp->optimize(WANTvalue);
1025             }
1026             else
1027             {
1028                 init = init->semantic(sc, type);
1029             }
1030         }
1031         else if (storage_class & (STCconst | STCinvariant | STCmanifest) ||
1032                  type->isConst() || type->isInvariant())
1033         {
1034             /* Because we may need the results of a const declaration in a
1035              * subsequent type, such as an array dimension, before semantic2()
1036              * gets ordinarily run, try to run semantic2() now.
1037              * Ignore failure.
1038              */
1039
1040             if (!global.errors && !inferred)
1041             {
1042                 unsigned errors = global.errors;
1043                 global.gag++;
1044                 //printf("+gag\n");
1045                 Expression *e;
1046                 Initializer *i2 = init;
1047                 inuse++;
1048                 if (ei)
1049                 {
1050                     e = ei->exp->syntaxCopy();
1051                     e = e->semantic(sc);
1052                     e = e->implicitCastTo(sc, type);
1053                 }
1054                 else if (si || ai)
1055                 {   i2 = init->syntaxCopy();
1056                     i2 = i2->semantic(sc, type);
1057                 }
1058                 inuse--;
1059                 global.gag--;
1060                 //printf("-gag\n");
1061                 if (errors != global.errors)    // if errors happened
1062                 {
1063                     if (global.gag == 0)
1064                         global.errors = errors; // act as if nothing happened
1065
1066                     /* Save scope for later use, to try again
1067                      */
1068                     scope = new Scope(*sc);
1069                     scope->setNoFree();
1070                 }
1071                 else if (ei)
1072                 {
1073                     if (isDataseg())
1074                         /* static const/invariant does CTFE
1075                          */
1076                         e = e->optimize(WANTvalue | WANTinterpret);
1077                     else
1078                         e = e->optimize(WANTvalue);
1079                     if (e->op == TOKint64 || e->op == TOKstring)
1080                     {
1081                         ei->exp = e;            // no errors, keep result
1082                     }
1083                     else
1084                     {
1085                         /* Save scope for later use, to try again
1086                          */
1087                         scope = new Scope(*sc);
1088                         scope->setNoFree();
1089                     }
1090                 }
1091                 else
1092                     init = i2;          // no errors, keep result
1093             }
1094         }
1095     }
1096 }
1097
1098 void VarDeclaration::semantic2(Scope *sc)
1099 {
1100     //printf("VarDeclaration::semantic2('%s')\n", toChars());
1101     if (init && !toParent()->isFuncDeclaration())
1102     {   inuse++;
1103 #if 0
1104         ExpInitializer *ei = init->isExpInitializer();
1105         if (ei)
1106         {
1107             ei->exp->dump(0);
1108             printf("type = %p\n", ei->exp->type);
1109         }
1110 #endif
1111         init = init->semantic(sc, type);
1112         inuse--;
1113     }
1114 }
1115
1116 char *VarDeclaration::kind()
1117 {
1118     return "variable";
1119 }
1120
1121 Dsymbol *VarDeclaration::toAlias()
1122 {
1123     //printf("VarDeclaration::toAlias('%s', this = %p, aliassym = %p)\n", toChars(), this, aliassym);
1124     assert(this != aliassym);
1125     Dsymbol *s = aliassym ? aliassym->toAlias() : this;
1126     return s;
1127 }
1128
1129 void VarDeclaration::toCBuffer(OutBuffer *buf, HdrGenState *hgs)
1130 {
1131     if (storage_class & STCmanifest)
1132         buf->writestring("manifest ");
1133     if (storage_class & STCstatic)
1134         buf->writestring("static ");
1135     if (storage_class & STCtls)
1136         buf->writestring("__tls ");
1137     if (storage_class & STCconst)
1138         buf->writestring("const ");
1139     if (storage_class & STCinvariant)
1140         buf->writestring("invariant ");
1141
1142     if (type)
1143         type->toCBuffer(buf, ident, hgs);
1144     else
1145         buf->writestring(ident->toChars());
1146     if (init)
1147     {   buf->writestring(" = ");
1148         ExpInitializer *ie = init->isExpInitializer();
1149         if (ie && (ie->exp->op == TOKconstruct || ie->exp->op == TOKblit))
1150             ((AssignExp *)ie->exp)->e2->toCBuffer(buf, hgs);
1151         else
1152             init->toCBuffer(buf, hgs);
1153     }
1154     buf->writeByte(';');
1155     buf->writenl();
1156 }
1157
1158 int VarDeclaration::needThis()
1159 {
1160     //printf("VarDeclaration::needThis(%s, x%x)\n", toChars(), storage_class);
1161     return storage_class & STCfield;
1162 }
1163
1164 int VarDeclaration::isImportedSymbol()
1165 {
1166     if (protection == PROTexport && !init &&
1167         (storage_class & STCstatic || parent->isModule()))
1168         return TRUE;
1169     return FALSE;
1170 }
1171
1172 void VarDeclaration::checkCtorConstInit()
1173 {
1174     if (ctorinit == 0 && isCtorinit() && !(storage_class & STCfield))
1175         error("missing initializer in static constructor for const variable");
1176 }
1177
1178 /************************************
1179  * Check to see if this variable is actually in an enclosing function
1180  * rather than the current one.
1181  */
1182
1183 void VarDeclaration::checkNestedReference(Scope *sc, Loc loc)
1184 {
1185     if (parent && !isDataseg() && parent != sc->parent &&
1186         !(storage_class & STCmanifest))
1187     {
1188         // The function that this variable is in
1189         FuncDeclaration *fdv = toParent()->isFuncDeclaration();
1190         // The current function
1191         FuncDeclaration *fdthis = sc->parent->isFuncDeclaration();
1192
1193         if (fdv && fdthis && fdv != fdthis)
1194         {
1195             if (loc.filename)
1196                 fdthis->getLevel(loc, fdv);
1197
1198             for (int i = 0; i < nestedrefs.dim; i++)
1199             {   FuncDeclaration *f = (FuncDeclaration *)nestedrefs.data[i];
1200                 if (f == fdthis)
1201                     goto L1;
1202             }
1203             nestedrefs.push(fdthis);
1204           L1: ;
1205
1206
1207             for (int i = 0; i < fdv->closureVars.dim; i++)
1208             {   Dsymbol *s = (Dsymbol *)fdv->closureVars.data[i];
1209                 if (s == this)
1210                     goto L2;
1211             }
1212
1213             fdv->closureVars.push(this);
1214           L2: ;
1215
1216             //printf("var %s in function %s is nested ref\n", toChars(), fdv->toChars());
1217         }
1218     }
1219 }
1220
1221 /****************************
1222  * Get ExpInitializer for a variable, if there is one.
1223  */
1224
1225 ExpInitializer *VarDeclaration::getExpInitializer()
1226 {
1227     ExpInitializer *ei;
1228
1229     if (init)
1230         ei = init->isExpInitializer();
1231     else
1232     {
1233         if ((type->ty == Tclass || type->ty == Tpointer) && requirePointerInit)
1234             error("non-null, but missing initialiser");
1235
1236         Expression *e = type->defaultInit();
1237         if (e)
1238             ei = new ExpInitializer(loc, e);
1239         else
1240             ei = NULL;
1241     }
1242     return ei;
1243 }
1244
1245
1246 /*******************************************
1247  * If variable has a constant expression initializer, get it.
1248  * Otherwise, return NULL.
1249  */
1250
1251 Expression *VarDeclaration::getConstInitializer()
1252 {
1253     if ((isConst() || isInvariant() || storage_class & STCmanifest) &&
1254         storage_class & STCinit)
1255     {
1256         ExpInitializer *ei = getExpInitializer();
1257         if (ei)
1258             return ei->exp;
1259     }
1260
1261     return NULL;
1262 }
1263
1264 /*************************************
1265  * Return !=0 if we can take the address of this variable.
1266  */
1267
1268 int VarDeclaration::canTakeAddressOf()
1269 {
1270 #if 0
1271     /* Global variables and struct/class fields of the form:
1272      *  const int x = 3;
1273      * are not stored and hence cannot have their address taken.
1274      */
1275     if ((isConst() || isInvariant()) &&
1276         storage_class & STCinit &&
1277         (!(storage_class & (STCstatic | STCextern)) || (storage_class & STCfield)) &&
1278         (!parent || toParent()->isModule() || toParent()->isTemplateInstance()) &&
1279         type->toBasetype()->isTypeBasic()
1280        )
1281     {
1282         return 0;
1283     }
1284 #else
1285     if (storage_class & STCmanifest)
1286         return 0;
1287 #endif
1288     return 1;
1289 }
1290
1291 /*******************************
1292  * Does symbol go into data segment?
1293  * Includes extern variables.
1294  */
1295
1296 int VarDeclaration::isDataseg()
1297 {
1298 #if 0
1299     printf("VarDeclaration::isDataseg(%p, '%s')\n", this, toChars());
1300     printf("%x, %p, %p\n", storage_class & (STCstatic | STCconst), parent->isModule(), parent->isTemplateInstance());
1301     printf("parent = '%s'\n", parent->toChars());
1302 #endif
1303     if (storage_class & STCmanifest)
1304         return 0;
1305     Dsymbol *parent = this->toParent();
1306     if (!parent && !(storage_class & STCstatic))
1307     {   error("forward referenced");
1308         type = Type::terror;
1309         return 0;
1310     }
1311     return canTakeAddressOf() &&
1312         (storage_class & (STCstatic | STCextern | STCtls) ||
1313          toParent()->isModule() ||
1314          toParent()->isTemplateInstance());
1315 }
1316
1317 int VarDeclaration::hasPointers()
1318 {
1319     //printf("VarDeclaration::hasPointers() %s, ty = %d\n", toChars(), type->ty);
1320     return (!isDataseg() && type->hasPointers());
1321 }
1322
1323 /******************************************
1324  * Return TRUE if variable needs to call the destructor.
1325  */
1326
1327 int VarDeclaration::needsAutoDtor()
1328 {
1329     //printf("VarDeclaration::needsAutoDtor() %s\n", toChars());
1330
1331     if (noauto || storage_class & STCnodtor)
1332         return FALSE;
1333
1334     // Destructors for structs and arrays of structs
1335     Type *tv = type->toBasetype();
1336     while (tv->ty == Tsarray)
1337     {   TypeSArray *ta = (TypeSArray *)tv;
1338         tv = tv->nextOf()->toBasetype();
1339     }
1340     if (tv->ty == Tstruct)
1341     {   TypeStruct *ts = (TypeStruct *)tv;
1342         StructDeclaration *sd = ts->sym;
1343         if (sd->dtor)
1344             return TRUE;
1345     }
1346
1347     // Destructors for classes
1348     if (storage_class & (STCauto | STCscope))
1349     {
1350         if (type->isClassHandle())
1351             return TRUE;
1352     }
1353     return FALSE;
1354 }
1355
1356
1357 /******************************************
1358  * If a variable has an auto destructor call, return call for it.
1359  * Otherwise, return NULL.
1360  */
1361
1362 Expression *VarDeclaration::callAutoDtor(Scope *sc)
1363 {   Expression *e = NULL;
1364
1365     //printf("VarDeclaration::callAutoDtor() %s\n", toChars());
1366
1367     if (noauto || storage_class & STCnodtor)
1368         return NULL;
1369
1370     // Destructors for structs and arrays of structs
1371     bool array = false;
1372     Type *tv = type->toBasetype();
1373     while (tv->ty == Tsarray)
1374     {   TypeSArray *ta = (TypeSArray *)tv;
1375         array = true;
1376         tv = tv->nextOf()->toBasetype();
1377     }
1378     if (tv->ty == Tstruct)
1379     {   TypeStruct *ts = (TypeStruct *)tv;
1380         StructDeclaration *sd = ts->sym;
1381         if (sd->dtor)
1382         {
1383             if (array)
1384             {
1385                 // Typeinfo.destroy(cast(void*)&v);
1386                 Expression *ea = new SymOffExp(loc, this, 0, 0);
1387                 ea = new CastExp(loc, ea, Type::tvoid->pointerTo());
1388                 Expressions *args = new Expressions();
1389                 args->push(ea);
1390
1391                 Expression *et = type->getTypeInfo(sc);
1392                 et = new DotIdExp(loc, et, Id::destroy);
1393
1394                 e = new CallExp(loc, et, args);
1395             }
1396             else
1397             {
1398                 e = new VarExp(loc, this);
1399                 e = new DotVarExp(loc, e, sd->dtor, 0);
1400                 e = new CallExp(loc, e);
1401             }
1402             return e;
1403         }
1404     }
1405
1406     // Destructors for classes
1407     if (storage_class & (STCauto | STCscope))
1408     {
1409         for (ClassDeclaration *cd = type->isClassHandle();
1410              cd;
1411              cd = cd->baseClass)
1412         {
1413             /* We can do better if there's a way with onstack
1414              * classes to determine if there's no way the monitor
1415              * could be set.
1416              */
1417             //if (cd->isInterfaceDeclaration())
1418                 //error("interface %s cannot be scope", cd->toChars());
1419             if (1 || onstack || cd->dtors.dim)  // if any destructors
1420             {
1421                 // delete this;
1422                 Expression *ec;
1423
1424                 ec = new VarExp(loc, this);
1425                 e = new DeleteExp(loc, ec);
1426                 e->type = Type::tvoid;
1427                 break;
1428             }
1429         }
1430     }
1431     return e;
1432 }
1433
1434
1435 /********************************* ClassInfoDeclaration ****************************/
1436
1437 ClassInfoDeclaration::ClassInfoDeclaration(ClassDeclaration *cd)
1438     : VarDeclaration(0, ClassDeclaration::classinfo->type, cd->ident, NULL)
1439 {
1440     this->cd = cd;
1441     storage_class = STCstatic;
1442 }
1443
1444 Dsymbol *ClassInfoDeclaration::syntaxCopy(Dsymbol *s)
1445 {
1446     assert(0);          // should never be produced by syntax
1447     return NULL;
1448 }
1449
1450 void ClassInfoDeclaration::semantic(Scope *sc)
1451 {
1452 }
1453
1454 /********************************* ModuleInfoDeclaration ****************************/
1455
1456 ModuleInfoDeclaration::ModuleInfoDeclaration(Module *mod)
1457     : VarDeclaration(0, Module::moduleinfo->type, mod->ident, NULL)
1458 {
1459     this->mod = mod;
1460     storage_class = STCstatic;
1461 }
1462
1463 Dsymbol *ModuleInfoDeclaration::syntaxCopy(Dsymbol *s)
1464 {
1465     assert(0);          // should never be produced by syntax
1466     return NULL;
1467 }
1468
1469 void ModuleInfoDeclaration::semantic(Scope *sc)
1470 {
1471 }
1472
1473 /********************************* TypeInfoDeclaration ****************************/
1474
1475 TypeInfoDeclaration::TypeInfoDeclaration(Type *tinfo, int internal)
1476     : VarDeclaration(0, Type::typeinfo->type, tinfo->getTypeInfoIdent(internal), NULL)
1477 {
1478     this->tinfo = tinfo;
1479     storage_class = STCstatic;
1480     protection = PROTpublic;
1481     linkage = LINKc;
1482 }
1483
1484 Dsymbol *TypeInfoDeclaration::syntaxCopy(Dsymbol *s)
1485 {
1486     assert(0);          // should never be produced by syntax
1487     return NULL;
1488 }
1489
1490 void TypeInfoDeclaration::semantic(Scope *sc)
1491 {
1492     assert(linkage == LINKc);
1493 }
1494
1495 /***************************** TypeInfoConstDeclaration **********************/
1496
1497 #if V2
1498 TypeInfoConstDeclaration::TypeInfoConstDeclaration(Type *tinfo)
1499     : TypeInfoDeclaration(tinfo, 0)
1500 {
1501 }
1502 #endif
1503
1504 /***************************** TypeInfoInvariantDeclaration **********************/
1505
1506 #if V2
1507 TypeInfoInvariantDeclaration::TypeInfoInvariantDeclaration(Type *tinfo)
1508     : TypeInfoDeclaration(tinfo, 0)
1509 {
1510 }
1511 #endif
1512
1513 /***************************** TypeInfoStructDeclaration **********************/
1514
1515 TypeInfoStructDeclaration::TypeInfoStructDeclaration(Type *tinfo)
1516     : TypeInfoDeclaration(tinfo, 0)
1517 {
1518 }
1519
1520 /***************************** TypeInfoClassDeclaration ***********************/
1521
1522 TypeInfoClassDeclaration::TypeInfoClassDeclaration(Type *tinfo)
1523     : TypeInfoDeclaration(tinfo, 0)
1524 {
1525 }
1526
1527 /***************************** TypeInfoInterfaceDeclaration *******************/
1528
1529 TypeInfoInterfaceDeclaration::TypeInfoInterfaceDeclaration(Type *tinfo)
1530     : TypeInfoDeclaration(tinfo, 0)
1531 {
1532 }
1533
1534 /***************************** TypeInfoTypedefDeclaration *********************/
1535
1536 TypeInfoTypedefDeclaration::TypeInfoTypedefDeclaration(Type *tinfo)
1537     : TypeInfoDeclaration(tinfo, 0)
1538 {
1539 }
1540
1541 /***************************** TypeInfoPointerDeclaration *********************/
1542
1543 TypeInfoPointerDeclaration::TypeInfoPointerDeclaration(Type *tinfo)
1544     : TypeInfoDeclaration(tinfo, 0)
1545 {
1546 }
1547
1548 /***************************** TypeInfoArrayDeclaration ***********************/
1549
1550 TypeInfoArrayDeclaration::TypeInfoArrayDeclaration(Type *tinfo)
1551     : TypeInfoDeclaration(tinfo, 0)
1552 {
1553 }
1554
1555 /***************************** TypeInfoStaticArrayDeclaration *****************/
1556
1557 TypeInfoStaticArrayDeclaration::TypeInfoStaticArrayDeclaration(Type *tinfo)
1558     : TypeInfoDeclaration(tinfo, 0)
1559 {
1560 }
1561
1562 /***************************** TypeInfoAssociativeArrayDeclaration ************/
1563
1564 TypeInfoAssociativeArrayDeclaration::TypeInfoAssociativeArrayDeclaration(Type *tinfo)
1565     : TypeInfoDeclaration(tinfo, 0)
1566 {
1567 }
1568
1569 /***************************** TypeInfoEnumDeclaration ***********************/
1570
1571 TypeInfoEnumDeclaration::TypeInfoEnumDeclaration(Type *tinfo)
1572     : TypeInfoDeclaration(tinfo, 0)
1573 {
1574 }
1575
1576 /***************************** TypeInfoFunctionDeclaration ********************/
1577
1578 TypeInfoFunctionDeclaration::TypeInfoFunctionDeclaration(Type *tinfo)
1579     : TypeInfoDeclaration(tinfo, 0)
1580 {
1581 }
1582
1583 /***************************** TypeInfoDelegateDeclaration ********************/
1584
1585 TypeInfoDelegateDeclaration::TypeInfoDelegateDeclaration(Type *tinfo)
1586     : TypeInfoDeclaration(tinfo, 0)
1587 {
1588 }
1589
1590 /***************************** TypeInfoTupleDeclaration **********************/
1591
1592 TypeInfoTupleDeclaration::TypeInfoTupleDeclaration(Type *tinfo)
1593     : TypeInfoDeclaration(tinfo, 0)
1594 {
1595 }
1596
1597 /********************************* ThisDeclaration ****************************/
1598
1599 // For the "this" parameter to member functions
1600
1601 ThisDeclaration::ThisDeclaration(Type *t)
1602    : VarDeclaration(0, t, Id::This, NULL)
1603 {
1604     noauto = 1;
1605 }
1606
1607 Dsymbol *ThisDeclaration::syntaxCopy(Dsymbol *s)
1608 {
1609     assert(0);          // should never be produced by syntax
1610     return NULL;
1611 }
1612
1613