Posted to tcl by Stu at Tue Apr 29 22:41:48 GMT 2008view raw
- --- 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