/[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 222 by johnpye, Fri Jan 27 04:23:20 2006 UTC revision 303 by johnpye, Tue Feb 21 02:38:13 2006 UTC
# Line 5530  int CheckGlassBoxIndex(struct Instance * Line 5530  int CheckGlassBoxIndex(struct Instance *
5530    
5531    str = SimpleNameIdPtr(n);    str = SimpleNameIdPtr(n);
5532    if (str) {    if (str) {
5533      result = atoi(SCP(str));    /* convert to integer. fixme strtod */      result = atoi(SCP(str));    /* convert to integer. FIXME strtod */
5534      *err = okay;      *err = okay;
5535      return result;      return result;
5536    }    }
# Line 5657  int ExecuteEXT(struct Instance *inst, st Line 5657  int ExecuteEXT(struct Instance *inst, st
5657  {  {
5658    int mode;    int mode;
5659    
5660      CONSOLE_DEBUG("...");
5661    
5662    mode = ExternalStatMode(statement);    mode = ExternalStatMode(statement);
5663    switch(mode) {    switch(mode) {
5664    default:    default:
# Line 7747  int Pass2CheckStatement(struct Instance Line 7749  int Pass2CheckStatement(struct Instance
7749    }    }
7750  }  }
7751    
7752  /*  /**
7753   * checking statementlist, as in a FOR loop check.   * checking statementlist, as in a FOR loop check.
7754   * BUG!: CheckStatement and New flavors of same ignore the   * @TODO FIXME BUG!: CheckStatement and New flavors of same ignore the
7755   * type EXT. We never use external relations inside a loop?!   * type EXT. We never use external relations inside a loop?!
7756   */   */
7757  static  static
# Line 10976  int Pass2ExecuteStatement(struct Instanc Line 10978  int Pass2ExecuteStatement(struct Instanc
10978      /* ER expected to succeed or fail permanently. this may change. */      /* ER expected to succeed or fail permanently. this may change. */
10979      return ExecuteREL(inst,statement);      return ExecuteREL(inst,statement);
10980    case EXT:    case EXT:
10981        CONSOLE_DEBUG("ABOUT TO EXECUTEEXT");
10982      return ExecuteEXT(inst,statement);      return ExecuteEXT(inst,statement);
10983    case COND:    case COND:
10984      return Pass2ExecuteCOND(inst,statement);      return Pass2ExecuteCOND(inst,statement);

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

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