diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-08 08:40:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-08 08:40:13 (GMT) |
| commit | dc3f6d563581732f92fee45770fc0df934a6030a (patch) | |
| tree | 91576610da0facf523870237ac4f2ac93d66d598 /macosx | |
| parent | a98efaafa6b86209e60980fa6da27a6679d2ec6b (diff) | |
| parent | 343851002d0cb0f2939aaf96a761357f0b7c972f (diff) | |
| download | tcl-dc3f6d563581732f92fee45770fc0df934a6030a.zip tcl-dc3f6d563581732f92fee45770fc0df934a6030a.tar.gz tcl-dc3f6d563581732f92fee45770fc0df934a6030a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tclMacOSXFCmd.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c index b1961e9..a40fe3d 100644 --- a/macosx/tclMacOSXFCmd.c +++ b/macosx/tclMacOSXFCmd.c @@ -577,7 +577,7 @@ GetOSTypeFromObj( { int result = TCL_OK; - if (!TclHasIntRep(objPtr, &tclOSTypeType)) { + if (!TclHasInternalRep(objPtr, &tclOSTypeType)) { result = SetOSTypeFromAny(interp, objPtr); } *osTypePtr = (OSType) objPtr->internalRep.wideValue; @@ -660,7 +660,7 @@ SetOSTypeFromAny( (OSType) bytes[1] << 16 | (OSType) bytes[2] << 8 | (OSType) bytes[3]; - TclFreeIntRep(objPtr); + TclFreeInternalRep(objPtr); objPtr->internalRep.wideValue = (Tcl_WideInt) osType; objPtr->typePtr = &tclOSTypeType; } |