diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-08-20 21:53:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-08-20 21:53:34 (GMT) |
| commit | 17a2efee72c4624cd964a07d8e18dca02c985f20 (patch) | |
| tree | abfbbd58ef260addf68896bd48f914348235a284 | |
| parent | c7706471adbd05bf2150297c58e47b27dc2d5be7 (diff) | |
| download | tcl-17a2efee72c4624cd964a07d8e18dca02c985f20.zip tcl-17a2efee72c4624cd964a07d8e18dca02c985f20.tar.gz tcl-17a2efee72c4624cd964a07d8e18dca02c985f20.tar.bz2 | |
Keep all macos < 11 handling as it was
| -rw-r--r-- | library/platform/platform.tcl | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl index 9bbc7be..d188a5e 100644 --- a/library/platform/platform.tcl +++ b/library/platform/platform.tcl @@ -124,7 +124,7 @@ proc ::platform::generic {} { } darwin { set major [lindex [split $tcl_platform(osVersion) .] 0] - if {$major > 15} { + if {$major > 19} { set plat macos } else { set plat macosx @@ -184,20 +184,14 @@ proc ::platform::identify {} { } macos* { set major [lindex [split $tcl_platform(osVersion) .] 0] - incr major - if {$major > 21} { + if {$major > 19} { + incr major if {$major < 26} { incr major -10 } append plat $major - } elseif {$major > 20} { - set minor [lindex [split $tcl_platform(osVersion) .] 1] - if {$major < 14} { - incr minor -1 - } - append plat $major.$minor } else { - incr major -5 + incr major -4 append plat 10.$major } return "${plat}-${cpu}" |