You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2002/07/25 01:13:03 UTC
cvs commit: tcl-websh/src/generic tclAppInit.c web.c web.h
ronnie 2002/07/24 16:13:03
Modified: src/generic tclAppInit.c web.c web.h
Log:
- fixed core dump (not a good idea to add more params to Websh_Init)
Revision Changes Path
1.4 +2 -2 tcl-websh/src/generic/tclAppInit.c
Index: tclAppInit.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/tclAppInit.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- tclAppInit.c 24 Jul 2002 22:30:39 -0000 1.3
+++ tclAppInit.c 24 Jul 2002 23:13:03 -0000 1.4
@@ -178,7 +178,7 @@
*
* where "Mod" is the name of the module.
*/
- if (Websh_Init(interp, 1) == TCL_ERROR) {
+ if (Websh_Init(interp) == TCL_ERROR) {
return TCL_ERROR;
}
1.5 +5 -2 tcl-websh/src/generic/web.c
Index: web.c
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/web.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- web.c 24 Jul 2002 22:30:39 -0000 1.4
+++ web.c 24 Jul 2002 23:13:03 -0000 1.5
@@ -21,14 +21,17 @@
/* ----------------------------------------------------------------------------
* init --
* ------------------------------------------------------------------------- */
-int Websh_Init(Tcl_Interp * interp, int initial)
+int Websh_Init(Tcl_Interp * interp)
{
UrlData *urlData;
RequestData *requestData;
+ int initial;
if (interp == NULL)
return TCL_ERROR;
+
+ initial = (Tcl_GetMaster(interp) == NULL);
/* --------------------------------------------------------------------------
* stubs
1.5 +2 -2 tcl-websh/src/generic/web.h
Index: web.h
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/web.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- web.h 24 Jul 2002 22:30:39 -0000 1.4
+++ web.h 24 Jul 2002 23:13:03 -0000 1.5
@@ -32,7 +32,7 @@
#include "filecounter.h"
#include "modwebsh.h"
-int Websh_Init(Tcl_Interp * interp, int initial);
+int Websh_Init(Tcl_Interp * interp);
int Script_Init(Tcl_Interp * interp);
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org