rxgen-enforce-grammar-20030114

thanks to nneul@umr.edu for splitting these out.

enforce procedure being in a package in xg files
This commit is contained in:
Kevin Coffman 2003-01-15 04:27:16 +00:00 committed by Derrick Brashear
parent 1e0696b5b3
commit 06c9fc12db

View File

@ -715,6 +715,9 @@ static void check_proc(definition *defp, token *tokp, int noname)
int proc_split = 0;
int proc_multi = 0;
if (PackageIndex < 0)
error("Procedure must be in a package!\n");
tokp->kind = TOK_PROC;
defp->def_kind = DEF_PROC;
if (noname)