/[ascend]/trunk/base/generic/compiler/typedef.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/typedef.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 222 by johnpye, Fri Jan 27 04:23:20 2006 UTC revision 303 by johnpye, Tue Feb 21 02:38:13 2006 UTC
# Line 464  int AddLCL(symchar *s,CONST struct TypeD Line 464  int AddLCL(symchar *s,CONST struct TypeD
464      new->e.origin = origin_ISA;      new->e.origin = origin_ISA;
465      break;      break;
466    case EXT:    case EXT:
467        CONSOLE_DEBUG("STORING EXT STATEMENT IN LCL");
468      new->e.origin = origin_EXT;      new->e.origin = origin_EXT;
469      break;      break;
470    default:    default:
# Line 559  could we put all the above in the childd Line 560  could we put all the above in the childd
560      Also checks if name is name of an array.      Also checks if name is name of an array.
561      This function should NOT be use on parameter declarations.      This function should NOT be use on parameter declarations.
562  */  */
563  static  static enum typelinterr
564  enum typelinterr DoNameF(CONST struct Name *nptr,  DoNameF(CONST struct Name *nptr,
565                           CONST struct TypeDescription *type,          CONST struct TypeDescription *type,
566                   CONST struct Statement *stat,          CONST struct Statement *stat,
567                           int noisy)          int noisy)
568  {  {
569    register symchar *name;    register symchar *name;
570    int ok;    int ok;
# Line 573  enum typelinterr DoNameF(CONST struct Na Line 574  enum typelinterr DoNameF(CONST struct Na
574      switch (StatementType(stat)) {      switch (StatementType(stat)) {
575      case EXT:      case EXT:
576        CONSOLE_DEBUG("PROCESSING EXTERNAL RELATION");        CONSOLE_DEBUG("PROCESSING EXTERNAL RELATION");
577          nsubs = NameLength(nptr) - 1;
578          CONSOLE_DEBUG("NSUBS = %d",nsubs);
579          break;
580      case ISA:      case ISA:
581      case REF: /* IS_A of prototype */      case REF: /* IS_A of prototype */
582      case WILLBE:      case WILLBE:

Legend:
Removed from v.222  
changed lines
  Added in v.303

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22