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: |
f1698392286fd6001edab05c50f32636 |
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
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; |
︙ | ︙ |