Fix for array handling, from Gerhard Hintermayer

bmomjian · bmomjian · commit 5680f8795f9e · 1997-10-30T05:00:56.000Z
diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.16 1997/09/25 15:48:51 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.17 1997/10/30 05:00:56 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -645,7 +645,7 @@ Pg_result(ClientData cData, Tcl_Interp * interp, int argc, char *argv[])
 #ifdef TCL_ARRAYS
 		for (i = 0; i < PQnfields(result); i++)
 		{
-			Tcl_AppendElement(interp, tcl_value(PQgetvalue(result, tupno, i)));
+			Tcl_AppendElement(interp, PQgetvalue(result,tupno,i));
 		}
 #else
 /*		Tcl_AppendResult(interp, PQgetvalue(result,tupno,0),NULL); */

Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@`
`7`	`7`	`*`
`8`	`8`	`*`
`9`	`9`	`* IDENTIFICATION`
`10`		`- * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.16 1997/09/25 15:48:51 momjian Exp $`
	`10`	`+ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.17 1997/10/30 05:00:56 momjian Exp $`
`11`	`11`	`*`
`12`	`12`	`*-------------------------------------------------------------------------`
`13`	`13`	`*/`
`@@ -645,7 +645,7 @@ Pg_result(ClientData cData, Tcl_Interp * interp, int argc, char *argv[])`
`645`	`645`	`#ifdef TCL_ARRAYS`
`646`	`646`	`for (i = 0; i < PQnfields(result); i++)`
`647`	`647`	`{`
`648`		`- Tcl_AppendElement(interp, tcl_value(PQgetvalue(result, tupno, i)));`
	`648`	`+ Tcl_AppendElement(interp, PQgetvalue(result,tupno,i));`
`649`	`649`	`}`
`650`	`650`	`#else`
`651`	`651`	`/* Tcl_AppendResult(interp, PQgetvalue(result,tupno,0),NULL); */`