*** empty log message ***

src/interfaces/ecpg/ChangeLog

@@ -559,6 +559,10 @@ Mon Apr 12 17:56:14 CEST 1999
 Wed Apr 14 17:59:06 CEST 1999
 
 	- Added simple calculations for array bounds.
+
+Fri Apr 16 18:25:18 CEST 1999
+
+	- Fixed small bug in ECPGfinish().
 	- Set library version to 3.0.0
 	- Set ecpg version to 2.6.0
 

src/interfaces/ecpg/lib/ecpglib.c

@@ -149,26 +149,21 @@ ECPGfinish(struct connection * act)
 		PQfinish(act->connection);
 		/* remove act from the list */
 		if (act == all_connections)
-		{
 			all_connections = act->next;
-			free(act->name);
-			free(act);
-		}
 		else
 		{
 			struct connection *con;
 
 			for (con = all_connections; con->next && con->next != act; con = con->next);
 			if (con->next)
-			{
 				con->next = act->next;
-				free(act->name);
-				free(act);
-			}
 		}
 
 		if (actual_connection == act)
 			actual_connection = all_connections;
+			
+		free(act->name);
+		free(act);
 	}
 	else
 		ECPGlog("ECPGfinish: called an extra time.\n");

src/interfaces/ecpg/preproc/pgc.l

@@ -533,6 +533,12 @@ cppline		{space}*#.*(\\{space}*\n)*\n*
 <C>";"	      	        { return(';'); }
 <C>","	      	        { return(','); }
 <C>"*"	      	        { return('*'); }
+<C>"%"	      	        { return('%'); }
+<C>"/"	      	        { return('/'); }
+<C>"+"	      	        { return('+'); }
+<C>"-"	      	        { return('-'); }
+<C>"("	      	        { return('('); }
+<C>")"	      	        { return(')'); }
 <C>{space}		{ ECHO; }
 <C>\{			{ return('{'); }
 <C>\}			{ return('}'); }

src/interfaces/ecpg/preproc/preproc.y

@@ -3218,12 +3218,12 @@ nest_array_bounds:	'[' ']' nest_array_bounds
 
 Iresult:	Iconst			{ $$ = atol($1); }
 	|	'(' Iresult ')'		{ $$ = $2; }
-	|	Iresult '+' Iresult	{ $$ = $1 + $3};
-	|	Iresult '-' Iresult	{ $$ = $1 - $3};
-	|	Iresult '*' Iresult	{ $$ = $1 * $3};
-	|	Iresult '/' Iresult	{ $$ = $1 / $3};
-	|	Iresult '%' Iresult	{ $$ = $1 % $3};
-
+	|	Iresult '+' Iresult	{ $$ = $1 + $3; }
+	|	Iresult '-' Iresult	{ $$ = $1 - $3; }
+	|	Iresult '*' Iresult	{ $$ = $1 * $3; }
+	|	Iresult '/' Iresult	{ $$ = $1 / $3; }
+	|	Iresult '%' Iresult	{ $$ = $1 % $3; }
+	;
 
 
 /*****************************************************************************