/[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 190 by johnpye, Mon Jan 16 08:53:30 2006 UTC revision 222 by johnpye, Fri Jan 27 04:23:20 2006 UTC
# Line 4230  void MissingInsts(struct Instance *inst, Line 4230  void MissingInsts(struct Instance *inst,
4230      while(list!=NULL){      while(list!=NULL){
4231        temp = FindInstances(inst,NamePointer(list),&err);        temp = FindInstances(inst,NamePointer(list),&err);
4232        if (temp==NULL){        if (temp==NULL){
4233          error_reporter_start(ASC_USER_ERROR,NULL,0);          ERROR_REPORTER_START_NOLINE(ASC_USER_ERROR);
4234          FPRINTF(ASCERR,"Problem finding instance(s): \n");          FPRINTF(ASCERR,"Problem finding instance(s): \n");
4235          WriteName(ASCERR,NamePointer(list));          WriteName(ASCERR,NamePointer(list));
4236          FPRINTF(ASCERR,"\n");          FPRINTF(ASCERR,"\n");
# Line 8121  int Pass2ExecuteCondStatements(struct In Line 8121  int Pass2ExecuteCondStatements(struct In
8121    switch(StatementType(statement)){    switch(StatementType(statement)){
8122      case REL:      case REL:
8123  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
8124      error_reporter_start(ASC_PROG_NOTE,NULL,0);      ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
8125      FPRINTF(stderr,"Pass2ExecuteCondStatements: case REL");      FPRINTF(stderr,"Pass2ExecuteCondStatements: case REL");
8126      WriteStatement(stderr, statement, 3);      WriteStatement(stderr, statement, 3);
8127      error_reporter_end_flush();      error_reporter_end_flush();
# Line 8130  int Pass2ExecuteCondStatements(struct In Line 8130  int Pass2ExecuteCondStatements(struct In
8130      case FOR:      case FOR:
8131        if ( ForContainsRelations(statement) ) {        if ( ForContainsRelations(statement) ) {
8132  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
8133      error_reporter_start(ASC_PROG_NOTE,NULL,0);      ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
8134      FPRINTF(stderr,"Pass2ExecuteCondStatements: case FOR");      FPRINTF(stderr,"Pass2ExecuteCondStatements: case FOR");
8135      WriteStatement(stderr, statement, 3);      WriteStatement(stderr, statement, 3);
8136      error_reporter_end_flush();      error_reporter_end_flush();
# Line 9656  void Pass2ExecuteForStatements(struct In Line 9656  void Pass2ExecuteForStatements(struct In
9656        return_value = 1;        return_value = 1;
9657        if ( ForContainsRelations(statement) ) {        if ( ForContainsRelations(statement) ) {
9658  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
9659        error_reporter_start(ASC_PROG_NOTE,NULL,0);        ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
9660        WriteStatement(stderr, statement, 6);        WriteStatement(stderr, statement, 6);
9661        error_reporter_end_flush();        error_reporter_end_flush();
9662  #endif  #endif
# Line 9673  void Pass2ExecuteForStatements(struct In Line 9673  void Pass2ExecuteForStatements(struct In
9673        break;        break;
9674      case REL:      case REL:
9675  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
9676        error_reporter_start(ASC_PROG_NOTE,NULL,0);        ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
9677        WriteStatement(stderr, statement, 6);        WriteStatement(stderr, statement, 6);
9678        error_reporter_end_flush();        error_reporter_end_flush();
9679  #endif  #endif
# Line 10962  int Pass2ExecuteStatement(struct Instanc Line 10962  int Pass2ExecuteStatement(struct Instanc
10962    switch(StatementType(statement)){ /* should be an if relinstance */    switch(StatementType(statement)){ /* should be an if relinstance */
10963    case FOR:    case FOR:
10964  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
10965      error_reporter_start(ASC_PROG_NOTE,NULL,0);      ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
10966      WriteStatement(stderr, statement, 3);      WriteStatement(stderr, statement, 3);
10967      error_reporter_end_flush();      error_reporter_end_flush();
10968  #endif  #endif
10969      return Pass2ExecuteFOR(inst,statement);      return Pass2ExecuteFOR(inst,statement);
10970    case REL:    case REL:
10971  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
10972      error_reporter_start(ASC_PROG_NOTE,NULL,0);      ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
10973      WriteStatement(stderr, statement, 3);      WriteStatement(stderr, statement, 3);
10974      error_reporter_end_flush();      error_reporter_end_flush();
10975  #endif  #endif
# Line 10982  int Pass2ExecuteStatement(struct Instanc Line 10982  int Pass2ExecuteStatement(struct Instanc
10982    case LOGREL:    case LOGREL:
10983    case WHEN:    case WHEN:
10984  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
10985      error_reporter_start(ASC_PROG_NOTE,NULL,0);      ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
10986      FPRINTF(stderr,"-- IGNORING WHEN STAT\n");      FPRINTF(stderr,"-- IGNORING WHEN STAT\n");
10987      /* write statement */      /* write statement */
10988      WriteStatement(stderr, statement, 3);      WriteStatement(stderr, statement, 3);
# Line 11354  void Pass2ProcessPendingInstancesAnon(st Line 11354  void Pass2ProcessPendingInstancesAnon(st
11354        proto = Asc_GetAnonPrototype(at);        proto = Asc_GetAnonPrototype(at);
11355        if (InstanceKind(proto) == MODEL_INST && InstanceInList(proto)) {        if (InstanceKind(proto) == MODEL_INST && InstanceInList(proto)) {
11356  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
11357          error_reporter_start(ASC_PROG_NOTE,NULL,0);          ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
11358          FPRINTF(stderr,"Rels in model: ");          FPRINTF(stderr,"Rels in model: ");
11359          WriteInstanceName(stderr,proto,NULL); FPRINTF(stderr,"\n");          WriteInstanceName(stderr,proto,NULL); FPRINTF(stderr,"\n");
11360          error_reporter_end_flush();          error_reporter_end_flush();
# Line 12021  void Pass2SetRelationBits(struct Instanc Line 12021  void Pass2SetRelationBits(struct Instanc
12021    if (inst != NULL && InstanceKind(inst)==MODEL_INST) {    if (inst != NULL && InstanceKind(inst)==MODEL_INST) {
12022      struct BitList *blist;      struct BitList *blist;
12023  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
12024      error_reporter_start(ASC_PROG_NOTE,NULL,0);      ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
12025      FPRINTF(stderr,"P2SRB: ");      FPRINTF(stderr,"P2SRB: ");
12026      WriteInstanceName(ASCERR,inst,debug_rels_work);      WriteInstanceName(ASCERR,inst,debug_rels_work);
12027      error_reporter_end_flush();      error_reporter_end_flush();
# Line 12064  void Pass2SetRelationBits(struct Instanc Line 12064  void Pass2SetRelationBits(struct Instanc
12064          AddBelow(NULL,inst);          AddBelow(NULL,inst);
12065          /* add PENDING model */          /* add PENDING model */
12066  #ifdef DEBUG_RELS  #ifdef DEBUG_RELS
12067          error_reporter_start(ASC_PROG_NOTE,NULL,0);          ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
12068          FPRINTF(stderr,"Changed: ");          FPRINTF(stderr,"Changed: ");
12069          WriteInstanceName(ASCERR,inst,debug_rels_work);          WriteInstanceName(ASCERR,inst,debug_rels_work);
12070          error_reporter_end_flush();          error_reporter_end_flush();

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

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