From 17a2efee72c4624cd964a07d8e18dca02c985f20 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 20 Aug 2025 21:53:34 +0000 Subject: Keep all macos < 11 handling as it was --- library/platform/platform.tcl | 14 ++++---------- 1 file 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}" -- cgit v0.12