Restore compatibility with Tcl 8.0.* --- from ljb.

diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index b6182da965dad9294523267dc1061936cf813ea7..d5fa71b4780c3a3523127c27c7be344182a22b87 100644 (file)
--- a/src/interfaces/libpgtcl/pgtclCmds.c
+++ b/src/interfaces/libpgtcl/pgtclCmds.c
@@ -1218,7 +1218,11 @@ Pg_lo_read(ClientData cData, Tcl_Interp *interp, int objc,
 
        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,7 +1317,11 @@ Pg_lo_write(ClientData cData, Tcl_Interp *interp, int objc,
        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;