[Firebird-checkins] CVS: vulcan/src/jrd Procedure.cpp,1.10,1.11

[Ann W. H. <awh...@us...>]

Update of /cvsroot/firebird/vulcan/src/jrd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3551/src/jrd

Modified Files:
	Procedure.cpp 
Log Message:
Fix bug caused by incomplete procedure paramter lists

Index: Procedure.cpp
===================================================================
RCS file: /cvsroot/firebird/vulcan/src/jrd/Procedure.cpp,v
retrieving revision 1.10
retrieving revision 1.11
diff -b -U3 -r1.10 -r1.11
--- Procedure.cpp	27 Sep 2005 20:08:25 -0000	1.10
+++ Procedure.cpp	28 Sep 2005 21:52:31 -0000	1.11
@@ -107,14 +107,14 @@
 }
 
 //
-//  Add and output parameter
+//  Add an output parameter
 //
 
 void Procedure::setOutputParameter (ProcParam *parameter)
 {
 	ProcParam **ptr;
 	
-	for (ptr = &procOutputParams; *ptr && (*ptr)->paramId < parameter->paramId; ptr = &(*ptr)->paramNext)
+	for (ptr = &procOutputParams; *ptr; ptr = &(*ptr)->paramNext)
 		;
 	
 	*ptr = parameter;	
@@ -128,7 +128,7 @@
 {
 	ProcParam **ptr;
 	
-	for (ptr = &procInputParams; *ptr && (*ptr)->paramId < parameter->paramId; ptr = &(*ptr)->paramNext)
+	for (ptr = &procInputParams; *ptr; ptr = &(*ptr)->paramNext)
 		;
 	
 	*ptr = parameter;