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

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

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

revision 862 by johnpye, Wed Jun 28 16:28:57 2006 UTC revision 863 by johnpye, Thu Sep 28 08:17:18 2006 UTC
# Line 889  symchar *GenerateId(symchar *type, Line 889  symchar *GenerateId(symchar *type,
889              "  The statement is in module %s.\n"              "  The statement is in module %s.\n"
890              "  Insufficiently uniqe name is \n%s.  Burp!\n",              "  Insufficiently uniqe name is \n%s.  Burp!\n",
891              StatioLabel(4), module, statname);              StatioLabel(4), module, statname);
892      
893  }  }
894    
895  static int IndexUsed(symchar *name, CONST struct Expr *expr);  static int IndexUsed(symchar *name, CONST struct Expr *expr);
# Line 1105  int DoExternal(symchar *type, Line 1105  int DoExternal(symchar *type,
1105      nptr = NULL;      nptr = NULL;
1106      break;      break;
1107    }    }
1108    /*    /*
1109    ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);    ERROR_REPORTER_START_NOLINE(ASC_PROG_NOTE);
1110    FPRINTF(ASCERR,"DOEXTERNAL: nptr = ");    FPRINTF(ASCERR,"DOEXTERNAL: nptr = ");
1111    WriteName(ASCERR,nptr);    WriteName(ASCERR,nptr);
# Line 3104  enum typelinterr VerifyTypeArgs(CONST st Line 3104  enum typelinterr VerifyTypeArgs(CONST st
3104          }          }
3105          ptype = FindRHSType(n,lclgl,&rval,&subsopen,&origin);          ptype = FindRHSType(n,lclgl,&rval,&subsopen,&origin);
3106          if (ptype == NULL || (rval != FRC_ok && rval != FRC_array) ) {          if (ptype == NULL || (rval != FRC_ok && rval != FRC_array) ) {
3107            FPRINTF(ASCERR,            ERROR_REPORTER_START_HERE(ASC_USER_ERROR);
3108              "%sUndefined name where instance expected\n  Argument %d: ",            FPRINTF(ASCERR,"Undefined name where instance expected. Argument %d: ",argc);
             StatioLabel(3),argc);  
3109            WriteSetNode(ASCERR,sn);            WriteSetNode(ASCERR,sn);
3110            FPRINTF(ASCERR,"\n");            error_reporter_end_flush();
3111            return DEF_ARGS_INCORRECT;            return DEF_ARGS_INCORRECT;
3112          }          }
3113          /* dig up set type details to match from MODEL arg list WILL_BE,          /* dig up set type details to match from MODEL arg list WILL_BE,
Legend:
Removed from v.862  
changed lines
  Added in v.863
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22