Here's the patch to restore libpgtcl compatibility with Tcl-8.0, which was
lost in 7.4RC1 with my other patch to fix corrupt binary large-object reads
and writes. This patch is against PostgreSQL-7.4RC1. I've tested it with
Tcl-8.0.5 (minimally, since tcltest doesn't work with Tcl-8.0). At least I
can say it builds and handles binary large object data OK with Tcl-8.0.5.
Of course, it also builds and works with Tcl-8.4.4.
*** src/interfaces/libpgtcl/pgtclCmds.c.orig Thu Oct 30 19:18:55 2003
--- src/interfaces/libpgtcl/pgtclCmds.c Thu Nov 6 21:02:26 2003
***************
*** 1218,1224 ****
--- 1218,1228 ----
if (nbytes >= 0)
{
+ #if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1 || TCL_MAJOR_VERSION > 8
bufObj = Tcl_NewByteArrayObj(buf, nbytes);
+ #else
+ bufObj = Tcl_NewStringObj(buf, nbytes);
+ #endif
if (Tcl_ObjSetVar2(interp, bufVar, NULL, bufObj,
TCL_LEAVE_ERR_MSG |
TCL_PARSE_PART1) == NULL)
***************
*** 1313,1319 ****
--- 1317,1327 ----
if (Tcl_GetIntFromObj(interp, objv[2], &fd) != TCL_OK)
return TCL_ERROR;
+ #if TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 1 || TCL_MAJOR_VERSION > 8
buf = Tcl_GetByteArrayFromObj(objv[3], &nbytes);
+ #else
+ buf = Tcl_GetStringFromObj(objv[3], &nbytes);
+ #endif
if (Tcl_GetIntFromObj(interp, objv[4], &len) != TCL_OK)
return TCL_ERROR;
---------------------------(end of broadcast)---------------------------
TIP 7: don't forget to increase your free space map settings
