/[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 911 by johnpye, Thu Oct 26 13:44:58 2006 UTC revision 956 by johnpye, Sat Dec 9 15:38:05 2006 UTC
# Line 713  int FindExprType(CONST struct Expr *ex, Line 713  int FindExprType(CONST struct Expr *ex,
713      if (g_iteration>=(MAXNUMBER)) {      if (g_iteration>=(MAXNUMBER)) {
714        /* referencing g_iteration sucks, but seeing spew sucks more.*/        /* referencing g_iteration sucks, but seeing spew sucks more.*/
715        /* WUM, which we want, needs a statement ptr we can't supply. */        /* WUM, which we want, needs a statement ptr we can't supply. */
716        FPRINTF(ASCERR,"Heuristic FindExprType failed. Check your indices.\n");        ERROR_REPORTER_HERE(ASC_PROG_ERR,"Heuristic FindExprType failed. Check your indices. Assuming integer array index.");
       FPRINTF(ASCERR,"Report this failure to %s if no apparent error.\n",  
               ASC_MILD_BUGMAIL);  
       FPRINTF(ASCERR,"Assuming integer array index.\n");  
717      }      }
718      return -1;      return -1;
719    }    }
# Line 1700  int ExecuteARR(struct Instance *inst, st Line 1697  int ExecuteARR(struct Instance *inst, st
1697    /* get instance  and assign. */    /* get instance  and assign. */
1698    setinstl = FindInstances(inst,NamePointer(vlist),&ferr);    setinstl = FindInstances(inst,NamePointer(vlist),&ferr);
1699    if (setinstl == NULL || gl_length(setinstl) != 1L) {    if (setinstl == NULL || gl_length(setinstl) != 1L) {
1700      FPRINTF(ASCERR,"Unable to construct set.\n");      ERROR_REPORTER_HERE(ASC_PROG_ERR,"Unable to construct set. Bizarre error in ALIASES-IS_A.");
     FPRINTF(ASCERR,"Bizarre error in ALIASES-IS_A. Please report it to:\n%s",  
       ASC_BIG_BUGMAIL);  
1701      if (setinstl!=NULL) {      if (setinstl!=NULL) {
1702        gl_destroy(setinstl);        gl_destroy(setinstl);
1703      }      }

Legend:
Removed from v.911  
changed lines
  Added in v.956

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