add: Tcl_InitHashTable(&prebound, sizeof(struct sockaddr_in)/sizeof(int));
context: NsStopBinder(void){    Tcl_HashEntry *hPtr;    Tcl_HashSearch search;    char *addr;    int port, sock;    struct sockaddr_in *saPtr;    Ns_MutexLock(&lock);    hPtr = Tcl_FirstHashEntry(&prebound, &search);    while (hPtr != NULL) {	saPtr = (struct sockaddr_in *) Tcl_GetHashKey(&prebound, hPtr);	addr = ns_inet_ntoa(saPtr->sin_addr);	port = htons(saPtr->sin_port);	sock = (int) Tcl_GetHashValue(hPtr);	Ns_Log(Warning, "prebind: closed unused: %s:%d = %d", addr, port, sock);	close(sock);	hPtr = Tcl_NextHashEntry(&search);    }    Tcl_DeleteHashTable(&prebound);    Ns_MutexUnlock(&lock);}