diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-04 21:52:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-04 21:52:10 (GMT) |
| commit | c565904256ce552372be8e3f3171082bb0cf51f7 (patch) | |
| tree | c44d1cb87ddb9ee27228b47fac1d2dd48b947de2 /macosx/tkMacOSXSend.c | |
| parent | 5a03048c707ee966457a12a6901c488012ecde2c (diff) | |
| download | tk-c565904256ce552372be8e3f3171082bb0cf51f7.zip tk-c565904256ce552372be8e3f3171082bb0cf51f7.tar.gz tk-c565904256ce552372be8e3f3171082bb0cf51f7.tar.bz2 | |
More serious elimination of -Wconversion C warnings
Diffstat (limited to 'macosx/tkMacOSXSend.c')
| -rw-r--r-- | macosx/tkMacOSXSend.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/macosx/tkMacOSXSend.c b/macosx/tkMacOSXSend.c index 1b3e2b3..101da1d 100644 --- a/macosx/tkMacOSXSend.c +++ b/macosx/tkMacOSXSend.c @@ -209,7 +209,8 @@ Tk_SetAppName( { TkWindow *winPtr = (TkWindow *) tkwin; Tcl_Interp *interp = winPtr->mainPtr->interp; - int i, suffix, offset, result; + int suffix, result; + Tcl_Size i, offset; RegisteredInterp *riPtr, *prevPtr; const char *actualName; Tcl_DString dString; @@ -260,7 +261,7 @@ Tk_SetAppName( interpName = Tcl_GetString(interpNamePtr); if (strcmp(actualName, interpName) == 0) { if (suffix == 1) { - Tcl_DStringAppend(&dString, name, -1); + Tcl_DStringAppend(&dString, name, TCL_INDEX_NONE); Tcl_DStringAppend(&dString, " #", 2); offset = Tcl_DStringLength(&dString); Tcl_DStringSetLength(&dString, offset + TCL_INTEGER_SPACE); @@ -473,7 +474,7 @@ TkGetInterpNames( riPtr = interpListPtr; while (riPtr != NULL) { Tcl_ListObjAppendElement(interp, listObjPtr, - Tcl_NewStringObj(riPtr->name, -1)); + Tcl_NewStringObj(riPtr->name, TCL_INDEX_NONE)); riPtr = riPtr->nextPtr; } |