summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tkTextIndex.c4
-rw-r--r--generic/tkTextMark.c4
-rw-r--r--generic/tkTextTag.c4
-rw-r--r--generic/tkTextWind.c3
-rw-r--r--generic/tkUndo.c12
5 files changed, 13 insertions, 14 deletions
diff --git a/generic/tkTextIndex.c b/generic/tkTextIndex.c
index b405880..ed52e98 100644
--- a/generic/tkTextIndex.c
+++ b/generic/tkTextIndex.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkTextIndex.c,v 1.19 2004/09/10 12:13:42 vincentdarley Exp $
+ * RCS: @(#) $Id: tkTextIndex.c,v 1.20 2004/10/05 01:26:10 hobbs Exp $
*/
#include "default.h"
@@ -731,7 +731,6 @@ GetIndex(interp, sharedPtr, textPtr, string, indexPtr, canCachePtr)
* we can cache the index (or NULL) */
{
char *p, *end, *endOfBase;
- Tcl_HashEntry *hPtr;
TkTextIndex first, last;
int wantLast, result;
char c;
@@ -777,6 +776,7 @@ GetIndex(interp, sharedPtr, textPtr, string, indexPtr, canCachePtr)
if (p != NULL) {
TkTextSearch search;
TkTextTag *tagPtr;
+ Tcl_HashEntry *hPtr = NULL;
CONST char *tagName;
if ((p[1] == 'f') && (strncmp(p+1, "first", 5) == 0)) {
diff --git a/generic/tkTextMark.c b/generic/tkTextMark.c
index a536f6c..234ccd7 100644
--- a/generic/tkTextMark.c
+++ b/generic/tkTextMark.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkTextMark.c,v 1.12 2004/09/10 12:13:42 vincentdarley Exp $
+ * RCS: @(#) $Id: tkTextMark.c,v 1.13 2004/10/05 01:26:10 hobbs Exp $
*/
#include "tkInt.h"
@@ -265,7 +265,7 @@ TkTextSetMark(textPtr, name, indexPtr)
CONST char *name; /* Name of mark to set. */
TkTextIndex *indexPtr; /* Where to set mark. */
{
- Tcl_HashEntry *hPtr;
+ Tcl_HashEntry *hPtr = NULL;
TkTextSegment *markPtr;
TkTextIndex insertIndex;
int new;
diff --git a/generic/tkTextTag.c b/generic/tkTextTag.c
index 41e61b1..eb09566 100644
--- a/generic/tkTextTag.c
+++ b/generic/tkTextTag.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkTextTag.c,v 1.18 2004/09/10 12:13:42 vincentdarley Exp $
+ * RCS: @(#) $Id: tkTextTag.c,v 1.19 2004/10/05 01:26:10 hobbs Exp $
*/
#include "default.h"
@@ -920,7 +920,7 @@ TkTextCreateTag(textPtr, tagName, newTag)
* or 0 if already exists. */
{
register TkTextTag *tagPtr;
- Tcl_HashEntry *hPtr;
+ Tcl_HashEntry *hPtr = NULL;
int new;
CONST char *name;
diff --git a/generic/tkTextWind.c b/generic/tkTextWind.c
index 5fd56e0..95dcf03 100644
--- a/generic/tkTextWind.c
+++ b/generic/tkTextWind.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkTextWind.c,v 1.13 2004/09/10 12:13:42 vincentdarley Exp $
+ * RCS: @(#) $Id: tkTextWind.c,v 1.14 2004/10/05 01:26:10 hobbs Exp $
*/
#include "tk.h"
@@ -1306,7 +1306,6 @@ EmbWinDelayedUnmap(clientData)
* be unmapped. */
{
TkTextEmbWindowClient *client = (TkTextEmbWindowClient*) clientData;
- TkTextSegment *ewPtr = client->parent;
if (!client->displayed && (client->tkwin != NULL)) {
if (client->textPtr->tkwin != Tk_Parent(client->tkwin)) {
diff --git a/generic/tkUndo.c b/generic/tkUndo.c
index 881bf28..0ddbdc5 100644
--- a/generic/tkUndo.c
+++ b/generic/tkUndo.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkUndo.c,v 1.5 2004/09/10 12:13:42 vincentdarley Exp $
+ * RCS: @(#) $Id: tkUndo.c,v 1.6 2004/10/05 01:26:10 hobbs Exp $
*/
#include "tkUndo.h"
@@ -642,21 +642,21 @@ TkUndoApply(stack)
*----------------------------------------------------------------------
*/
-static int
+static int
EvaluateActionList(interp, action)
Tcl_Interp *interp; /* Interpreter to evaluate the action in. */
TkUndoSubAtom *action; /* Head of linked list of action steps
* to perform. */
{
- int result;
-
+ int result = TCL_OK;
+
while (action != NULL) {
if (action->funcPtr != NULL) {
- result = (*action->funcPtr)(interp, action->clientData,
+ result = (*action->funcPtr)(interp, action->clientData,
action->action);
} else if (action->command != NULL) {
Tcl_Obj *cmdNameObj, *evalObj;
-
+
cmdNameObj = Tcl_NewObj();
evalObj = Tcl_NewObj();
Tcl_IncrRefCount(evalObj);