amb318 - The warning message for tag mismatches with functags has been changed to "function prototypes do not match"

--HG--
extra : convert_revision : svn%3A39bc706e-5318-0410-9160-8a85361fbb7c/trunk%40850
This commit is contained in:
Scott Ehlert
2007-05-23 07:23:24 +00:00
parent 273d146ee1
commit 6f7f487275
4 changed files with 195 additions and 166 deletions
+18 -3
View File
@@ -2390,7 +2390,12 @@ static int declloc(int fstatic)
stgout(staging_start);
stgset(FALSE);
if (!matchtag_string(cident, ctag) && !matchtag(tag,ctag,TRUE))
error(213); /* tag mismatch */
{
if (tag & FUNCTAG)
error(100); /* error - function prototypes do not match */
else
error(213); /* warning - tag mismatch */
}
/* if the variable was not explicitly initialized, reset the
* "uWRITTEN" flag that store() set */
if (!explicit_init)
@@ -2550,7 +2555,12 @@ static void initials(int ident,int tag,cell *size,int dim[],int numdim,
assert(*size==1);
init(ident,&ctag,NULL);
if (!matchtag(tag,ctag,TRUE))
error(213); /* tag mismatch */
{
if (tag & FUNCTAG)
error(100); /* error - function prototypes do not match */
else
error(213); /* warning - tag mismatch */
}
} else {
assert(numdim>0);
if (numdim==1) {
@@ -2742,7 +2752,12 @@ static cell initvector(int ident,int tag,cell size,int fillzero,
enumfield=enumfield->next;
} /* if */
if (!matchtag(rtag,ctag,TRUE))
error(213); /* tag mismatch */
{
if (rtag & FUNCTAG)
error(100); /* error - function prototypes do not match */
else
error(213); /* warning - tag mismatch */
}
} while (matchtoken(',')); /* do */
needtoken('}');
} else {