You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2017/08/04 18:32:10 UTC
svn commit: r1804149 - in /tcl/rivet/branches/cmake: ChangeLog
src/mod_rivet_ng/rivetCore.c
Author: mxmanghi
Date: Fri Aug 4 18:32:10 2017
New Revision: 1804149
URL: http://svn.apache.org/viewvc?rev=1804149&view=rev
Log:
* src/mod_rivet_ng/rivetCore.c: changes demanded by windows compiler
Modified:
tcl/rivet/branches/cmake/ChangeLog
tcl/rivet/branches/cmake/src/mod_rivet_ng/rivetCore.c
Modified: tcl/rivet/branches/cmake/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/cmake/ChangeLog?rev=1804149&r1=1804148&r2=1804149&view=diff
==============================================================================
--- tcl/rivet/branches/cmake/ChangeLog (original)
+++ tcl/rivet/branches/cmake/ChangeLog Fri Aug 4 18:32:10 2017
@@ -1,3 +1,6 @@
+2017-08-04 Massimo Manghi <mx...@apache.org>
+ * src/mod_rivet_ng/rivetCore.c: changes demanded by windows compiler
+
2017-08-04 Georgios Petasis <pe...@apache.org>
* cmake\CMakeLists.txt: Various changes for better support build under
Windows.
Modified: tcl/rivet/branches/cmake/src/mod_rivet_ng/rivetCore.c
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/cmake/src/mod_rivet_ng/rivetCore.c?rev=1804149&r1=1804148&r2=1804149&view=diff
==============================================================================
--- tcl/rivet/branches/cmake/src/mod_rivet_ng/rivetCore.c (original)
+++ tcl/rivet/branches/cmake/src/mod_rivet_ng/rivetCore.c Fri Aug 4 18:32:10 2017
@@ -1541,6 +1541,7 @@ TCL_CMD_HEADER( Rivet_InspectCmd )
if (STRNEQU(cmd_arg,"script"))
{
+ Tcl_Obj* cmd;
if (private != NULL)
{
@@ -1551,12 +1552,12 @@ TCL_CMD_HEADER( Rivet_InspectCmd )
}
}
- Tcl_Obj* cmd = Tcl_NewStringObj("info script",-1);
+ cmd = Tcl_NewStringObj("info script",-1);
Tcl_IncrRefCount(cmd);
status = Tcl_EvalObjEx(interp,cmd,TCL_EVAL_DIRECT);
- Tcl_DecrRefCount(cmd);
-
+ Tcl_DecrRefCount(cmd);
+
}
else if (STRNEQU(cmd_arg,"-all"))
{
@@ -1597,9 +1598,11 @@ TCL_CMD_HEADER( Rivet_InspectCmd )
}
else if (STRNEQU(cmd_arg,"exit"))
{
+ Tcl_Obj* exit_flag;
+
CHECK_REQUEST_REC(private,"::rivet::inspect")
/* thread exit status flag */
- Tcl_Obj* exit_flag = Tcl_NewIntObj(private->thread_exit);
+ exit_flag = Tcl_NewIntObj(private->thread_exit);
Tcl_IncrRefCount(exit_flag);
Tcl_SetObjResult(interp,exit_flag);
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org