diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-20 20:07:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-20 20:07:43 (GMT) |
| commit | 7f501d47e49a907edfed23308a3ee312b1f197ae (patch) | |
| tree | 4412d9a45167b471a9b3efb92230e9d46d6321f8 /generic/tclProcess.c | |
| parent | ba0c330c3128eee0fe98345697130ebfdc20cd9b (diff) | |
| download | tcl-7f501d47e49a907edfed23308a3ee312b1f197ae.zip tcl-7f501d47e49a907edfed23308a3ee312b1f197ae.tar.gz tcl-7f501d47e49a907edfed23308a3ee312b1f197ae.tar.bz2 | |
Fix TclpGetPid() signature (should use Tcl_Size, not size_t)
Diffstat (limited to 'generic/tclProcess.c')
| -rw-r--r-- | generic/tclProcess.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclProcess.c b/generic/tclProcess.c index b621e31..b16c73d 100644 --- a/generic/tclProcess.c +++ b/generic/tclProcess.c @@ -44,10 +44,10 @@ TCL_DECLARE_MUTEX(infoTablesMutex) */ static void InitProcessInfo(ProcessInfo *info, Tcl_Pid pid, - int resolvedPid); + Tcl_Size resolvedPid); static void FreeProcessInfo(ProcessInfo *info); static int RefreshProcessInfo(ProcessInfo *info, int options); -static TclProcessWaitStatus WaitProcessStatus(Tcl_Pid pid, size_t resolvedPid, +static TclProcessWaitStatus WaitProcessStatus(Tcl_Pid pid, Tcl_Size resolvedPid, int options, int *codePtr, Tcl_Obj **msgPtr, Tcl_Obj **errorObjPtr); static Tcl_Obj * BuildProcessStatusObj(ProcessInfo *info); @@ -76,7 +76,7 @@ void InitProcessInfo( ProcessInfo *info, /* Structure to initialize. */ Tcl_Pid pid, /* Process id. */ - int resolvedPid) /* Resolved process id. */ + Tcl_Size resolvedPid) /* Resolved process id. */ { info->pid = pid; info->resolvedPid = resolvedPid; @@ -185,7 +185,7 @@ RefreshProcessInfo( TclProcessWaitStatus WaitProcessStatus( Tcl_Pid pid, /* Process id. */ - size_t resolvedPid, /* Resolved process id. */ + Tcl_Size resolvedPid, /* Resolved process id. */ int options, /* Options passed to Tcl_WaitPid. */ int *codePtr, /* If non-NULL, will receive either: * - 0 for normal exit. @@ -789,7 +789,7 @@ void TclProcessCreated( Tcl_Pid pid) /* Process id. */ { - size_t resolvedPid; + Tcl_Size resolvedPid; Tcl_HashEntry *entry, *entry2; int isNew; ProcessInfo *info; |