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

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

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

revision 568 by johnpye, Sat Apr 22 07:52:30 2006 UTC revision 569 by johnpye, Tue May 9 00:10:03 2006 UTC
# Line 133  Line 133 
133    
134  static int g_iteration = 0; /* the current iteration. */  static int g_iteration = 0; /* the current iteration. */
135    
136  /* moved from tcltk98/generic/interface/SimsProc.c */  /* moved from tcltk/generic/interface/SimsProc.c */
137  struct Instance *g_cursim;  struct Instance *g_cursim;
138    
139  #define NEW_ext 1  #define NEW_ext 1
# Line 7390  int CheckSelectStatements(struct Instanc Line 7390  int CheckSelectStatements(struct Instanc
7390    case SELECT:    case SELECT:
7391      return CheckSELECT(inst,statement);      return CheckSELECT(inst,statement);
7392    case REL: /* not broken. equations disallowed. */    case REL: /* not broken. equations disallowed. */
7393    case LOGREL:    case LOGREL:
7394    case EXT:    case EXT:
7395    case CALL:    case CALL:
7396    case WHEN:    case WHEN:
7397    case FNAME:    case FNAME:
7398      if (g_iteration>=MAXNUMBER) { /* see WriteUnexecutedMessage */      if (g_iteration>=MAXNUMBER) { /* see WriteUnexecutedMessage */
7399         STATEMENT_ERROR(statement,         STATEMENT_ERROR(statement,
# Line 12071  void Pass2SetRelationBits(struct Instanc Line 12071  void Pass2SetRelationBits(struct Instanc
12071            }            }
12072          }          }
12073          else {          else {
12074            if ( st == REL ||            if ( st == REL ||
12075  #if NEW_ext  #if NEW_ext
12076          st == EXT ||          st == EXT ||
12077  #endif  #endif
Legend:
Removed from v.568  
changed lines
  Added in v.569
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22