fix tcl panic issue

wjoye · Sep 24, 2020 · 3f63e1a · 3f63e1a
1 parent 1749eff
commit 3f63e1a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/generic/tkTableTag.c b/generic/tkTableTag.c
@@ -212,7 +212,7 @@ TableResetTag(Table *tablePtr, TableTag *tagPtr)
     TableJoinTag *jtagPtr = (TableJoinTag *) tagPtr;
 
     if (jtagPtr->magic != 0x99ABCDEF) {
-      Tcl_panicVA("bad mojo in TableResetTag",NULL);
+      Tcl_PanicVA("bad mojo in TableResetTag",NULL);
     }
 
     memset((VOID *) jtagPtr, 0, sizeof(TableJoinTag));
@@ -269,7 +269,7 @@ TableMergeTag(Table *tablePtr, TableTag *baseTag, TableTag *addTag)
     unsigned int prio;
 
     if (jtagPtr->magic != 0x99ABCDEF) {
-      Tcl_panicVA("bad mojo in TableMergeTag",NULL);
+      Tcl_PanicVA("bad mojo in TableMergeTag",NULL);
     }
 
 #ifndef NO_TAG_PRIORITIES
@@ -432,7 +432,7 @@ TableGetTagBorders(TableTag *tagPtr,
 	    if (bottom)	{ *bottom	= tagPtr->bd[3]; }
 	    break;
 	default:
-	    Tcl_panicVA("invalid border value '%d'\n", tagPtr->borders);
+	    Tcl_PanicVA("invalid border value '%d'\n", tagPtr->borders);
 	    break;
     }
     return tagPtr->borders;

diff --git a/generic/tkTableUtil.c b/generic/tkTableUtil.c
@@ -105,7 +105,7 @@ TableOptionBdSet(clientData, interp, tkwin, value, widgRec, offset)
 	bordersPtr	= &(tagPtr->borders);
 	bdPtr		= tagPtr->bd;
     } else {
-      Tcl_panicVA("invalid type given to TableOptionBdSet\n",NULL);
+      Tcl_PanicVA("invalid type given to TableOptionBdSet\n",NULL);
 	return TCL_ERROR; /* lint */
     }
 
@@ -188,7 +188,7 @@ TableOptionBdGet(clientData, tkwin, widgRec, offset, freeProcPtr)
     } else if (type == BD_TABLE_WIN) {
 	return ((TableEmbWindow *) widgRec)->borderStr;
     } else {
-      Tcl_panicVA("invalid type given to TableOptionBdSet\n",NULL);
+      Tcl_PanicVA("invalid type given to TableOptionBdSet\n",NULL);
 	return NULL; /* lint */
     }
 }