diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-28 15:51:02 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-28 15:51:02 (GMT) |
| commit | ae7471ec7ee7c03de40fa1c899e56e31ddf7323f (patch) | |
| tree | 90b52c22774d7435c31a6ad310a97132fed77036 /generic/tclObj.c | |
| parent | 861b69164d829d247b7d86a50ebf1821ef441118 (diff) | |
| parent | e253c3eed9122505c8c33fa337ccab63a75675c2 (diff) | |
| download | tcl-ae7471ec7ee7c03de40fa1c899e56e31ddf7323f.zip tcl-ae7471ec7ee7c03de40fa1c899e56e31ddf7323f.tar.gz tcl-ae7471ec7ee7c03de40fa1c899e56e31ddf7323f.tar.bz2 | |
A bunch of 64 bit fixes (int->Tcl_Size) and the like.
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 784162e..8b0aa47 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -555,13 +555,13 @@ ContLineLoc * TclContinuationsEnter( Tcl_Obj *objPtr, Tcl_Size num, - int *loc) + Tcl_Size *loc) { int newEntry; ThreadSpecificData *tsdPtr = TclGetContLineTable(); Tcl_HashEntry *hPtr = Tcl_CreateHashEntry(tsdPtr->lineCLPtr, objPtr, &newEntry); - ContLineLoc *clLocPtr = (ContLineLoc *)Tcl_Alloc(offsetof(ContLineLoc, loc) + (num + 1U) *sizeof(int)); + ContLineLoc *clLocPtr = (ContLineLoc *)Tcl_Alloc(offsetof(ContLineLoc, loc) + (num + 1U) *sizeof(Tcl_Size)); if (!newEntry) { /* @@ -589,7 +589,7 @@ TclContinuationsEnter( } clLocPtr->num = num; - memcpy(&clLocPtr->loc, loc, num*sizeof(int)); + memcpy(&clLocPtr->loc, loc, num*sizeof(Tcl_Size)); clLocPtr->loc[num] = CLL_END; /* Sentinel */ Tcl_SetHashValue(hPtr, clLocPtr); @@ -618,12 +618,12 @@ TclContinuationsEnter( void TclContinuationsEnterDerived( Tcl_Obj *objPtr, - int start, - int *clNext) + Tcl_Size start, + Tcl_Size *clNext) { Tcl_Size length; - int end, num; - int *wordCLLast = clNext; + Tcl_Size end, num; + Tcl_Size *wordCLLast = clNext; /* * We have to handle invisible continuations lines here as well, despite @@ -666,7 +666,7 @@ TclContinuationsEnterDerived( num = wordCLLast - clNext; if (num) { - int i; + Tcl_Size i; ContLineLoc *clLocPtr = TclContinuationsEnter(objPtr, num, clNext); /* |