Cherry pick a fix for llvm 22 from:

http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commit/176c45720f3b9e5555fe1084d3e6ea59488c1785

Index: src/tk/tkrawtcp.c
--- src/tk/tkrawtcp.c.orig
+++ src/tk/tkrawtcp.c
@@ -43,6 +43,7 @@ static char rcsid[] = "...";
 #include <sys/un.h>
 
 #include <tk.h>
+#include "tkint.h"
 
 static int inet_connect _ANSI_ARGS_((char *host, char *port,int server));
 static int unix_connect _ANSI_ARGS_((char *path, int server));
@@ -205,7 +206,7 @@ Tcp_ConnectCmd(notUsed, interp, argc, argv)
 	Tcl_SetVar2(interp,"connect_info",interp->result,buf,TCL_GLOBAL_ONLY);
     }
 
-    Tcp_MakeOpenFile(iPtr,fd,1,1-server);
+    Tcp_MakeOpenFile(interp,fd,1,1-server);
 
     return TCL_OK;
 }
@@ -363,7 +364,7 @@ Tcp_AcceptCmd(notUsed, interp, argc, argv)
     /*
      * Create the FILE*
      */
-    Tcp_MakeOpenFile(iPtr,fd,1,1);
+    Tcp_MakeOpenFile(interp,fd,1,1);
 
     sprintf(interp->result, "file%d", fd);
     return TCL_OK;
