/[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 399 by johnpye, Fri Mar 31 08:52:57 2006 UTC revision 423 by ben.allan, Mon Apr 3 23:15:49 2006 UTC
# Line 136  static int g_iteration = 0;    /* the curre Line 136  static int g_iteration = 0;    /* the curre
136  /* moved from tcltk98/generic/interface/SimsProc.c */  /* moved from tcltk98/generic/interface/SimsProc.c */
137  struct Instance *g_cursim;  struct Instance *g_cursim;
138    
139    #define NEW_ext 1
140    #define OLD_ext 0
141  /*************************************************************************\  /*************************************************************************\
142  variable to check agreement in the number of boolean, integer or symbol  variable to check agreement in the number of boolean, integer or symbol
143  variables in the WHEN/SELECT statement with the number of boolean, integer  variables in the WHEN/SELECT statement with the number of boolean, integer
# Line 8817  void ExecuteSelectStatements(struct Inst Line 8819  void ExecuteSelectStatements(struct Inst
8819          if (return_value) ClearBit(blist,*count);          if (return_value) ClearBit(blist,*count);
8820          break;          break;
8821        case EXT:        case EXT:
8822    #if OLD_ext
8823          return_value = ExecuteEXT(inst,statement);          return_value = ExecuteEXT(inst,statement);
8824          if (return_value) ClearBit(blist,*count);          if (return_value) ClearBit(blist,*count);
8825          break;          break;
8826    #endif
8827        case ASGN:        case ASGN:
8828        case REL:        case REL:
8829        case LOGREL:        case LOGREL:
# Line 12063  void Pass2SetRelationBits(struct Instanc Line 12067  void Pass2SetRelationBits(struct Instanc
12067            }            }
12068          }          }
12069          else {          else {
12070            if ( st == REL || (st == COND && CondContainsRelations(stat)) ||            if ( st == REL ||
12071    #if NEW_ext
12072            st == EXT ||
12073    #endif
12074             (st == COND && CondContainsRelations(stat)) ||
12075               (st == FOR && ForContainsRelations(stat)) ){               (st == FOR && ForContainsRelations(stat)) ){
12076              SetBit(blist,c);              SetBit(blist,c);
12077              changed++;              changed++;

Legend:
Removed from v.399  
changed lines
  Added in v.423

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