/[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 1557 by johnpye, Tue Jan 23 05:09:50 2007 UTC revision 1558 by jpye, Fri Jul 27 05:51:14 2007 UTC
# Line 4820  struct TypeDescription *CreateModelTypeD Line 4820  struct TypeDescription *CreateModelTypeD
4820      rdesc=FindType(refines);      rdesc=FindType(refines);
4821      if (rdesc==NULL) {      if (rdesc==NULL) {
4822        ERROR_REPORTER_START_NOLINE(ASC_USER_ERROR);        ERROR_REPORTER_START_NOLINE(ASC_USER_ERROR);
4823        FPRINTF(ASCERR,"Unable to locate type %s for %s's type definition.\n",        FPRINTF(ASCERR,"Model '%s' attempts to refine '%s', which is not a known type.",
4824                SCP(refines),SCP(name));                SCP(name), SCP(refines));
4825        DestroyTypeDefArgs(sl,pl,psl,rsl,NULL,wsl);        DestroyTypeDefArgs(sl,pl,psl,rsl,NULL,wsl);
4826        error_reporter_end_flush();        error_reporter_end_flush();
4827        return NULL;        return NULL;
4828      }      }
4829      if (GetBaseType(rdesc) != model_type){      if (GetBaseType(rdesc) != model_type){
4830        ERROR_REPORTER_START_NOLINE(ASC_USER_ERROR);        ERROR_REPORTER_START_NOLINE(ASC_USER_ERROR);
4831        FPRINTF(ASCERR,"Model %s attempts to refine non-MODEL type %s.\n",        FPRINTF(ASCERR,"Model '%s' attempts to refine non-MODEL type '%s'.\n",
4832                SCP(name),SCP(refines));                SCP(name),SCP(refines));
4833        DestroyTypeDefArgs(sl,pl,psl,rsl,NULL,wsl);        DestroyTypeDefArgs(sl,pl,psl,rsl,NULL,wsl);
4834        error_reporter_end_flush();        error_reporter_end_flush();

Legend:
Removed from v.1557  
changed lines
  Added in v.1558

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