diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-20 10:07:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-20 10:07:19 (GMT) |
| commit | b27acbe84f73b35a0b28f078eb6a758f26a57595 (patch) | |
| tree | 7c7ea7c9bbdbfbe030cf936560bcce477e3c0e78 /generic/tclEvent.c | |
| parent | 6643ceb1413079a9b7175b6c9fae4d81e0a0d40a (diff) | |
| download | tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.zip tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.tar.gz tcl-b27acbe84f73b35a0b28f078eb6a758f26a57595.tar.bz2 | |
More int/Tcl_Size backport
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 56004aa..41c8700 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -234,7 +234,8 @@ HandleBgErrors( Tcl_Preserve(assocPtr); Tcl_Preserve(interp); while (assocPtr->firstBgPtr != NULL) { - int code, prefixObjc; + int code; + Tcl_Size prefixObjc; Tcl_Obj **prefixObjv, **tempObjv; /* @@ -488,7 +489,7 @@ TclDefaultBgErrorHandlerObjCmd( } else { Tcl_DiscardInterpState(saved); Tcl_WriteChars(errChannel, - "bgerror failed to handle background error.\n",-1); + "bgerror failed to handle background error.\n", -1); Tcl_WriteChars(errChannel, " Original error: ", -1); Tcl_WriteObj(errChannel, tempObjv[1]); Tcl_WriteChars(errChannel, "\n", -1); @@ -1956,10 +1957,10 @@ Tcl_UpdateObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - int optionIndex; int flags = 0; /* Initialized to avoid compiler warning. */ static const char *const updateOptions[] = {"idletasks", NULL}; enum updateOptionsEnum {OPT_IDLETASKS}; + int optionIndex; if (objc == 1) { flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; @@ -2058,8 +2059,8 @@ int Tcl_CreateThread( Tcl_ThreadId *idPtr, /* Return, the ID of the thread */ Tcl_ThreadCreateProc *proc, /* Main() function of the thread */ - void *clientData, /* The one argument to Main() */ - int stackSize, /* Size of stack for the new thread */ + void *clientData, /* The one argument to Main() */ + Tcl_Size stackSize, /* Size of stack for the new thread */ int flags) /* Flags controlling behaviour of the new * thread. */ { |