Tcl Source Code

Check-in [d3a21d1def]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:lint
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: d3a21d1def49ec37661de225cef54bea6b740844
User & Date: stanton 1999-03-25 23:27:49
Context
1999-03-25
23:28
* generic/tclPkg.c (Tcl_PkgRequireEx): Fixed broken clientData initialization in package code. check-in: dab64840b0 user: stanton tags: core-8-1-branch-old
23:27
lint check-in: d3a21d1def user: stanton tags: core-8-1-branch-old
22:44
Fixed quoting typo on LD_SEARCH_FLAGS definition for Linux check-in: 17c61a9303 user: welch tags: core-8-1-branch-old
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to unix/tclUnixSock.c.

     4      4    *	This file contains Unix-specific socket related code.
     5      5    *
     6      6    * Copyright (c) 1995 Sun Microsystems, Inc.
     7      7    *
     8      8    * See the file "license.terms" for information on usage and redistribution
     9      9    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    10     10    *
    11         - * RCS: @(#) $Id: tclUnixSock.c,v 1.1.2.6 1999/03/10 06:49:29 stanton Exp $
           11  + * RCS: @(#) $Id: tclUnixSock.c,v 1.1.2.7 1999/03/25 23:27:49 stanton Exp $
    12     12    */
    13     13   
    14     14   #include "tcl.h"
    15     15   #include "tclPort.h"
    16     16   
    17     17   /*
    18     18    * There is no portable macro for the maximum length
................................................................................
    67     67   {
    68     68   #ifndef NO_UNAME
    69     69       struct utsname u;
    70     70       struct hostent *hp;
    71     71   #else
    72     72       char buffer[sizeof(hostname)];
    73     73   #endif
    74         -    char *native;
           74  +    CONST char *native;
    75     75   
    76     76       Tcl_MutexLock(&hostMutex);
    77     77       if (hostnameInited) {
    78     78   	Tcl_MutexUnlock(&hostMutex);
    79     79           return hostname;
    80     80       }
    81     81