patch+build ceptcl

--- tclCep.c.orig       Wed Jan 24 07:06:50 2007
+++ tclCep.c    Wed Jan 24 07:09:08 2007
@@ -328,6 +328,7 @@
     char *tscript;
     int result;
     Tcl_Obj *cmd[4];
+       int i;
 
     acceptCallbackPtr = (AcceptCallback *) callbackData;
 
@@ -356,6 +357,10 @@
          cmd[3] = Tcl_NewIntObj(port);
        }
 
+       for (i = 0; i < 4; i++) {
+               Tcl_IncrRefCount(cmd[i]);
+        }
+
         Tcl_RegisterChannel(tinterp, chan);
 
         /*
@@ -370,6 +375,10 @@
         if (result != TCL_OK) {
             Tcl_BackgroundError(tinterp);
            Tcl_UnregisterChannel(tinterp, chan);
+        }
+
+       for (i = 0; i < 4; i++) {
+               Tcl_DecrRefCount(cmd[i]);
         }
 
         /*


gcc -pipe -DPACKAGE_NAME=\"ceptcl\" -DPACKAGE_TARNAME=\"ceptcl\" -DPACKAGE_VERSION=\"0.4\" -DPACKAGE_STRING=\"ceptcl\ 0.4\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DHAVE_GETPEEREID=1 -DTCL_WIDE_INT_TYPE=long\ long -DUSE_TCL_STUBS=1  -I"../generic" -I"/usr/local/include/tcl8.5"    -O2 -Wall -Wno-implicit-int -fPIC -c `echo ../generic/ceptcl.c` -o ceptcl.o
gcc -pipe -DPACKAGE_NAME=\"ceptcl\" -DPACKAGE_TARNAME=\"ceptcl\" -DPACKAGE_VERSION=\"0.4\" -DPACKAGE_STRING=\"ceptcl\ 0.4\" -DPACKAGE_BUGREPORT=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -DNO_VALUES_H=1 -DHAVE_LIMITS_H=1 -DHAVE_SYS_PARAM_H=1 -DHAVE_GETPEEREID=1 -DTCL_WIDE_INT_TYPE=long\ long -DUSE_TCL_STUBS=1  -I"../generic" -I"/usr/local/include/tcl8.5"    -O2 -Wall -Wno-implicit-int -fPIC -c `echo ../unix/ceptclUnix.c` -o ceptclUnix.o
rm -f libceptcl04.so.1.0
gcc -pipe -shared -fpic -o libceptcl04.so.1.0 ceptcl.o ceptclUnix.o  -L/usr/local/lib -ltclstub85