Skip to content

P
Postgres FD Implementation
Commit 5680f879 authored by Bruce Momjian's avatar Bruce Momjian
Browse files
Options

Fix for array handling, from Gerhard Hintermayer

parent 1dfde614
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/interfaces/libpgtcl/pgtclCmds.c
View file @ 5680f879
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
* *
* *
* IDENTIFICATION * 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[]) ...@@ -645,7 +645,7 @@ Pg_result(ClientData cData, Tcl_Interp * interp, int argc, char *argv[])
#ifdef TCL_ARRAYS #ifdef TCL_ARRAYS
for (i = 0; i < PQnfields(result); i++) for (i = 0; i < PQnfields(result); i++)
{ {
Tcl_AppendElement(interp, tcl_value(PQgetvalue(result, tupno, i))); Tcl_AppendElement(interp, PQgetvalue(result,tupno,i));
} }
#else #else
/* Tcl_AppendResult(interp, PQgetvalue(result,tupno,0),NULL); */ /* Tcl_AppendResult(interp, PQgetvalue(result,tupno,0),NULL); */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment