diff options
Diffstat (limited to 'src/interfaces')
| -rw-r--r-- | src/interfaces/ecpg/lib/execute.c | 6 | ||||
| -rw-r--r-- | src/interfaces/libpgtcl/pgtclCmds.c | 13 |
2 files changed, 11 insertions, 8 deletions
diff --git a/src/interfaces/ecpg/lib/execute.c b/src/interfaces/ecpg/lib/execute.c index 99177844717..a947e957a86 100644 --- a/src/interfaces/ecpg/lib/execute.c +++ b/src/interfaces/ecpg/lib/execute.c @@ -937,7 +937,7 @@ ECPGexecute(struct statement * stmt) break; case PGRES_COMMAND_OK: status = true; - sqlca.sqlerrd[1] = atol(PQoidStatus(results)); + sqlca.sqlerrd[1] = PQoidValue(results); sqlca.sqlerrd[2] = atol(PQcmdTuples(results)); ECPGlog("ECPGexecute line %d Ok: %s\n", stmt->lineno, PQcmdStatus(results)); if (!sqlca.sqlerrd[2] && (!strncmp(PQcmdStatus(results), "UPDATE", 6) @@ -1032,7 +1032,7 @@ ECPGdo(int lineno, const char *connection_name, char *query,...) * * Copyright (c) 2000, Christof Petig <christof.petig@wtal.de> * - * $Header: /cvsroot/pgsql/src/interfaces/ecpg/lib/Attic/execute.c,v 1.19 2001/03/22 04:01:19 momjian Exp $ + * $Header: /cvsroot/pgsql/src/interfaces/ecpg/lib/Attic/execute.c,v 1.20 2001/08/10 22:50:10 tgl Exp $ */ PGconn *ECPG_internal_get_connection(char *name); @@ -1101,7 +1101,7 @@ execute_descriptor(int lineno, const char *query break; case PGRES_COMMAND_OK: status = true; - sqlca.sqlerrd[1] = atol(PQoidStatus(results)); + sqlca.sqlerrd[1] = PQoidValue(results); sqlca.sqlerrd[2] = atol(PQcmdTuples(results)); ECPGlog("ECPGexecute line %d Ok: %s\n", lineno, PQcmdStatus(results)); break; diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c index bf9f56471f7..a87cb1842cb 100644 --- a/src/interfaces/libpgtcl/pgtclCmds.c +++ b/src/interfaces/libpgtcl/pgtclCmds.c @@ -8,7 +8,7 @@ * * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.55 2001/03/22 04:01:23 momjian Exp $ + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.56 2001/08/10 22:50:10 tgl Exp $ * *------------------------------------------------------------------------- */ @@ -574,7 +574,7 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char *argv[]) return PgGetConnByResultId(interp, argv[1]); else if (strcmp(opt, "-oid") == 0) { - Tcl_AppendResult(interp, PQoidStatus(result), 0); + sprintf(interp->result, "%u", PQoidValue(result)); return TCL_OK; } else if (strcmp(opt, "-clear") == 0) @@ -900,12 +900,15 @@ Pg_execute(ClientData cData, Tcl_Interp *interp, int argc, char *argv[]) /* * Set the oid variable to the returned oid of an INSERT statement if - * requested (or an empty string if it wasn't an INSERT) + * requested (or 0 if it wasn't an INSERT) */ if (oid_varname != NULL) { - if (Tcl_SetVar(interp, oid_varname, - PQoidStatus(result), TCL_LEAVE_ERR_MSG) != TCL_OK) + char oid_buf[32]; + + sprintf(oid_buf, "%u", PQoidValue(result)); + if (Tcl_SetVar(interp, oid_varname, oid_buf, + TCL_LEAVE_ERR_MSG) != TCL_OK) { PQclear(result); return TCL_ERROR; |