ports: Add tcl port

2025-06-28 20:53:27 +03:00
parent fe9a8b542a
commit a847823411
4 changed files with 75 additions and 0 deletions
--- a/ports/tcl/patches/0001-remove-ipv6.patch
+++ b/ports/tcl/patches/0001-remove-ipv6.patch
@@ -0,0 +1,21 @@
+diff -ruN tcl8.6.12/unix/tclUnixSock.c tcl8.6.12-banan_os/unix/tclUnixSock.c
+--- tcl8.6.12/unix/tclUnixSock.c	2021-10-29 20:08:08.000000000 +0300
+++ tcl8.6.12-banan_os/unix/tclUnixSock.c	2025-06-26 01:23:59.649074073 +0300
+@@ -706,6 +706,7 @@
+ IPv6AddressNeedsNumericRendering(
+     struct in6_addr addr)
+ {
+#ifndef __banan_os__
+     if (IN6_ARE_ADDR_EQUAL(&addr, &in6addr_any)) {
+         return 1;
+     }
+@@ -721,6 +722,9 @@
+ 
+     return (addr.s6_addr[12] == 0 && addr.s6_addr[13] == 0
+             && addr.s6_addr[14] == 0 && addr.s6_addr[15] == 0);
+#else
+    return 0;
+#endif
+ }
+ #if defined (__clang__) || ((__GNUC__)  && ((__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ > 5))))
+ #pragma GCC diagnostic pop