andr3/scyther
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Some warnings are only interesting when checking.

Browse Source
This commit is contained in:
ccremers 2006-08-08 12:35:43 +00:00
parent 29f0756f0a
commit d9a37b62b3
1 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/compiler.c
View File

@ -297,6 +297,8 @@ defineUsertype (Tac tcdu)
{ {
/* oi!, there's already one. Let's hope is is a type too. */ /* oi!, there's already one. Let's hope is is a type too. */
if (inTermlist (tfind->stype, TERM_Type)) if (inTermlist (tfind->stype, TERM_Type))
{
if (switches.check)
{ {
/* phew. warn anyway */ /* phew. warn anyway */
globalError++; globalError++;
@ -305,6 +307,7 @@ defineUsertype (Tac tcdu)
eprintf ("\n"); eprintf ("\n");
globalError--; globalError--;
} }
}
else else
{ {
/* that's not right! */ /* that's not right! */
@ -1806,6 +1809,8 @@ checkRoleVariables (const System sys, const Protocol p, const Role r)
while (declared != NULL) while (declared != NULL)
{ {
if (!inTermlist (vars, declared->term)) if (!inTermlist (vars, declared->term))
{
if (switches.check)
{ {
// Warning // Warning
globalError++; globalError++;
@ -1818,6 +1823,7 @@ checkRoleVariables (const System sys, const Protocol p, const Role r)
eprintf (" but never used in a read event.\n"); eprintf (" but never used in a read event.\n");
globalError--; globalError--;
} }
}
declared = declared->next; declared = declared->next;
} }