rxgen-enforce-grammar-20030114

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

enforce procedure being in a package in xg files

diff --git a/src/rxgen/rpc_parse.c b/src/rxgen/rpc_parse.c
index 9008fb58b7c87bae2fcb4845edee4c8548daa833..14dc161c9a1aff883b2116f87ff4a51f8c6e2649 100644 (file)
--- a/src/rxgen/rpc_parse.c
+++ b/src/rxgen/rpc_parse.c
@@ -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)