1
Fork 0
mirror of https://github.com/RGBCube/serenity synced 2025-07-27 15:07:45 +00:00

Port: Add port for tcl

This commit is contained in:
Gunnar Beutner 2021-04-25 09:42:02 +02:00 committed by Andreas Kling
parent 2447dcd1ea
commit cfa095b44a
3 changed files with 35 additions and 0 deletions

View file

@ -0,0 +1,27 @@
diff -Naur tcl8.6.11/unix/tclUnixSock.c tcl8.6.11.serenity/unix/tclUnixSock.c
--- tcl8.6.11/unix/tclUnixSock.c 2020-09-21 17:15:49.000000000 +0200
+++ tcl8.6.11.serenity/unix/tclUnixSock.c 2021-04-25 09:39:28.224340150 +0200
@@ -706,6 +706,7 @@
IPv6AddressNeedsNumericRendering(
struct in6_addr addr)
{
+#ifndef __serenity__
if (IN6_ARE_ADDR_EQUAL(&addr, &in6addr_any)) {
return 1;
}
@@ -716,11 +717,15 @@
*/
if (!IN6_IS_ADDR_V4MAPPED(&addr)) {
+#else
return 0;
+#endif
+#ifndef __serenity__
}
return (addr.s6_addr[12] == 0 && addr.s6_addr[13] == 0
&& addr.s6_addr[14] == 0 && addr.s6_addr[15] == 0);
+#endif
}
#if defined (__clang__) || ((__GNUC__) && ((__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ > 5))))
#pragma GCC diagnostic pop