Tcl Source Code

Check-in [f169839228]
Login

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

Overview
Comment:Silence some compiler warnings.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-4-branch
Files: files | file ages | folders
SHA1: f1698392286fd6001edab05c50f3263682f49c9a
User & Date: dgp 2013-01-24 18:47:18
Context
2013-01-24
21:28
revert [273bbe926d]: it doesn't work on i386 check-in: 47af426282 user: jan.nijtmans tags: core-8-4-branch
19:09
Silence come compiler warnings. check-in: 846d6d7575 user: dgp tags: core-8-5-branch
18:47
Silence some compiler warnings. check-in: f169839228 user: dgp tags: core-8-4-branch
2013-01-23
13:57
Protect Tcl_GetIndexFromObjStruct from invalid "offset" values, like 0 or -1. Undocumented, because ... check-in: d72e9c88d9 user: jan.nijtmans tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCkalloc.c.

145
146
147
148
149
150
151




152
153
154
155
156
157
158
 */
void
TclInitDbCkalloc()
{
    if (!ckallocInit) {
	ckallocInit = 1;
	ckallocMutexPtr = Tcl_GetAllocMutex();




    }
}

/*
 *----------------------------------------------------------------------
 *
 * TclDumpMemoryInfo --







>
>
>
>







145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
 */
void
TclInitDbCkalloc()
{
    if (!ckallocInit) {
	ckallocInit = 1;
	ckallocMutexPtr = Tcl_GetAllocMutex();
#ifndef TCL_THREADS
	/* Silence compiler warning */
	(void)ckallocMutexPtr;
#endif
    }
}

/*
 *----------------------------------------------------------------------
 *
 * TclDumpMemoryInfo --

Changes to generic/tclExecute.c.

5114
5115
5116
5117
5118
5119
5120



5121
5122
5123
5124
5125
5126
5127
	int length, result = TCL_OK;
	char *s = Tcl_GetStringFromObj(objPtr, &length);
	
	if (TclLooksLikeInt(s, length)) {
	    long i;
	    Tcl_WideInt w;
	    GET_WIDE_OR_INT(result, objPtr, i, w);



	} else {
	    double d;
	    result = Tcl_GetDoubleFromObj((Tcl_Interp *) NULL, objPtr, &d);
	}
	if ((result != TCL_OK) && (interp != NULL)) {
	    Tcl_ResetResult(interp);
	    if (TclCheckBadOctal((Tcl_Interp *) NULL, s)) {







>
>
>







5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
	int length, result = TCL_OK;
	char *s = Tcl_GetStringFromObj(objPtr, &length);
	
	if (TclLooksLikeInt(s, length)) {
	    long i;
	    Tcl_WideInt w;
	    GET_WIDE_OR_INT(result, objPtr, i, w);
	    /* Quiet cranky old compilers that complain about
	     * setting i, but not using it. */
	   (void)i;
	} else {
	    double d;
	    result = Tcl_GetDoubleFromObj((Tcl_Interp *) NULL, objPtr, &d);
	}
	if ((result != TCL_OK) && (interp != NULL)) {
	    Tcl_ResetResult(interp);
	    if (TclCheckBadOctal((Tcl_Interp *) NULL, s)) {

Changes to generic/tclFileName.c.

1780
1781
1782
1783
1784
1785
1786

1787

1788
1789
1790

1791
1792
1793

1794
1795
1796
1797
1798
1799
1800
				 * Must not be a pointer to a static string. */
    Tcl_GlobTypeData *types;	/* List object containing list of acceptable 
                            	 * types. May be NULL. */
{
    int baseLength, quoted, count;
    int result = TCL_OK;
    char *name, *p, *openBrace, *closeBrace, *firstSpecialChar, savedChar;

    char lastChar = 0;

    
    int length = Tcl_DStringLength(headPtr);


    if (length > 0) {
	lastChar = Tcl_DStringValue(headPtr)[length-1];
    }


    /*
     * Consume any leading directory separators, leaving tail pointing
     * just past the last initial separator.
     */

    count = 0;







>

>



>



>







1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
				 * Must not be a pointer to a static string. */
    Tcl_GlobTypeData *types;	/* List object containing list of acceptable 
                            	 * types. May be NULL. */
{
    int baseLength, quoted, count;
    int result = TCL_OK;
    char *name, *p, *openBrace, *closeBrace, *firstSpecialChar, savedChar;
    /*
    char lastChar = 0;
    */
    
    int length = Tcl_DStringLength(headPtr);

    /*
    if (length > 0) {
	lastChar = Tcl_DStringValue(headPtr)[length-1];
    }
    */

    /*
     * Consume any leading directory separators, leaving tail pointing
     * just past the last initial separator.
     */

    count = 0;