git.gag.com Git - fw/sdcc/blob - src/SDCCsymt.c

   1 /*-------------------------------------------------------------------------
   2   SDCCsymt.c - Code file for Symbols table related structures and MACRO's.
   3         Written By -  Sandeep Dutta . sandeep.dutta@usa.net (1998)
   4
   5    This program is free software; you can redistribute it and/or modify it
   6    under the terms of the GNU General Public License as published by the
   7    Free Software Foundation; either version 2, or (at your option) any
   8    later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software
  17    Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  18
  19    In other words, you are welcome to use, share and improve this program.
  20    You are forbidden to forbid anyone else to use, share and improve
  21    what you give them.   Help stamp out software-hoarding!
  22 -------------------------------------------------------------------------*/
  23
  24 #include "common.h"
  25 #include "newalloc.h"
  26
  27 value *aggregateToPointer (value *val);
  28
  29 void printFromToType(sym_link *from, sym_link *to) {
  30   fprintf (stderr, "from type '");
  31   printTypeChain (from, stderr);
  32   fprintf (stderr, "'\nto type '");
  33   printTypeChain (to, stderr);
  34   fprintf (stderr, "'\n");
  35 }
  36
  37 /* noun strings */
  38 char *nounName(sym_link *sl) {
  39   switch (SPEC_NOUN(sl))
  40     {
  41     case V_INT: {
  42       if (SPEC_LONG(sl)) return "long";
  43       if (sl->select.s._short) return "short";
  44       return "int";
  45     }
  46     case V_FLOAT: return "float";
  47     case V_CHAR: return "char";
  48     case V_VOID: return "void";
  49     case V_STRUCT: return "struct";
  50     case V_LABEL: return "label";
  51     case V_BIT: return "bit";
  52     case V_SBIT: return "sbit";
  53     case V_DOUBLE: return "double";
  54     }
  55   return "unknown";
  56 };
  57
  58 bucket *SymbolTab[256];         /* the symbol    table  */
  59 bucket *StructTab[256];         /* the structure table  */
  60 bucket *TypedefTab[256];        /* the typedef   table  */
  61 bucket *LabelTab[256];          /* the Label     table  */
  62 bucket *enumTab[256];           /* enumerated    table  */
  63
  64 /*------------------------------------------------------------------*/
  65 /* initSymt () - initialises symbol table related stuff             */
  66 /*------------------------------------------------------------------*/
  67 void
  68 initSymt ()
  69 {
  70   int i = 0;
  71
  72   for (i = 0; i < 256; i++)
  73     SymbolTab[i] = StructTab[i] = (void *) NULL;
  74
  75
  76 }
  77 /*-----------------------------------------------------------------*/
  78 /* newBucket - allocates & returns a new bucket        */
  79 /*-----------------------------------------------------------------*/
  80 bucket *
  81 newBucket ()
  82 {
  83   bucket *bp;
  84
  85   bp = Safe_alloc ( sizeof (bucket));
  86
  87   return bp;
  88 }
  89
  90 /*-----------------------------------------------------------------*/
  91 /* hashKey - computes the hashkey given a symbol name              */
  92 /*-----------------------------------------------------------------*/
  93 int
  94 hashKey (const char *s)
  95 {
  96   unsigned long key = 0;
  97
  98   while (*s)
  99     key += *s++;
 100   return key % 256;
 101 }
 102
 103 /*-----------------------------------------------------------------*/
 104 /* addSym - adds a symbol to the hash Table                        */
 105 /*-----------------------------------------------------------------*/
 106 void
 107 addSym (bucket ** stab,
 108         void *sym,
 109         char *sname,
 110         int level,
 111         int block,
 112         int checkType)
 113 {
 114   int i;                        /* index into the hash Table */
 115   bucket *bp;                   /* temp bucket    *         */
 116
 117   if (checkType) {
 118     symbol *csym = (symbol *)sym;
 119
 120     if (getenv("DEBUG_SANITY")) {
 121       fprintf (stderr, "addSym: %s ", sname);
 122     }
 123     /* make sure the type is complete and sane */
 124     checkTypeSanity(csym->etype, csym->name);
 125   }
 126
 127   /* prevent overflow of the (r)name buffers */
 128   if (strlen(sname)>SDCC_SYMNAME_MAX) {
 129     werror (W_SYMBOL_NAME_TOO_LONG, SDCC_SYMNAME_MAX);
 130     sname[SDCC_SYMNAME_MAX]='\0';
 131   }
 132
 133   /* the symbols are always added at the head of the list  */
 134   i = hashKey (sname);
 135   /* get a free entry */
 136   bp = Safe_alloc ( sizeof (bucket));
 137
 138   bp->sym = sym;                /* update the symbol pointer  */
 139   bp->level = level;            /* update the nest level      */
 140   bp->block = block;
 141   strcpy (bp->name, sname);     /* copy the name into place */
 142
 143   /* if this is the first entry */
 144   if (stab[i] == NULL)
 145     {
 146       bp->prev = bp->next = (void *) NULL;      /* point to nothing */
 147       stab[i] = bp;
 148     }
 149   /* not first entry then add @ head of list */
 150   else
 151     {
 152       bp->prev = NULL;
 153       stab[i]->prev = bp;
 154       bp->next = stab[i];
 155       stab[i] = bp;
 156     }
 157 }
 158
 159 /*-----------------------------------------------------------------*/
 160 /* deleteSym - deletes a symbol from the hash Table  entry     */
 161 /*-----------------------------------------------------------------*/
 162 void
 163 deleteSym (bucket ** stab, void *sym, char *sname)
 164 {
 165   int i = 0;
 166   bucket *bp;
 167
 168   i = hashKey (sname);
 169
 170   bp = stab[i];
 171   /* find the symbol */
 172   while (bp)
 173     {
 174       if (bp->sym == sym)       /* found it then break out */
 175         break;                  /* of the loop       */
 176       bp = bp->next;
 177     }
 178
 179   if (!bp)                      /* did not find it */
 180     return;
 181   /* if this is the first one in the chain */
 182   if (!bp->prev)
 183     {
 184       stab[i] = bp->next;
 185       if (stab[i])              /* if chain ! empty */
 186         stab[i]->prev = (void *) NULL;
 187     }
 188   /* middle || end of chain */
 189   else
 190     {
 191       if (bp->next)             /* if not end of chain */
 192         bp->next->prev = bp->prev;
 193
 194       bp->prev->next = bp->next;
 195     }
 196
 197 }
 198
 199 /*-----------------------------------------------------------------*/
 200 /* findSym - finds a symbol in a table           */
 201 /*-----------------------------------------------------------------*/
 202 void *
 203 findSym (bucket ** stab, void *sym, const char *sname)
 204 {
 205   bucket *bp;
 206
 207   bp = stab[hashKey (sname)];
 208   while (bp)
 209     {
 210       if (bp->sym == sym || strcmp (bp->name, sname) == 0)
 211         break;
 212       bp = bp->next;
 213     }
 214
 215   return (bp ? bp->sym : (void *) NULL);
 216 }
 217
 218 /*-----------------------------------------------------------------*/
 219 /* findSymWithLevel - finds a symbol with a name & level           */
 220 /*-----------------------------------------------------------------*/
 221 void *
 222 findSymWithLevel (bucket ** stab, symbol * sym)
 223 {
 224   bucket *bp;
 225
 226   bp = stab[hashKey (sym->name)];
 227
 228   /**
 229    **  do the search from the head of the list since the
 230    **  elements are added at the head it is ensured that
 231    ** we will find the deeper definitions before we find
 232    ** the global ones. we need to check for symbols with
 233    ** level <= to the level given, if levels match then block
 234    ** numbers need to match as well
 235    **/
 236   while (bp)
 237     {
 238       if (strcmp (bp->name, sym->name) == 0 && bp->level <= sym->level)
 239         {
 240           /* if this is parameter then nothing else need to be checked */
 241           if (((symbol *) (bp->sym))->_isparm)
 242             return (bp->sym);
 243           /* if levels match then block numbers should also match */
 244           if (bp->level && bp->level == sym->level && bp->block == sym->block)
 245             return (bp->sym);
 246           /* if levels don't match then we are okay */
 247           if (bp->level && bp->level != sym->level && bp->block <= sym->block)
 248             return (bp->sym);
 249           /* if this is a global variable then we are ok too */
 250           if (bp->level == 0)
 251             return (bp->sym);
 252         }
 253
 254       bp = bp->next;
 255     }
 256
 257   return (void *) NULL;
 258 }
 259
 260 /*-----------------------------------------------------------------*/
 261 /* findSymWithBlock - finds a symbol with name in with a block     */
 262 /*-----------------------------------------------------------------*/
 263 void *
 264 findSymWithBlock (bucket ** stab, symbol * sym, int block)
 265 {
 266   bucket *bp;
 267
 268   bp = stab[hashKey (sym->name)];
 269   while (bp)
 270     {
 271       if (strcmp (bp->name, sym->name) == 0 &&
 272           bp->block <= block)
 273         break;
 274       bp = bp->next;
 275     }
 276
 277   return (bp ? bp->sym : (void *) NULL);
 278 }
 279
 280 /*------------------------------------------------------------------*/
 281 /* newSymbol () - returns a new pointer to a symbol                 */
 282 /*------------------------------------------------------------------*/
 283 symbol *
 284 newSymbol (char *name, int scope)
 285 {
 286   symbol *sym;
 287
 288   sym = Safe_alloc ( sizeof (symbol));
 289
 290   strcpy (sym->name, name);     /* copy the name    */
 291   sym->level = scope;           /* set the level    */
 292   sym->block = currBlockno;
 293   sym->lineDef = yylineno;      /* set the line number */
 294   return sym;
 295 }
 296
 297 /*------------------------------------------------------------------*/
 298 /* newLink - creates a new link (declarator,specifier)              */
 299 /*------------------------------------------------------------------*/
 300 sym_link *
 301 newLink ()
 302 {
 303   sym_link *p;
 304
 305   p = Safe_alloc ( sizeof (sym_link));
 306
 307   return p;
 308 }
 309
 310 /*------------------------------------------------------------------*/
 311 /* newStruct - creats a new structdef from the free list            */
 312 /*------------------------------------------------------------------*/
 313 structdef *
 314 newStruct (char *tag)
 315 {
 316   structdef *s;
 317
 318   s = Safe_alloc ( sizeof (structdef));
 319
 320   strcpy (s->tag, tag);         /* copy the tag            */
 321   return s;
 322 }
 323
 324 /*------------------------------------------------------------------*/
 325 /* pointerTypes - do the computation for the pointer types          */
 326 /*------------------------------------------------------------------*/
 327 void
 328 pointerTypes (sym_link * ptr, sym_link * type)
 329 {
 330   if (IS_SPEC (ptr))
 331     return;
 332
 333   /* find the first pointer type */
 334   while (ptr && !IS_PTR (ptr))
 335     ptr = ptr->next;
 336
 337   /* could not find it */
 338   if (!ptr || IS_SPEC (ptr))
 339     return;
 340
 341   if (IS_PTR(ptr) && DCL_TYPE(ptr)!=UPOINTER) {
 342     pointerTypes (ptr->next, type);
 343     return;
 344   }
 345
 346   /* change the pointer type depending on the
 347      storage class of the type */
 348   if (IS_SPEC (type))
 349     {
 350       DCL_PTR_CONST (ptr) = SPEC_CONST (type);
 351       DCL_PTR_VOLATILE (ptr) = SPEC_VOLATILE (type);
 352       switch (SPEC_SCLS (type))
 353         {
 354         case S_XDATA:
 355           DCL_TYPE (ptr) = FPOINTER;
 356           break;
 357         case S_IDATA:
 358           DCL_TYPE (ptr) = IPOINTER;
 359           break;
 360         case S_PDATA:
 361           DCL_TYPE (ptr) = PPOINTER;
 362           break;
 363         case S_DATA:
 364           DCL_TYPE (ptr) = POINTER;
 365           break;
 366         case S_CODE:
 367           DCL_PTR_CONST (ptr) = port->mem.code_ro;
 368           DCL_TYPE (ptr) = CPOINTER;
 369           break;
 370         case S_EEPROM:
 371           DCL_TYPE (ptr) = EEPPOINTER;
 372           break;
 373         default:
 374           DCL_TYPE (ptr) = port->unqualified_pointer;
 375           break;
 376         }
 377       /* the storage class of type ends here */
 378       SPEC_SCLS (type) =
 379         SPEC_CONST (type) =
 380         SPEC_VOLATILE (type) = 0;
 381     }
 382
 383   /* now change all the remaining unknown pointers
 384      to generic pointers */
 385   while (ptr)
 386     {
 387       if (!IS_SPEC (ptr) && DCL_TYPE (ptr) == UPOINTER)
 388         DCL_TYPE (ptr) = port->unqualified_pointer;
 389       ptr = ptr->next;
 390     }
 391
 392   /* same for the type although it is highly unlikely that
 393      type will have a pointer */
 394   while (type)
 395     {
 396       if (!IS_SPEC (type) && DCL_TYPE (type) == UPOINTER)
 397         DCL_TYPE (type) = port->unqualified_pointer;
 398       type = type->next;
 399     }
 400
 401 }
 402
 403 /*------------------------------------------------------------------*/
 404 /* addDecl - adds a declarator @ the end of a chain                 */
 405 /*------------------------------------------------------------------*/
 406 void
 407 addDecl (symbol * sym, int type, sym_link * p)
 408 {
 409   sym_link *head;
 410   sym_link *tail;
 411   sym_link *t;
 412
 413   if (getenv("SDCC_DEBUG_FUNCTION_POINTERS"))
 414     fprintf (stderr, "SDCCsymt.c:addDecl(%s,%d,%p)\n", sym->name, type, p);
 415
 416   /* if we are passed a link then set head & tail */
 417   if (p)
 418     {
 419       tail = head = p;
 420       while (tail->next)
 421         tail = tail->next;
 422     }
 423   else
 424     {
 425       head = tail = newLink ();
 426       DCL_TYPE (head) = type;
 427     }
 428
 429   /* if this is the first entry   */
 430   if (!sym->type)
 431     {
 432       sym->type = head;
 433       sym->etype = tail;
 434     }
 435   else
 436     {
 437       if (IS_SPEC (sym->etype) && IS_SPEC (head) && head == tail)
 438         {
 439           sym->etype = mergeSpec (sym->etype, head, sym->name);
 440         }
 441       else
 442         {
 443           if (IS_SPEC (sym->etype) && !IS_SPEC (head) && head == tail)
 444             {
 445               t = sym->type;
 446               while (t->next != sym->etype)
 447                 t = t->next;
 448               t->next = head;
 449               tail->next = sym->etype;
 450             }
 451           else
 452             {
 453               sym->etype->next = head;
 454               sym->etype = tail;
 455             }
 456         }
 457     }
 458
 459   /* if the type is an unknown pointer and has
 460      a tspec then take the storage class const & volatile
 461      attribute from the tspec & make it those of this
 462      symbol */
 463   if (p &&
 464       !IS_SPEC (p) &&
 465       //DCL_TYPE (p) == UPOINTER &&
 466       DCL_TSPEC (p))
 467     {
 468       if (!IS_SPEC (sym->etype))
 469         {
 470           sym->etype = sym->etype->next = newLink ();
 471           sym->etype->class = SPECIFIER;
 472         }
 473       SPEC_SCLS (sym->etype) = SPEC_SCLS (DCL_TSPEC (p));
 474       SPEC_CONST (sym->etype) = SPEC_CONST (DCL_TSPEC (p));
 475       SPEC_VOLATILE (sym->etype) = SPEC_VOLATILE (DCL_TSPEC (p));
 476       DCL_TSPEC (p) = NULL;
 477     }
 478
 479   // if there is a function in this type chain
 480   if (p && funcInChain(sym->type)) {
 481     processFuncArgs (sym);
 482   }
 483
 484   return;
 485 }
 486
 487 /*------------------------------------------------------------------
 488   checkTypeSanity: prevent the user from doing e.g.:
 489   unsigned float uf;
 490   ------------------------------------------------------------------*/
 491 void checkTypeSanity(sym_link *etype, char *name) {
 492   char *noun;
 493
 494   if (!etype) {
 495     if (getenv("DEBUG_SANITY")) {
 496       fprintf (stderr, "sanity check skipped for %s (etype==0)\n", name);
 497     }
 498     return;
 499   }
 500
 501   if (!IS_SPEC(etype)) {
 502     if (getenv("DEBUG_SANITY")) {
 503       fprintf (stderr, "sanity check skipped for %s (!IS_SPEC)\n", name);
 504     }
 505     return;
 506   }
 507
 508   noun=nounName(etype);
 509
 510   if (getenv("DEBUG_SANITY")) {
 511     fprintf (stderr, "checking sanity for %s %x\n", name, (int)etype);
 512   }
 513
 514   if ((SPEC_NOUN(etype)==V_CHAR ||
 515        SPEC_NOUN(etype)==V_FLOAT ||
 516        SPEC_NOUN(etype)==V_DOUBLE ||
 517        SPEC_NOUN(etype)==V_VOID) &&
 518       (etype->select.s._short || SPEC_LONG(etype))) {
 519     // long or short for char float double or void
 520     werror (E_LONG_OR_SHORT_INVALID, noun, name);
 521   }
 522   if ((SPEC_NOUN(etype)==V_FLOAT ||
 523        SPEC_NOUN(etype)==V_DOUBLE ||
 524        SPEC_NOUN(etype)==V_VOID) &&
 525       (etype->select.s._signed || SPEC_USIGN(etype))) {
 526     // signed or unsigned for float double or void
 527     werror (E_SIGNED_OR_UNSIGNED_INVALID, noun, name);
 528   }
 529
 530   // special case for "short"
 531   if (etype->select.s._short) {
 532     SPEC_NOUN(etype) = options.shortis8bits ? V_CHAR : V_INT;
 533     etype->select.s._short = 0;
 534   }
 535
 536   /* if no noun e.g.
 537      "const a;" or "data b;" or "signed s" or "long l"
 538      assume an int */
 539   if (!SPEC_NOUN(etype)) {
 540     SPEC_NOUN(etype)=V_INT;
 541   }
 542
 543   if (etype->select.s._signed && SPEC_USIGN(etype)) {
 544     // signed AND unsigned
 545     werror (E_SIGNED_AND_UNSIGNED_INVALID, noun, name);
 546   }
 547   if (etype->select.s._short && SPEC_LONG(etype)) {
 548     // short AND long
 549     werror (E_LONG_AND_SHORT_INVALID, noun, name);
 550   }
 551
 552 }
 553
 554 /*------------------------------------------------------------------*/
 555 /* mergeSpec - merges two specifiers and returns the new one        */
 556 /*------------------------------------------------------------------*/
 557 sym_link *
 558 mergeSpec (sym_link * dest, sym_link * src, char *name)
 559 {
 560   sym_link *symlink=dest;
 561
 562   if (!IS_SPEC(dest) || !IS_SPEC(src)) {
 563 #if 0
 564     werror (E_INTERNAL_ERROR, __FILE__, __LINE__, "cannot merge declarator");
 565     exit (1);
 566 #else
 567     werror (E_SYNTAX_ERROR, yytext);
 568     // the show must go on
 569     return newIntLink();
 570 #endif
 571   }
 572
 573   if (SPEC_NOUN(src)) {
 574     if (!SPEC_NOUN(dest)) {
 575       SPEC_NOUN(dest)=SPEC_NOUN(src);
 576     } else {
 577       /* we shouldn't redeclare the type */
 578       if (getenv("DEBUG_SANITY")) {
 579         fprintf (stderr, "mergeSpec: ");
 580       }
 581       werror(E_TWO_OR_MORE_DATA_TYPES, name);
 582     }
 583   }
 584
 585   if (SPEC_SCLS(src)) {
 586     /* if destination has no storage class */
 587     if (!SPEC_SCLS (dest) || SPEC_SCLS(dest)==S_REGISTER) {
 588       SPEC_SCLS (dest) = SPEC_SCLS (src);
 589     } else {
 590       if (getenv("DEBUG_SANITY")) {
 591         fprintf (stderr, "mergeSpec: ");
 592       }
 593       werror(E_TWO_OR_MORE_STORAGE_CLASSES, name);
 594     }
 595   }
 596
 597   /* copy all the specifications  */
 598
 599   // we really should do:
 600 #if 0
 601   if (SPEC_what(src)) {
 602     if (SPEC_what(dest)) {
 603       werror(W_DUPLICATE_SPEC, "what");
 604     }
 605     SPEC_what(dst)|=SPEC_what(src);
 606   }
 607 #endif
 608   // but there are more important thing right now
 609
 610   SPEC_LONG (dest) |= SPEC_LONG (src);
 611   dest->select.s._short|=src->select.s._short;
 612   SPEC_USIGN (dest) |= SPEC_USIGN (src);
 613   dest->select.s._signed|=src->select.s._signed;
 614   SPEC_STAT (dest) |= SPEC_STAT (src);
 615   SPEC_EXTR (dest) |= SPEC_EXTR (src);
 616   SPEC_CONST(dest) |= SPEC_CONST (src);
 617   SPEC_ABSA (dest) |= SPEC_ABSA (src);
 618   SPEC_VOLATILE (dest) |= SPEC_VOLATILE (src);
 619   SPEC_ADDR (dest) |= SPEC_ADDR (src);
 620   SPEC_OCLS (dest) = SPEC_OCLS (src);
 621   SPEC_BLEN (dest) |= SPEC_BLEN (src);
 622   SPEC_BSTR (dest) |= SPEC_BSTR (src);
 623   SPEC_TYPEDEF (dest) |= SPEC_TYPEDEF (src);
 624   SPEC_ENUM (dest) |= SPEC_ENUM (src);
 625
 626   if (IS_STRUCT (dest) && SPEC_STRUCT (dest) == NULL)
 627     SPEC_STRUCT (dest) = SPEC_STRUCT (src);
 628
 629   /* these are the only function attributes that will be set
 630      in a specifier while parsing */
 631   FUNC_NONBANKED(dest) |= FUNC_NONBANKED(src);
 632   FUNC_BANKED(dest) |= FUNC_BANKED(src);
 633   FUNC_ISCRITICAL(dest) |= FUNC_ISCRITICAL(src);
 634   FUNC_ISREENT(dest) |= FUNC_ISREENT(src);
 635   FUNC_ISNAKED(dest) |= FUNC_ISNAKED(src);
 636   FUNC_ISISR(dest) |= FUNC_ISISR(src);
 637   FUNC_ISJAVANATIVE(dest) |= FUNC_ISJAVANATIVE(src);
 638   FUNC_ISBUILTIN(dest) |= FUNC_ISBUILTIN(src);
 639   FUNC_ISOVERLAY(dest) |= FUNC_ISOVERLAY(src);
 640   FUNC_INTNO(dest) |= FUNC_INTNO(src);
 641   FUNC_REGBANK(dest) |= FUNC_REGBANK(src);
 642
 643   return symlink;
 644 }
 645
 646 /*------------------------------------------------------------------*/
 647 /* cloneSpec - copies the entire spec and returns a new spec        */
 648 /*------------------------------------------------------------------*/
 649 sym_link *
 650 cloneSpec (sym_link * src)
 651 {
 652   sym_link *spec;
 653
 654   /* go thru chain till we find the specifier */
 655   while (src && src->class != SPECIFIER)
 656     src = src->next;
 657
 658   spec = newLink ();
 659   memcpy (spec, src, sizeof (sym_link));
 660   return spec;
 661 }
 662
 663 /*------------------------------------------------------------------*/
 664 /* genSymName - generates and returns a name used for anonymous vars */
 665 /*------------------------------------------------------------------*/
 666 char *
 667 genSymName (int level)
 668 {
 669   static int gCount = 0;
 670   static char gname[SDCC_NAME_MAX + 1];
 671
 672   sprintf (gname, "__%04d%04d", level, gCount++);
 673   return gname;
 674 }
 675
 676 /*------------------------------------------------------------------*/
 677 /* getSpec - returns the specifier part from a declaration chain    */
 678 /*------------------------------------------------------------------*/
 679 sym_link *
 680 getSpec (sym_link * p)
 681 {
 682   sym_link *loop;
 683
 684   loop = p;
 685   while (p && !(IS_SPEC (p)))
 686     p = p->next;
 687
 688   return p;
 689 }
 690
 691 /*------------------------------------------------------------------*/
 692 /* newCharLink() - creates an char type                             */
 693 /*------------------------------------------------------------------*/
 694 sym_link *
 695 newCharLink ()
 696 {
 697   sym_link *p;
 698
 699   p = newLink ();
 700   p->class = SPECIFIER;
 701   SPEC_NOUN (p) = V_CHAR;
 702
 703   return p;
 704 }
 705
 706 /*------------------------------------------------------------------*/
 707 /* newFloatLink - a new Float type                                  */
 708 /*------------------------------------------------------------------*/
 709 sym_link *
 710 newFloatLink ()
 711 {
 712   sym_link *p;
 713
 714   p = newLink ();
 715   p->class = SPECIFIER;
 716   SPEC_NOUN (p) = V_FLOAT;
 717
 718   return p;
 719 }
 720
 721 /*------------------------------------------------------------------*/
 722 /* newLongLink() - new long type                                    */
 723 /*------------------------------------------------------------------*/
 724 sym_link *
 725 newLongLink ()
 726 {
 727   sym_link *p;
 728
 729   p = newLink ();
 730   p->class = SPECIFIER;
 731   SPEC_NOUN (p) = V_INT;
 732   SPEC_LONG (p) = 1;
 733
 734   return p;
 735 }
 736
 737 /*------------------------------------------------------------------*/
 738 /* newIntLink() - creates an int type                               */
 739 /*------------------------------------------------------------------*/
 740 sym_link *
 741 newIntLink ()
 742 {
 743   sym_link *p;
 744
 745   p = newLink ();
 746   p->class = SPECIFIER;
 747   SPEC_NOUN (p) = V_INT;
 748
 749   return p;
 750 }
 751
 752 /*------------------------------------------------------------------*/
 753 /* getSize - returns size of a type chain in bits                   */
 754 /*------------------------------------------------------------------*/
 755 unsigned int
 756 getSize (sym_link * p)
 757 {
 758   /* if nothing return 0 */
 759   if (!p)
 760     return 0;
 761   if (IS_SPEC (p))
 762     {                           /* if this is the specifier then */
 763       switch (SPEC_NOUN (p))
 764         {                       /* depending on the specifier type */
 765         case V_INT:
 766           return (IS_LONG (p) ? LONGSIZE : INTSIZE);
 767         case V_FLOAT:
 768           return FLOATSIZE;
 769         case V_CHAR:
 770           return CHARSIZE;
 771         case V_VOID:
 772           return 0;
 773         case V_STRUCT:
 774           return SPEC_STRUCT (p)->size;
 775         case V_LABEL:
 776           return 0;
 777         case V_SBIT:
 778           return BITSIZE;
 779         case V_BIT:
 780           return ((SPEC_BLEN (p) / 8) + (SPEC_BLEN (p) % 8 ? 1 : 0));
 781         default:
 782           return 0;
 783         }
 784     }
 785
 786   /* this is a specifier  */
 787   switch (DCL_TYPE (p))
 788     {
 789     case ARRAY:
 790       if (DCL_ELEM(p)) {
 791         return DCL_ELEM (p) * getSize (p->next);
 792       } else {
 793           //    werror (E_INTERNAL_ERROR, __FILE__, __LINE__,
 794           //    "can not tell the size of an array[]");
 795         return 0;
 796       }
 797     case IPOINTER:
 798     case PPOINTER:
 799     case POINTER:
 800       return (PTRSIZE);
 801     case EEPPOINTER:
 802     case FPOINTER:
 803     case CPOINTER:
 804     case FUNCTION:
 805       return (FPTRSIZE);
 806     case GPOINTER:
 807       return (GPTRSIZE);
 808
 809     default:
 810       return 0;
 811     }
 812 }
 813
 814 /*------------------------------------------------------------------*/
 815 /* bitsForType - returns # of bits required to store this type      */
 816 /*------------------------------------------------------------------*/
 817 unsigned int
 818 bitsForType (sym_link * p)
 819 {
 820   /* if nothing return 0 */
 821   if (!p)
 822     return 0;
 823
 824   if (IS_SPEC (p))
 825     {                           /* if this is the specifier then */
 826
 827       switch (SPEC_NOUN (p))
 828         {                       /* depending on the specifier type */
 829         case V_INT:
 830           return (IS_LONG (p) ? LONGSIZE * 8 : INTSIZE * 8);
 831         case V_FLOAT:
 832           return FLOATSIZE * 8;
 833         case V_CHAR:
 834           return CHARSIZE * 8;
 835         case V_VOID:
 836           return 0;
 837         case V_STRUCT:
 838           return SPEC_STRUCT (p)->size * 8;
 839         case V_LABEL:
 840           return 0;
 841         case V_SBIT:
 842           return 1;
 843         case V_BIT:
 844           return SPEC_BLEN (p);
 845         default:
 846           return 0;
 847         }
 848     }
 849
 850   /* this is a specifier  */
 851   switch (DCL_TYPE (p))
 852     {
 853     case ARRAY:
 854       return DCL_ELEM (p) * getSize (p->next) * 8;
 855     case IPOINTER:
 856     case PPOINTER:
 857     case POINTER:
 858       return (PTRSIZE * 8);
 859     case EEPPOINTER:
 860     case FPOINTER:
 861     case CPOINTER:
 862     case FUNCTION:
 863       return (FPTRSIZE * 8);
 864     case GPOINTER:
 865       return (GPTRSIZE * 8);
 866
 867     default:
 868       return 0;
 869     }
 870 }
 871
 872 /*------------------------------------------------------------------*/
 873 /* copySymbolChain - copies a symbol chain                          */
 874 /*------------------------------------------------------------------*/
 875 symbol *
 876 copySymbolChain (symbol * src)
 877 {
 878   symbol *dest;
 879
 880   if (!src)
 881     return NULL;
 882
 883   dest = copySymbol (src);
 884   dest->next = copySymbolChain (src->next);
 885   return dest;
 886 }
 887
 888 /*------------------------------------------------------------------*/
 889 /* copySymbol - makes a copy of a symbol                            */
 890 /*------------------------------------------------------------------*/
 891 symbol *
 892 copySymbol (symbol * src)
 893 {
 894   symbol *dest;
 895
 896   if (!src)
 897     return NULL;
 898
 899   dest = newSymbol (src->name, src->level);
 900   memcpy (dest, src, sizeof (symbol));
 901   dest->level = src->level;
 902   dest->block = src->block;
 903   dest->ival = copyIlist (src->ival);
 904   dest->type = copyLinkChain (src->type);
 905   dest->etype = getSpec (dest->type);
 906   dest->next = NULL;
 907   dest->key = src->key;
 908   dest->allocreq = src->allocreq;
 909   return dest;
 910 }
 911
 912 /*------------------------------------------------------------------*/
 913 /* reverseSyms - reverses the links for a symbol chain      */
 914 /*------------------------------------------------------------------*/
 915 symbol *
 916 reverseSyms (symbol * sym)
 917 {
 918   symbol *prev, *curr, *next;
 919
 920   if (!sym)
 921     return NULL;
 922
 923   prev = sym;
 924   curr = sym->next;
 925
 926   while (curr)
 927     {
 928       next = curr->next;
 929       curr->next = prev;
 930       prev = curr;
 931       curr = next;
 932     }
 933   sym->next = (void *) NULL;
 934   return prev;
 935 }
 936
 937 /*------------------------------------------------------------------*/
 938 /* reverseLink - reverses the links for a type chain        */
 939 /*------------------------------------------------------------------*/
 940 sym_link *
 941 reverseLink (sym_link * type)
 942 {
 943   sym_link *prev, *curr, *next;
 944
 945   if (!type)
 946     return NULL;
 947
 948   prev = type;
 949   curr = type->next;
 950
 951   while (curr)
 952     {
 953       next = curr->next;
 954       curr->next = prev;
 955       prev = curr;
 956       curr = next;
 957     }
 958   type->next = (void *) NULL;
 959   return prev;
 960 }
 961
 962 /*------------------------------------------------------------------*/
 963 /* addSymChain - adds a symbol chain to the symboltable             */
 964 /*------------------------------------------------------------------*/
 965 void
 966 addSymChain (symbol * symHead)
 967 {
 968   symbol *sym = symHead;
 969   symbol *csym = NULL;
 970
 971   for (; sym != NULL; sym = sym->next)
 972     {
 973       changePointer(sym);
 974       checkTypeSanity(sym->etype, sym->name);
 975
 976       /* if already exists in the symbol table then check if
 977          one of them is an extern definition if yes then
 978          then check if the type match, if the types match then
 979          delete the current entry and add the new entry      */
 980       if ((csym = findSymWithLevel (SymbolTab, sym)) &&
 981           csym->level == sym->level) {
 982
 983         /* one definition extern ? */
 984         if (IS_EXTERN (csym->etype) || IS_EXTERN (sym->etype)) {
 985           /* do types match ? */
 986           if (compareType (csym->type, sym->type) != 1) {
 987             /* no then error */
 988             werror (E_EXTERN_MISMATCH, csym->name);
 989             continue;
 990           }
 991           /* delete current entry */
 992           deleteSym (SymbolTab, csym, csym->name);
 993           deleteFromSeg(csym);
 994         } else {
 995           /* not extern */
 996           werror (E_DUPLICATE, sym->name);
 997           continue;
 998         }
 999       }
1000
1001       /* add new entry */
1002       addSym (SymbolTab, sym, sym->name, sym->level, sym->block, 1);
1003     }
1004 }
1005
1006
1007 /*------------------------------------------------------------------*/
1008 /* funcInChain - DCL Type 'FUNCTION' found in type chain            */
1009 /*------------------------------------------------------------------*/
1010 int
1011 funcInChain (sym_link * lnk)
1012 {
1013   while (lnk)
1014     {
1015       if (IS_FUNC (lnk))
1016         return 1;
1017       lnk = lnk->next;
1018     }
1019   return 0;
1020 }
1021
1022 /*------------------------------------------------------------------*/
1023 /* structElemType - returns the type info of a sturct member        */
1024 /*------------------------------------------------------------------*/
1025 sym_link *
1026 structElemType (sym_link * stype, value * id)
1027 {
1028   symbol *fields = (SPEC_STRUCT (stype) ? SPEC_STRUCT (stype)->fields : NULL);
1029   sym_link *type, *etype;
1030   sym_link *petype = getSpec (stype);
1031
1032   if (!fields || !id)
1033     return NULL;
1034
1035   /* look for the id */
1036   while (fields)
1037     {
1038       if (strcmp (fields->rname, id->name) == 0)
1039         {
1040           type = copyLinkChain (fields->type);
1041           etype = getSpec (type);
1042           SPEC_SCLS (etype) = (SPEC_SCLS (petype) == S_REGISTER ?
1043                                SPEC_SCLS (etype) : SPEC_SCLS (petype));
1044           return type;
1045         }
1046       fields = fields->next;
1047     }
1048   werror (E_NOT_MEMBER, id->name);
1049
1050   return NULL;
1051 }
1052
1053 /*------------------------------------------------------------------*/
1054 /* getStructElement - returns element of a tructure definition      */
1055 /*------------------------------------------------------------------*/
1056 symbol *
1057 getStructElement (structdef * sdef, symbol * sym)
1058 {
1059   symbol *field;
1060
1061   for (field = sdef->fields; field; field = field->next)
1062     if (strcmp (field->name, sym->name) == 0)
1063       return field;
1064
1065   werror (E_NOT_MEMBER, sym->name);
1066
1067   return sdef->fields;
1068 }
1069
1070 /*------------------------------------------------------------------*/
1071 /* compStructSize - computes the size of a structure                */
1072 /*------------------------------------------------------------------*/
1073 int
1074 compStructSize (int su, structdef * sdef)
1075 {
1076     int sum = 0, usum = 0;
1077     int bitOffset = 0;
1078     symbol *loop;
1079
1080     /* for the identifiers  */
1081     loop = sdef->fields;
1082     while (loop) {
1083
1084         /* create the internal name for this variable */
1085         sprintf (loop->rname, "_%s", loop->name);
1086         loop->offset = (su == UNION ? sum = 0 : sum);
1087         SPEC_VOLATILE (loop->etype) |= (su == UNION ? 1 : 0);
1088
1089         /* if this is a bit field  */
1090         if (loop->bitVar) {
1091
1092             /* change it to a unsigned bit */
1093             SPEC_NOUN (loop->etype) = V_BIT;
1094             SPEC_USIGN (loop->etype) = 1;
1095             /* check if this fit into the remaining   */
1096             /* bits of this byte else align it to the */
1097             /* next byte boundary                     */
1098             if ((SPEC_BLEN (loop->etype) = loop->bitVar) <= (8 - bitOffset)) {
1099                 SPEC_BSTR (loop->etype) = bitOffset;
1100                 if ((bitOffset += (loop->bitVar % 8)) == 8)
1101                     sum++;
1102             }
1103             else /* does not fit */ {
1104                 bitOffset = 0;
1105                 SPEC_BSTR (loop->etype) = bitOffset;
1106                 sum += (loop->bitVar / 8);
1107                 bitOffset += (loop->bitVar % 8);
1108             }
1109             /* if this is the last field then pad */
1110             if (!loop->next && bitOffset && bitOffset != 8) {
1111                 bitOffset = 0;
1112                 sum++;
1113             }
1114         }
1115         else {
1116             checkDecl (loop, 1);
1117             sum += getSize (loop->type);
1118         }
1119
1120         loop = loop->next;
1121
1122         /* if this is not a bitfield but the */
1123         /* previous one was and did not take */
1124         /* the whole byte then pad the rest  */
1125         if ((loop && !loop->bitVar) && bitOffset) {
1126             bitOffset = 0;
1127             sum++;
1128         }
1129
1130         /* if union then size = sizeof larget field */
1131         if (su == UNION)
1132             usum = max (usum, sum);
1133
1134     }
1135
1136     return (su == UNION ? usum : sum);
1137 }
1138
1139 /*------------------------------------------------------------------*/
1140 /* checkSClass - check the storage class specification              */
1141 /*------------------------------------------------------------------*/
1142 static void
1143 checkSClass (symbol * sym, int isProto)
1144 {
1145   if (getenv("DEBUG_SANITY")) {
1146     fprintf (stderr, "checkSClass: %s \n", sym->name);
1147   }
1148
1149   /* type is literal can happen foe enums change
1150      to auto */
1151   if (SPEC_SCLS (sym->etype) == S_LITERAL && !SPEC_ENUM (sym->etype))
1152     SPEC_SCLS (sym->etype) = S_AUTO;
1153
1154   /* if sfr or sbit then must also be */
1155   /* volatile the initial value will be xlated */
1156   /* to an absolute address */
1157   if (SPEC_SCLS (sym->etype) == S_SBIT ||
1158       SPEC_SCLS (sym->etype) == S_SFR)
1159     {
1160       SPEC_VOLATILE (sym->etype) = 1;
1161       /* if initial value given */
1162       if (sym->ival)
1163         {
1164           SPEC_ABSA (sym->etype) = 1;
1165           SPEC_ADDR (sym->etype) =
1166             (int) list2int (sym->ival);
1167           sym->ival = NULL;
1168         }
1169     }
1170
1171   /* if absolute address given then it mark it as
1172      volatile */
1173   if (IS_ABSOLUTE (sym->etype))
1174     SPEC_VOLATILE (sym->etype) = 1;
1175
1176   /* global variables declared const put into code */
1177   /* if no other storage class specified */
1178   if (sym->level == 0 &&
1179       SPEC_CONST (sym->etype) &&
1180       SPEC_SCLS(sym->etype) == S_FIXED) {
1181     SPEC_SCLS (sym->etype) = S_CODE;
1182   }
1183
1184   /* global variable in code space is a constant */
1185   if (sym->level == 0 &&
1186       SPEC_SCLS (sym->etype) == S_CODE &&
1187       port->mem.code_ro)
1188     SPEC_CONST (sym->etype) = 1;
1189
1190
1191   /* if bit variable then no storage class can be */
1192   /* specified since bit is already a storage */
1193   if (IS_BITVAR (sym->etype) &&
1194       (SPEC_SCLS (sym->etype) != S_FIXED &&
1195        SPEC_SCLS (sym->etype) != S_SBIT &&
1196        SPEC_SCLS (sym->etype) != S_BIT)
1197     )
1198     {
1199       werror (E_BITVAR_STORAGE, sym->name);
1200       SPEC_SCLS (sym->etype) = S_FIXED;
1201     }
1202
1203   /* extern variables cannot be initialized */
1204   if (IS_EXTERN (sym->etype) && sym->ival)
1205     {
1206       werror (E_EXTERN_INIT, sym->name);
1207       sym->ival = NULL;
1208     }
1209
1210   /* if this is an atomatic symbol */
1211   if (sym->level && (options.stackAuto || reentrant)) {
1212     if ((SPEC_SCLS (sym->etype) == S_AUTO ||
1213          SPEC_SCLS (sym->etype) == S_FIXED ||
1214          SPEC_SCLS (sym->etype) == S_REGISTER ||
1215          SPEC_SCLS (sym->etype) == S_STACK ||
1216          SPEC_SCLS (sym->etype) == S_XSTACK)) {
1217       SPEC_SCLS (sym->etype) = S_AUTO;
1218     } else {
1219       /* storage class may only be specified for statics */
1220       if (!IS_STATIC(sym->etype)) {
1221         werror (E_AUTO_ASSUMED, sym->name);
1222       }
1223     }
1224   }
1225
1226   /* automatic symbols cannot be given   */
1227   /* an absolute address ignore it      */
1228   if (sym->level &&
1229       SPEC_ABSA (sym->etype) &&
1230       (options.stackAuto || reentrant))
1231     {
1232       werror (E_AUTO_ABSA, sym->name);
1233       SPEC_ABSA (sym->etype) = 0;
1234     }
1235
1236   /* arrays & pointers cannot be defined for bits   */
1237   /* SBITS or SFRs or BIT                           */
1238   if ((IS_ARRAY (sym->type) || IS_PTR (sym->type)) &&
1239       (SPEC_NOUN (sym->etype) == V_BIT ||
1240        SPEC_NOUN (sym->etype) == V_SBIT ||
1241        SPEC_SCLS (sym->etype) == S_SFR))
1242     werror (E_BIT_ARRAY, sym->name);
1243
1244   /* if this is a bit|sbit then set length & start  */
1245   if (SPEC_NOUN (sym->etype) == V_BIT ||
1246       SPEC_NOUN (sym->etype) == V_SBIT)
1247     {
1248       SPEC_BLEN (sym->etype) = 1;
1249       SPEC_BSTR (sym->etype) = 0;
1250     }
1251
1252   if (!isProto) {
1253     /* variables declared in CODE space must have */
1254     /* initializers if not an extern */
1255     if (SPEC_SCLS (sym->etype) == S_CODE &&
1256         sym->ival == NULL &&
1257         //!sym->level &&
1258         port->mem.code_ro &&
1259         !IS_EXTERN (sym->etype) &&
1260         !funcInChain (sym->type))
1261       werror (E_CODE_NO_INIT, sym->name);
1262   }
1263
1264   /* if parameter or local variable then change */
1265   /* the storage class to reflect where the var will go */
1266   if (sym->level && SPEC_SCLS (sym->etype) == S_FIXED &&
1267       !IS_STATIC(sym->etype))
1268     {
1269       if (options.stackAuto || (currFunc && IFFUNC_ISREENT (currFunc->type)))
1270         {
1271           SPEC_SCLS (sym->etype) = (options.useXstack ?
1272                                     S_XSTACK : S_STACK);
1273         }
1274       else
1275         {
1276           /* hack-o-matic! I see no reason why the useXstack option should ever
1277            * control this allcoation, but the code was originally that way, and
1278            * changing it for non-390 ports breaks the compiler badly.
1279            */
1280           bool useXdata = TARGET_IS_DS390 ? 1 : options.useXstack;
1281           SPEC_SCLS (sym->etype) = (useXdata ?
1282                                     S_XDATA : S_FIXED);
1283         }
1284     }
1285 }
1286
1287 /*------------------------------------------------------------------*/
1288 /* changePointer - change pointer to functions                      */
1289 /*------------------------------------------------------------------*/
1290 void
1291 changePointer (symbol * sym)
1292 {
1293   sym_link *p;
1294
1295   /* go thru the chain of declarations   */
1296   /* if we find a pointer to a function  */
1297   /* unconditionally change it to a ptr  */
1298   /* to code area                        */
1299   for (p = sym->type; p; p = p->next)
1300     {
1301       if (!IS_SPEC (p) && DCL_TYPE (p) == UPOINTER)
1302         DCL_TYPE (p) = port->unqualified_pointer;
1303       if (IS_PTR (p) && IS_FUNC (p->next))
1304         DCL_TYPE (p) = CPOINTER;
1305     }
1306 }
1307
1308 /*------------------------------------------------------------------*/
1309 /* checkDecl - does semantic validation of a declaration                   */
1310 /*------------------------------------------------------------------*/
1311 int
1312 checkDecl (symbol * sym, int isProto)
1313 {
1314
1315   checkSClass (sym, isProto);           /* check the storage class      */
1316   changePointer (sym);          /* change pointers if required */
1317
1318   /* if this is an array without any dimension
1319      then update the dimension from the initial value */
1320   if (IS_ARRAY (sym->type) && !DCL_ELEM (sym->type))
1321     DCL_ELEM (sym->type) = getNelements (sym->type, sym->ival);
1322
1323   return 0;
1324 }
1325
1326 /*------------------------------------------------------------------*/
1327 /* copyLinkChain - makes a copy of the link chain & rets ptr 2 head */
1328 /*------------------------------------------------------------------*/
1329 sym_link *
1330 copyLinkChain (sym_link * p)
1331 {
1332   sym_link *head, *curr, *loop;
1333
1334   curr = p;
1335   head = loop = (curr ? newLink () : (void *) NULL);
1336   while (curr)
1337     {
1338       memcpy (loop, curr, sizeof (sym_link));   /* copy it */
1339       loop->next = (curr->next ? newLink () : (void *) NULL);
1340       loop = loop->next;
1341       curr = curr->next;
1342     }
1343
1344   return head;
1345 }
1346
1347
1348 /*------------------------------------------------------------------*/
1349 /* cleanUpBlock - cleansup the symbol table specified for all the   */
1350 /*                symbols in the given block                        */
1351 /*------------------------------------------------------------------*/
1352 void
1353 cleanUpBlock (bucket ** table, int block)
1354 {
1355   int i;
1356   bucket *chain;
1357
1358   /* go thru the entire  table  */
1359   for (i = 0; i < 256; i++)
1360     {
1361       for (chain = table[i]; chain; chain = chain->next)
1362         {
1363           if (chain->block >= block)
1364             {
1365               deleteSym (table, chain->sym, chain->name);
1366             }
1367         }
1368     }
1369 }
1370
1371 /*------------------------------------------------------------------*/
1372 /* cleanUpLevel - cleansup the symbol table specified for all the   */
1373 /*                symbols in the given level                        */
1374 /*------------------------------------------------------------------*/
1375 void
1376 cleanUpLevel (bucket ** table, int level)
1377 {
1378   int i;
1379   bucket *chain;
1380
1381   /* go thru the entire  table  */
1382   for (i = 0; i < 256; i++)
1383     {
1384       for (chain = table[i]; chain; chain = chain->next)
1385         {
1386           if (chain->level >= level)
1387             {
1388               deleteSym (table, chain->sym, chain->name);
1389             }
1390         }
1391     }
1392 }
1393
1394 /*------------------------------------------------------------------*/
1395 /* computeType - computes the resultant type from two types         */
1396 /*------------------------------------------------------------------*/
1397 sym_link *
1398 computeType (sym_link * type1, sym_link * type2)
1399 {
1400   sym_link *rType;
1401   sym_link *reType;
1402   sym_link *etype1 = getSpec (type1);
1403   sym_link *etype2 = getSpec (type2);
1404
1405   /* if one of them is a float then result is a float */
1406   /* here we assume that the types passed are okay */
1407   /* and can be cast to one another                */
1408   /* which ever is greater in size */
1409   if (IS_FLOAT (etype1) || IS_FLOAT (etype2))
1410     rType = newFloatLink ();
1411   else
1412     /* if only one of them is a bit variable
1413        then the other one prevails */
1414   if (IS_BITVAR (etype1) && !IS_BITVAR (etype2))
1415     rType = copyLinkChain (type2);
1416   else if (IS_BITVAR (etype2) && !IS_BITVAR (etype1))
1417     rType = copyLinkChain (type1);
1418   else
1419     /* if one of them is a pointer or array then that
1420        prevails */
1421   if (IS_PTR (type1) || IS_ARRAY (type1))
1422     rType = copyLinkChain (type1);
1423   else if (IS_PTR (type2) || IS_ARRAY (type2))
1424     rType = copyLinkChain (type2);
1425   else if (getSize (type1) > getSize (type2))
1426     rType = copyLinkChain (type1);
1427   else
1428     rType = copyLinkChain (type2);
1429
1430   reType = getSpec (rType);
1431
1432   /* if either of them unsigned but not val then make this unsigned */
1433   if (((!IS_LITERAL(type1) && SPEC_USIGN (etype1)) ||
1434        (!IS_LITERAL(type2) && SPEC_USIGN (etype2))) &&
1435       !IS_FLOAT (reType))
1436     SPEC_USIGN (reType) = 1;
1437   else
1438     SPEC_USIGN (reType) = 0;
1439
1440   /* if result is a literal then make not so */
1441   if (IS_LITERAL (reType))
1442     SPEC_SCLS (reType) = S_REGISTER;
1443
1444   return rType;
1445 }
1446
1447 /*--------------------------------------------------------------------*/
1448 /* compareType - will do type check return 1 if match, -1 if castable */
1449 /*--------------------------------------------------------------------*/
1450 int
1451 compareType (sym_link * dest, sym_link * src)
1452 {
1453   if (!dest && !src)
1454     return 1;
1455
1456   if (dest && !src)
1457     return 0;
1458
1459   if (src && !dest)
1460     return 0;
1461
1462   /* if dest is a declarator then */
1463   if (IS_DECL (dest))
1464     {
1465       if (IS_DECL (src))
1466         {
1467           if (DCL_TYPE (src) == DCL_TYPE (dest)) {
1468             if (IS_FUNC(src)) {
1469               //checkFunction(src,dest);
1470             }
1471             return compareType (dest->next, src->next);
1472           }
1473           if (IS_PTR (src) && IS_GENPTR (dest))
1474             return -1;
1475           if (IS_PTR (dest) && IS_ARRAY (src)) {
1476             value *val=aggregateToPointer (valFromType(src));
1477             int res=compareType (dest, val->type);
1478             Safe_free(val->type);
1479             Safe_free(val);
1480             //return res ? -1 : 0;
1481             return res;
1482           }
1483           if (IS_PTR (dest) && IS_FUNC (dest->next) && IS_FUNC (src))
1484             return compareType (dest->next, src);
1485           return 0;
1486         }
1487       else if (IS_PTR (dest) && IS_INTEGRAL (src))
1488         return -1;
1489       else
1490         return 0;
1491     }
1492
1493   /* if one is a specifier and the other is not */
1494   if ((IS_SPEC (src) && !IS_SPEC (dest)) ||
1495       (IS_SPEC (dest) && !IS_SPEC (src)))
1496     return 0;
1497
1498   /* if one of them is a void then ok */
1499   if (SPEC_NOUN (dest) == V_VOID &&
1500       SPEC_NOUN (src) != V_VOID)
1501     return -1;
1502
1503   if (SPEC_NOUN (dest) != V_VOID &&
1504       SPEC_NOUN (src) == V_VOID)
1505     return -1;
1506
1507   /* if they are both bitfields then if the lengths
1508      and starts don't match */
1509   if (IS_BITFIELD (dest) && IS_BITFIELD (src) &&
1510       (SPEC_BLEN (dest) != SPEC_BLEN (src) ||
1511        SPEC_BSTR (dest) != SPEC_BSTR (src)))
1512     return -1;
1513
1514   /* it is a specifier */
1515   if (SPEC_NOUN (dest) != SPEC_NOUN (src))
1516     {
1517       if (SPEC_USIGN (dest) == SPEC_USIGN (src) &&
1518           IS_INTEGRAL (dest) && IS_INTEGRAL (src) &&
1519           getSize (dest) == getSize (src))
1520         return 1;
1521       else if (IS_ARITHMETIC (dest) && IS_ARITHMETIC (src))
1522         return -1;
1523       else
1524         return 0;
1525     }
1526   else if (IS_STRUCT (dest))
1527     {
1528       if (SPEC_STRUCT (dest) != SPEC_STRUCT (src))
1529         return 0;
1530       else
1531         return 1;
1532     }
1533   if (SPEC_LONG (dest) != SPEC_LONG (src))
1534     return -1;
1535
1536   if (SPEC_USIGN (dest) != SPEC_USIGN (src))
1537     return -1;
1538
1539   return 1;
1540 }
1541
1542 /*------------------------------------------------------------------*/
1543 /* inCalleeSaveList - return 1 if found in callee save list          */
1544 /*------------------------------------------------------------------*/
1545 bool
1546 inCalleeSaveList (char *s)
1547 {
1548   int i;
1549
1550   if (options.all_callee_saves) return 1;
1551   for (i = 0; options.calleeSaves[i]; i++)
1552     if (strcmp (options.calleeSaves[i], s) == 0)
1553       return 1;
1554
1555   return 0;
1556 }
1557
1558 /*-----------------------------------------------------------------*/
1559 /* aggregateToPointer:  change an agggregate type function      */
1560 /*         argument to a pointer to that type.     */
1561 /*-----------------------------------------------------------------*/
1562 value *
1563 aggregateToPointer (value * val)
1564 {
1565   if (IS_AGGREGATE (val->type))
1566     {
1567       /* if this is a structure */
1568       /* then we need to add a new link */
1569       if (IS_STRUCT (val->type))
1570         {
1571           /* first lets add DECLARATOR type */
1572           sym_link *p = val->type;
1573
1574           werror (W_STRUCT_AS_ARG, val->name);
1575           val->type = newLink ();
1576           val->type->next = p;
1577         }
1578
1579       /* change to a pointer depending on the */
1580       /* storage class specified        */
1581       switch (SPEC_SCLS (val->etype))
1582         {
1583         case S_IDATA:
1584           DCL_TYPE (val->type) = IPOINTER;
1585           break;
1586         case S_PDATA:
1587           DCL_TYPE (val->type) = PPOINTER;
1588           break;
1589         case S_FIXED:
1590           if (SPEC_OCLS(val->etype)) {
1591             DCL_TYPE(val->type)=PTR_TYPE(SPEC_OCLS(val->etype));
1592           } else {
1593 #if 1
1594             // this happens for (external) function parameters
1595             DCL_TYPE (val->type) = port->unqualified_pointer;
1596 #else
1597             if (TARGET_IS_DS390) {
1598               /* The AUTO and REGISTER classes should probably
1599                * also become generic pointers, but I haven't yet
1600                * devised a test case for that.
1601                */
1602               DCL_TYPE (val->type) = port->unqualified_pointer;
1603               break;
1604             }
1605             if (options.model==MODEL_LARGE) {
1606               DCL_TYPE (val->type) = FPOINTER;
1607               break;
1608             }
1609 #endif
1610           }
1611           break;
1612         case S_AUTO:
1613         case S_DATA:
1614         case S_REGISTER:
1615           DCL_TYPE (val->type) = POINTER;
1616           break;
1617         case S_CODE:
1618           DCL_TYPE (val->type) = CPOINTER;
1619           break;
1620         case S_XDATA:
1621           DCL_TYPE (val->type) = FPOINTER;
1622           break;
1623         case S_EEPROM:
1624           DCL_TYPE (val->type) = EEPPOINTER;
1625           break;
1626         default:
1627           DCL_TYPE (val->type) = port->unqualified_pointer;
1628         }
1629
1630       /* is there is a symbol associated then */
1631       /* change the type of the symbol as well */
1632       if (val->sym)
1633         {
1634           val->sym->type = copyLinkChain (val->type);
1635           val->sym->etype = getSpec (val->sym->type);
1636         }
1637     }
1638   return val;
1639 }
1640 /*------------------------------------------------------------------*/
1641 /* checkFunction - does all kinds of check on a function            */
1642 /*------------------------------------------------------------------*/
1643 int
1644 checkFunction (symbol * sym, symbol *csym)
1645 {
1646   value *exargs, *acargs;
1647   value *checkValue;
1648   int argCnt = 0;
1649
1650   if (getenv("DEBUG_SANITY")) {
1651     fprintf (stderr, "checkFunction: %s ", sym->name);
1652   }
1653
1654   /* make sure the type is complete and sane */
1655   checkTypeSanity(((symbol *)sym)->etype, ((symbol *)sym)->name);
1656
1657   /* if not type then some kind of error */
1658   if (!sym->type)
1659     return 0;
1660
1661   /* if the function has no type then make it return int */
1662   if (!sym->type->next)
1663     sym->type->next = sym->etype = newIntLink ();
1664
1665   /* function cannot return aggregate */
1666   if (IS_AGGREGATE (sym->type->next))
1667     {
1668       werror (E_FUNC_AGGR, sym->name);
1669       return 0;
1670     }
1671
1672   /* function cannot return bit */
1673   if (IS_BITVAR (sym->type->next))
1674     {
1675       werror (E_FUNC_BIT, sym->name);
1676       return 0;
1677     }
1678
1679   /* check if this function is defined as calleeSaves
1680      then mark it as such */
1681     FUNC_CALLEESAVES(sym->type) = inCalleeSaveList (sym->name);
1682
1683   /* if interrupt service routine  */
1684   /* then it cannot have arguments */
1685   if (IFFUNC_ARGS(sym->type) && FUNC_ISISR (sym->type))
1686     {
1687       if (!IS_VOID(FUNC_ARGS(sym->type)->type)) {
1688         werror (E_INT_ARGS, sym->name);
1689         FUNC_ARGS(sym->type)=NULL;
1690       }
1691     }
1692
1693   if (!csym && !(csym = findSym (SymbolTab, sym, sym->name)))
1694     return 1;                   /* not defined nothing more to check  */
1695
1696   /* check if body already present */
1697   if (csym && IFFUNC_HASBODY(csym->type))
1698     {
1699       werror (E_FUNC_BODY, sym->name);
1700       return 0;
1701     }
1702
1703   /* check the return value type   */
1704   if (compareType (csym->type, sym->type) <= 0)
1705     {
1706       werror (E_PREV_DEF_CONFLICT, csym->name, "type");
1707       printFromToType(csym->type, sym->type);
1708       return 0;
1709     }
1710
1711   if (FUNC_ISISR (csym->type) != FUNC_ISISR (sym->type))
1712     {
1713       werror (E_PREV_DEF_CONFLICT, csym->name, "interrupt");
1714     }
1715
1716   if (FUNC_REGBANK (csym->type) != FUNC_REGBANK (sym->type))
1717     {
1718       werror (E_PREV_DEF_CONFLICT, csym->name, "using");
1719     }
1720
1721   if (IFFUNC_ISNAKED (csym->type) != IFFUNC_ISNAKED (sym->type))
1722     {
1723       werror (E_PREV_DEF_CONFLICT, csym->name, "_naked");
1724     }
1725
1726   /* compare expected args with actual args */
1727   exargs = FUNC_ARGS(csym->type);
1728   acargs = FUNC_ARGS(sym->type);
1729
1730   /* for all the expected args do */
1731   for (argCnt = 1;
1732        exargs && acargs;
1733        exargs = exargs->next, acargs = acargs->next, argCnt++)
1734     {
1735       if (getenv("DEBUG_SANITY")) {
1736         fprintf (stderr, "checkFunction: %s ", exargs->name);
1737       }
1738       /* make sure the type is complete and sane */
1739       checkTypeSanity(exargs->etype, exargs->name);
1740
1741       /* If the actual argument is an array, any prototype
1742        * will have modified it to a pointer. Duplicate that
1743        * change here.
1744        */
1745       if (IS_AGGREGATE (acargs->type))
1746         {
1747           checkValue = copyValue (acargs);
1748           aggregateToPointer (checkValue);
1749         }
1750       else
1751         {
1752           checkValue = acargs;
1753         }
1754
1755       if (compareType (exargs->type, checkValue->type) <= 0)
1756         {
1757           werror (E_ARG_TYPE, argCnt);
1758           printFromToType(exargs->type, checkValue->type);
1759           return 0;
1760         }
1761     }
1762
1763   /* if one them ended we have a problem */
1764   if ((exargs && !acargs && !IS_VOID (exargs->type)) ||
1765       (!exargs && acargs && !IS_VOID (acargs->type)))
1766     werror (E_ARG_COUNT);
1767
1768   /* replace with this defition */
1769   sym->cdef = csym->cdef;
1770   deleteSym (SymbolTab, csym, csym->name);
1771   deleteFromSeg(csym);
1772   addSym (SymbolTab, sym, sym->name, sym->level, sym->block, 1);
1773   if (IS_EXTERN (csym->etype) && !
1774       IS_EXTERN (sym->etype))
1775     {
1776       addSet (&publics, sym);
1777     }
1778   return 1;
1779 }
1780
1781 /*-----------------------------------------------------------------*/
1782 /* processFuncArgs - does some processing with function args       */
1783 /*-----------------------------------------------------------------*/
1784 void
1785 processFuncArgs (symbol * func)
1786 {
1787   value *val;
1788   int pNum = 1;
1789   sym_link *funcType=func->type;
1790
1791   if (getenv("SDCC_DEBUG_FUNCTION_POINTERS"))
1792     fprintf (stderr, "SDCCsymt.c:processFuncArgs(%s)\n", func->name);
1793
1794   // if this is a pointer to a function
1795   if (IS_PTR(funcType)) {
1796     funcType=funcType->next;
1797   }
1798
1799   /* if this function has variable argument list */
1800   /* then make the function a reentrant one    */
1801   if (IFFUNC_HASVARARGS(funcType))
1802     FUNC_ISREENT(funcType)=1;
1803
1804   /* check if this function is defined as calleeSaves
1805      then mark it as such */
1806   FUNC_CALLEESAVES(funcType) = inCalleeSaveList (func->name);
1807
1808   /* loop thru all the arguments   */
1809   val = FUNC_ARGS(funcType);
1810
1811   /* if it is void then remove parameters */
1812   if (val && IS_VOID (val->type))
1813     {
1814       FUNC_ARGS(funcType) = NULL;
1815       return;
1816     }
1817
1818   /* reset regparm for the port */
1819   (*port->reset_regparms) ();
1820   /* if any of the arguments is an aggregate */
1821   /* change it to pointer to the same type */
1822   while (val)
1823     {
1824       /* mark it as a register parameter if
1825          the function does not have VA_ARG
1826          and as port dictates */
1827       if (!IFFUNC_HASVARARGS(funcType) &&
1828           (*port->reg_parm) (val->type))
1829         {
1830           SPEC_REGPARM (val->etype) = 1;
1831         }
1832
1833       if (IS_AGGREGATE (val->type))
1834         {
1835           aggregateToPointer (val);
1836         }
1837
1838       val = val->next;
1839       pNum++;
1840     }
1841
1842   /* if this is an internal generated function call */
1843   if (func->cdef) {
1844     /* ignore --stack-auto for this one, we don't know how it is compiled */
1845     /* simply trust on --int-long-reent or --float-reent */
1846     if (IFFUNC_ISREENT(funcType)) {
1847       return;
1848     }
1849   } else {
1850     /* if this function is reentrant or */
1851     /* automatics r 2b stacked then nothing */
1852     if (IFFUNC_ISREENT (funcType) || options.stackAuto)
1853       return;
1854   }
1855
1856   val = FUNC_ARGS(funcType);
1857   pNum = 1;
1858   while (val)
1859     {
1860
1861       /* if a symbolname is not given  */
1862       /* synthesize a variable name */
1863       if (!val->sym)
1864         {
1865
1866           sprintf (val->name, "_%s_PARM_%d", func->name, pNum++);
1867           val->sym = newSymbol (val->name, 1);
1868           SPEC_OCLS (val->etype) = port->mem.default_local_map;
1869           val->sym->type = copyLinkChain (val->type);
1870           val->sym->etype = getSpec (val->sym->type);
1871           val->sym->_isparm = 1;
1872           strcpy (val->sym->rname, val->name);
1873           SPEC_STAT (val->etype) = SPEC_STAT (val->sym->etype) =
1874             SPEC_STAT (func->etype);
1875           addSymChain (val->sym);
1876
1877         }
1878       else                      /* symbol name given create synth name */
1879         {
1880
1881           sprintf (val->name, "_%s_PARM_%d", func->name, pNum++);
1882           strcpy (val->sym->rname, val->name);
1883           val->sym->_isparm = 1;
1884           SPEC_OCLS (val->etype) = SPEC_OCLS (val->sym->etype) =
1885             (options.model != MODEL_SMALL ? xdata : data);
1886           SPEC_STAT (val->etype) = SPEC_STAT (val->sym->etype) =
1887             SPEC_STAT (func->etype);
1888         }
1889       val = val->next;
1890     }
1891 }
1892
1893 /*-----------------------------------------------------------------*/
1894 /* isSymbolEqual - compares two symbols return 1 if they match     */
1895 /*-----------------------------------------------------------------*/
1896 int
1897 isSymbolEqual (symbol * dest, symbol * src)
1898 {
1899   /* if pointers match then equal */
1900   if (dest == src)
1901     return 1;
1902
1903   /* if one of them is null then don't match */
1904   if (!dest || !src)
1905     return 0;
1906
1907   /* if both of them have rname match on rname */
1908   if (dest->rname[0] && src->rname[0])
1909     return (!strcmp (dest->rname, src->rname));
1910
1911   /* otherwise match on name */
1912   return (!strcmp (dest->name, src->name));
1913 }
1914
1915 void PT(sym_link *type)
1916 {
1917         printTypeChain(type,0);
1918 }
1919 /*-----------------------------------------------------------------*/
1920 /* printTypeChain - prints the type chain in human readable form   */
1921 /*-----------------------------------------------------------------*/
1922 void
1923 printTypeChain (sym_link * start, FILE * of)
1924 {
1925   int nlr = 0;
1926   sym_link * type, * search;
1927
1928   if (!of)
1929     {
1930       of = stdout;
1931       nlr = 1;
1932     }
1933
1934   if (start==NULL) {
1935     fprintf (of, "void");
1936     return;
1937   }
1938
1939   /* print the chain as it is written in the source: */
1940   /* start with the last entry                       */
1941   for (type = start; type && type->next; type = type->next)
1942     ;
1943   while (type)
1944     {
1945       if (IS_DECL (type))
1946         {
1947           if (DCL_PTR_VOLATILE (type)) {
1948             fprintf (of, "volatile ");
1949           }
1950           switch (DCL_TYPE (type))
1951             {
1952             case FUNCTION:
1953               fprintf (of, "function %s %s",
1954                        (IFFUNC_ISBUILTIN(type) ? "__builtin__" : " "),
1955                        (IFFUNC_ISJAVANATIVE(type) ? "_JavaNative" : " "));
1956               break;
1957             case GPOINTER:
1958               if (DCL_PTR_CONST (type))
1959                 fprintf (of, "const ");
1960               fprintf (of, "generic * ");
1961               break;
1962             case CPOINTER:
1963               if (DCL_PTR_CONST (type))
1964                 fprintf (of, "const ");
1965               fprintf (of, "code * ");
1966               break;
1967             case FPOINTER:
1968               if (DCL_PTR_CONST (type))
1969                 fprintf (of, "const ");
1970               fprintf (of, "xdata * ");
1971               break;
1972             case EEPPOINTER:
1973               if (DCL_PTR_CONST (type))
1974                 fprintf (of, "const ");
1975               fprintf (of, "eeprom * ");
1976               break;
1977
1978             case POINTER:
1979               if (DCL_PTR_CONST (type))
1980                 fprintf (of, "const ");
1981               fprintf (of, "near *");
1982               break;
1983             case IPOINTER:
1984               if (DCL_PTR_CONST (type))
1985                 fprintf (of, "const ");
1986               fprintf (of, "idata * ");
1987               break;
1988             case PPOINTER:
1989               if (DCL_PTR_CONST (type))
1990                 fprintf (of, "const ");
1991               fprintf (of, "pdata * ");
1992               break;
1993             case UPOINTER:
1994               if (DCL_PTR_CONST (type))
1995                 fprintf (of, "const ");
1996               fprintf (of, "unkown * ");
1997               break;
1998             case ARRAY:
1999               fprintf (of, "[] ");
2000               break;
2001             }
2002         }
2003       else
2004         {
2005           switch (SPEC_SCLS(type))
2006             {
2007             case S_DATA: fprintf (of, "data "); break;
2008             case S_XDATA: fprintf (of, "xdata "); break;
2009             case S_SFR: fprintf (of, "sfr "); break;
2010             case S_SBIT: fprintf (of, "sbit "); break;
2011             case S_CODE: fprintf (of, "code "); break;
2012             case S_IDATA: fprintf (of, "idata "); break;
2013             case S_PDATA: fprintf (of, "pdata "); break;
2014             case S_LITERAL: fprintf (of, "literal "); break;
2015             case S_STACK: fprintf (of, "stack "); break;
2016             case S_XSTACK: fprintf (of, "xstack "); break;
2017             case S_BIT: fprintf (of, "bit "); break;
2018             case S_EEPROM: fprintf (of, "eeprom "); break;
2019             default: break;
2020             }
2021
2022           if (SPEC_VOLATILE (type))
2023             fprintf (of, "volatile ");
2024           if (SPEC_USIGN (type))
2025             fprintf (of, "unsigned ");
2026           if (SPEC_CONST (type))
2027             fprintf (of, "const ");
2028
2029           switch (SPEC_NOUN (type))
2030             {
2031             case V_INT:
2032               if (IS_LONG (type))
2033                 fprintf (of, "long ");
2034               fprintf (of, "int");
2035               break;
2036
2037             case V_CHAR:
2038               fprintf (of, "char");
2039               break;
2040
2041             case V_VOID:
2042               fprintf (of, "void");
2043               break;
2044
2045             case V_FLOAT:
2046               fprintf (of, "float");
2047               break;
2048
2049             case V_STRUCT:
2050               fprintf (of, "struct %s", SPEC_STRUCT (type)->tag);
2051               break;
2052
2053             case V_SBIT:
2054               fprintf (of, "sbit");
2055               break;
2056
2057             case V_BIT:
2058               fprintf (of, "bit {%d,%d}", SPEC_BSTR (type), SPEC_BLEN (type));
2059               break;
2060
2061             case V_DOUBLE:
2062               fprintf (of, "double");
2063               break;
2064
2065             default:
2066               fprintf (of, "unknown type");
2067               break;
2068             }
2069         }
2070         /* search entry in list before "type" */
2071     for (search = start; search && search->next != type;)
2072        search = search->next;
2073     type = search;
2074     if (type)
2075       fputc (' ', of);
2076     }
2077   if (nlr)
2078     fprintf (of, "\n");
2079 }
2080
2081 /*-----------------------------------------------------------------*/
2082 /* cdbTypeInfo - print the type information for debugger           */
2083 /*-----------------------------------------------------------------*/
2084 void
2085 cdbTypeInfo (sym_link * type, FILE * of)
2086 {
2087   fprintf (of, "{%d}", getSize (type));
2088   while (type)
2089     {
2090       if (IS_DECL (type))
2091         {
2092           switch (DCL_TYPE (type))
2093             {
2094             case FUNCTION:
2095               fprintf (of, "DF,");
2096               break;
2097             case GPOINTER:
2098               fprintf (of, "DG,");
2099               break;
2100             case CPOINTER:
2101               fprintf (of, "DC,");
2102               break;
2103             case FPOINTER:
2104               fprintf (of, "DX,");
2105               break;
2106             case POINTER:
2107               fprintf (of, "DD,");
2108               break;
2109             case IPOINTER:
2110               fprintf (of, "DI,");
2111               break;
2112             case PPOINTER:
2113               fprintf (of, "DP,");
2114               break;
2115             case EEPPOINTER:
2116               fprintf (of, "DA,");
2117               break;
2118             case ARRAY:
2119               fprintf (of, "DA%d,", DCL_ELEM (type));
2120               break;
2121             default:
2122               break;
2123             }
2124         }
2125       else
2126         {
2127           switch (SPEC_NOUN (type))
2128             {
2129             case V_INT:
2130               if (IS_LONG (type))
2131                 fprintf (of, "SL");
2132               else
2133                 fprintf (of, "SI");
2134               break;
2135
2136             case V_CHAR:
2137               fprintf (of, "SC");
2138               break;
2139
2140             case V_VOID:
2141               fprintf (of, "SV");
2142               break;
2143
2144             case V_FLOAT:
2145               fprintf (of, "SF");
2146               break;
2147
2148             case V_STRUCT:
2149               fprintf (of, "ST%s", SPEC_STRUCT (type)->tag);
2150               break;
2151
2152             case V_SBIT:
2153               fprintf (of, "SX");
2154               break;
2155
2156             case V_BIT:
2157               fprintf (of, "SB%d$%d", SPEC_BSTR (type), SPEC_BLEN (type));
2158               break;
2159
2160             default:
2161               break;
2162             }
2163           fputs (":", of);
2164           if (SPEC_USIGN (type))
2165             fputs ("U", of);
2166           else
2167             fputs ("S", of);
2168         }
2169       type = type->next;
2170     }
2171 }
2172 /*-----------------------------------------------------------------*/
2173 /* cdbSymbol - prints a symbol & its type information for debugger */
2174 /*-----------------------------------------------------------------*/
2175 void
2176 cdbSymbol (symbol * sym, FILE * of, int isStructSym, int isFunc)
2177 {
2178   memmap *map;
2179
2180   if (!sym)
2181     return;
2182   if (!of)
2183     of = stdout;
2184
2185   if (isFunc)
2186     fprintf (of, "F:");
2187   else
2188     fprintf (of, "S:");         /* symbol record */
2189   /* if this is not a structure symbol then
2190      we need to figure out the scope information */
2191   if (!isStructSym)
2192     {
2193       if (!sym->level)
2194         {
2195           /* global */
2196           if (IS_STATIC (sym->etype))
2197             fprintf (of, "F%s$", moduleName);   /* scope is file */
2198           else
2199             fprintf (of, "G$"); /* scope is global */
2200         }
2201       else
2202         /* symbol is local */
2203         fprintf (of, "L%s$", (sym->localof ? sym->localof->name : "-null-"));
2204     }
2205   else
2206     fprintf (of, "S$");         /* scope is structure */
2207
2208   /* print the name, & mangled name */
2209   fprintf (of, "%s$%d$%d(", sym->name,
2210            sym->level, sym->block);
2211
2212   cdbTypeInfo (sym->type, of);
2213   fprintf (of, "),");
2214
2215   /* print the address space */
2216   map = SPEC_OCLS (sym->etype);
2217   fprintf (of, "%c,%d,%d",
2218            (map ? map->dbName : 'Z'), sym->onStack, SPEC_STAK (sym->etype));
2219
2220   /* if assigned to registers then output register names */
2221   /* if this is a function then print
2222      if is it an interrupt routine & interrupt number
2223      and the register bank it is using */
2224   if (isFunc)
2225     fprintf (of, ",%d,%d,%d", FUNC_ISISR (sym->type),
2226              FUNC_INTNO (sym->type), FUNC_REGBANK (sym->type));
2227   /* alternate location to find this symbol @ : eg registers
2228      or spillication */
2229
2230   if (!isStructSym)
2231     fprintf (of, "\n");
2232 }
2233
2234 /*-----------------------------------------------------------------*/
2235 /* cdbStruct - print a structure for debugger                      */
2236 /*-----------------------------------------------------------------*/
2237 void
2238 cdbStruct (structdef * sdef, int block, FILE * of,
2239            int inStruct, char *tag)
2240 {
2241   symbol *sym;
2242
2243   fprintf (of, "T:");
2244   /* if block # then must have function scope */
2245   fprintf (of, "F%s$", moduleName);
2246   fprintf (of, "%s[", (tag ? tag : sdef->tag));
2247   for (sym = sdef->fields; sym; sym = sym->next)
2248     {
2249       fprintf (of, "({%d}", sym->offset);
2250       cdbSymbol (sym, of, TRUE, FALSE);
2251       fprintf (of, ")");
2252     }
2253   fprintf (of, "]");
2254   if (!inStruct)
2255     fprintf (of, "\n");
2256 }
2257
2258 /*------------------------------------------------------------------*/
2259 /* cdbStructBlock - calls struct printing for a blcks               */
2260 /*------------------------------------------------------------------*/
2261 void
2262 cdbStructBlock (int block, FILE * of)
2263 {
2264   int i;
2265   bucket **table = StructTab;
2266   bucket *chain;
2267   wassert (of);
2268
2269   /* go thru the entire  table  */
2270   for (i = 0; i < 256; i++)
2271     {
2272       for (chain = table[i]; chain; chain = chain->next)
2273         {
2274           if (chain->block >= block)
2275             {
2276               cdbStruct ((structdef *) chain->sym, chain->block, of, 0, NULL);
2277             }
2278         }
2279     }
2280 }
2281
2282 /*-----------------------------------------------------------------*/
2283 /* powof2 - returns power of two for the number if number is pow 2 */
2284 /*-----------------------------------------------------------------*/
2285 int
2286 powof2 (unsigned long num)
2287 {
2288   int nshifts = 0;
2289   int n1s = 0;
2290
2291   while (num)
2292     {
2293       if (num & 1)
2294         n1s++;
2295       num >>= 1;
2296       nshifts++;
2297     }
2298
2299   if (n1s > 1 || nshifts == 0)
2300     return 0;
2301   return nshifts - 1;
2302 }
2303
2304 symbol *__fsadd;
2305 symbol *__fssub;
2306 symbol *__fsmul;
2307 symbol *__fsdiv;
2308 symbol *__fseq;
2309 symbol *__fsneq;
2310 symbol *__fslt;
2311 symbol *__fslteq;
2312 symbol *__fsgt;
2313 symbol *__fsgteq;
2314
2315 /* Dims: mul/div/mod, BYTE/WORD/DWORD, SIGNED/UNSIGNED */
2316 symbol *__muldiv[3][3][2];
2317 /* Dims: BYTE/WORD/DWORD SIGNED/UNSIGNED */
2318 sym_link *__multypes[3][2];
2319 /* Dims: to/from float, BYTE/WORD/DWORD, SIGNED/USIGNED */
2320 symbol *__conv[2][3][2];
2321 /* Dims: shift left/shift right, BYTE/WORD/DWORD, SIGNED/UNSIGNED */
2322 symbol *__rlrr[2][3][2];
2323
2324 sym_link *floatType;
2325
2326 static char *
2327 _mangleFunctionName(char *in)
2328 {
2329   if (port->getMangledFunctionName)
2330     {
2331       return port->getMangledFunctionName(in);
2332     }
2333   else
2334     {
2335       return in;
2336     }
2337 }
2338
2339 /*-----------------------------------------------------------------*/
2340 /* typeFromStr - create a typechain from an encoded string         */
2341 /* basic types -        'c' - char                                 */
2342 /*                      's' - short                                */
2343 /*                      'i' - int                                  */
2344 /*                      'l' - long                                 */
2345 /*                      'f' - float                                */
2346 /*                      'v' - void                                 */
2347 /*                      '*' - pointer - default (GPOINTER)         */
2348 /* modifiers -          'u' - unsigned                             */
2349 /* pointer modifiers -  'g' - generic                              */
2350 /*                      'x' - xdata                                */
2351 /*                      'p' - code                                 */
2352 /*                      'd' - data                                 */
2353 /* examples : "ig*" - generic int *                                */
2354 /*            "cx*" - char xdata *                                 */
2355 /*            "ui" -  unsigned int                                 */
2356 /*-----------------------------------------------------------------*/
2357 sym_link *typeFromStr (char *s)
2358 {
2359     sym_link *r = newLink();
2360     int usign = 0;
2361
2362     do {
2363         sym_link *nr;
2364         switch (*s) {
2365         case 'u' :
2366             usign = 1;
2367             s++;
2368             continue ;
2369             break ;
2370         case 'c':
2371             r->class = SPECIFIER;
2372             SPEC_NOUN(r) = V_CHAR;
2373             break;
2374         case 's':
2375         case 'i':
2376             r->class = SPECIFIER;
2377             SPEC_NOUN(r) = V_INT;
2378             break;
2379         case 'l':
2380             r->class = SPECIFIER;
2381             SPEC_NOUN(r) = V_INT;
2382             SPEC_LONG(r) = 1;
2383             break;
2384         case 'f':
2385             r->class = SPECIFIER;
2386             SPEC_NOUN(r) = V_FLOAT;
2387             break;
2388         case 'v':
2389             r->class = SPECIFIER;
2390             SPEC_NOUN(r) = V_VOID;
2391             break;
2392         case '*':
2393             DCL_TYPE(r) = port->unqualified_pointer;
2394             break;
2395         case 'g':
2396         case 'x':
2397         case 'p':
2398         case 'd':
2399             assert(*(s+1)=='*');
2400             nr = newLink();
2401             nr->next = r;
2402             r = nr;
2403             r->class = DECLARATOR ;
2404             switch (*s) {
2405             case 'g':
2406                 DCL_TYPE(r) = GPOINTER;
2407                 break;
2408             case 'x':
2409                 DCL_TYPE(r) = FPOINTER;
2410                 break;
2411             case 'p':
2412                 DCL_TYPE(r) = CPOINTER;
2413                 break;
2414             case 'd':
2415                 DCL_TYPE(r) = POINTER;
2416                 break;
2417             }
2418             s++;
2419             break;
2420         default:
2421             werror(E_INTERNAL_ERROR,"typeFromStr");
2422             break;
2423         }
2424         if (IS_SPEC(r) && usign) {
2425             SPEC_USIGN(r) = 1;
2426             usign = 0;
2427         }
2428         s++;
2429     } while (*s);
2430     return r;
2431 }
2432
2433 /*-----------------------------------------------------------------*/
2434 /* initCSupport - create functions for C support routines          */
2435 /*-----------------------------------------------------------------*/
2436 void
2437 initCSupport ()
2438 {
2439   const char *smuldivmod[] =
2440   {
2441     "mul", "div", "mod"
2442   };
2443   const char *sbwd[] =
2444   {
2445     "char", "int", "long"
2446   };
2447   const char *ssu[] =
2448   {
2449     "s", "u"
2450   };
2451   const char *srlrr[] =
2452   {
2453     "rl", "rr"
2454   };
2455
2456   int bwd, su, muldivmod, tofrom, rlrr;
2457
2458   if (getenv("SDCC_NO_C_SUPPORT")) {
2459     /* for debugging only */
2460     return;
2461   }
2462
2463   floatType = newFloatLink ();
2464
2465   for (bwd = 0; bwd < 3; bwd++)
2466     {
2467       sym_link *l;
2468       switch (bwd)
2469         {
2470         case 0:
2471           l = newCharLink ();
2472           break;
2473         case 1:
2474           l = newIntLink ();
2475           break;
2476         case 2:
2477           l = newLongLink ();
2478           break;
2479         default:
2480           assert (0);
2481         }
2482       __multypes[bwd][0] = l;
2483       __multypes[bwd][1] = copyLinkChain (l);
2484       SPEC_USIGN (__multypes[bwd][1]) = 1;
2485     }
2486
2487   __fsadd = funcOfType ("__fsadd", floatType, floatType, 2, options.float_rent);
2488   __fssub = funcOfType ("__fssub", floatType, floatType, 2, options.float_rent);
2489   __fsmul = funcOfType ("__fsmul", floatType, floatType, 2, options.float_rent);
2490   __fsdiv = funcOfType ("__fsdiv", floatType, floatType, 2, options.float_rent);
2491   __fseq = funcOfType ("__fseq", CHARTYPE, floatType, 2, options.float_rent);
2492   __fsneq = funcOfType ("__fsneq", CHARTYPE, floatType, 2, options.float_rent);
2493   __fslt = funcOfType ("__fslt", CHARTYPE, floatType, 2, options.float_rent);
2494   __fslteq = funcOfType ("__fslteq", CHARTYPE, floatType, 2, options.float_rent);
2495   __fsgt = funcOfType ("__fsgt", CHARTYPE, floatType, 2, options.float_rent);
2496   __fsgteq = funcOfType ("__fsgteq", CHARTYPE, floatType, 2, options.float_rent);
2497
2498   for (tofrom = 0; tofrom < 2; tofrom++)
2499     {
2500       for (bwd = 0; bwd < 3; bwd++)
2501         {
2502           for (su = 0; su < 2; su++)
2503             {
2504               if (tofrom)
2505                 {
2506                   sprintf (buffer, "__fs2%s%s", ssu[su], sbwd[bwd]);
2507                   __conv[tofrom][bwd][su] = funcOfType (_mangleFunctionName(buffer), __multypes[bwd][su], floatType, 1, options.float_rent);
2508                 }
2509               else
2510                 {
2511                   sprintf (buffer, "__%s%s2fs", ssu[su], sbwd[bwd]);
2512                   __conv[tofrom][bwd][su] = funcOfType (_mangleFunctionName(buffer), floatType, __multypes[bwd][su], 1, options.float_rent);
2513                 }
2514             }
2515         }
2516     }
2517
2518   for (muldivmod = 0; muldivmod < 3; muldivmod++)
2519     {
2520       for (bwd = 0; bwd < 3; bwd++)
2521         {
2522           for (su = 0; su < 2; su++)
2523             {
2524               sprintf (buffer, "_%s%s%s",
2525                        smuldivmod[muldivmod],
2526                        ssu[su],
2527                        sbwd[bwd]);
2528               __muldiv[muldivmod][bwd][su] = funcOfType (_mangleFunctionName(buffer), __multypes[bwd][su], __multypes[bwd][su], 2, options.intlong_rent);
2529               FUNC_NONBANKED (__muldiv[muldivmod][bwd][su]->type) = 1;
2530             }
2531         }
2532     }
2533
2534   for (rlrr = 0; rlrr < 2; rlrr++)
2535     {
2536       for (bwd = 0; bwd < 3; bwd++)
2537         {
2538           for (su = 0; su < 2; su++)
2539             {
2540               sprintf (buffer, "_%s%s%s",
2541                        srlrr[rlrr],
2542                        ssu[su],
2543                        sbwd[bwd]);
2544               __rlrr[rlrr][bwd][su] = funcOfType (_mangleFunctionName(buffer), __multypes[bwd][su], __multypes[0][0], 2, options.intlong_rent);
2545               FUNC_NONBANKED (__rlrr[rlrr][bwd][su]->type) = 1;
2546             }
2547         }
2548     }
2549 }
2550
2551 /*-----------------------------------------------------------------*/
2552 /* initBuiltIns - create prototypes for builtin functions          */
2553 /*-----------------------------------------------------------------*/
2554 void initBuiltIns()
2555 {
2556     int i;
2557     symbol *sym;
2558
2559     if (!port->builtintable) return ;
2560
2561     for (i = 0 ; port->builtintable[i].name ; i++) {
2562         sym = funcOfTypeVarg(port->builtintable[i].name,port->builtintable[i].rtype,
2563                              port->builtintable[i].nParms,port->builtintable[i].parm_types);
2564         FUNC_ISBUILTIN(sym->type) = 1;
2565         FUNC_ISREENT(sym->type) = 0;    /* can never be reentrant */
2566     }
2567 }