Tcl Source Code

Check-in [dea7c55032]
Login

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

Overview
Comment:[Bug 3205320]: stack space detection defeated by inlining. Now fixed in the cross-compile case as well.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: dea7c55032b3dcb5b0692cb991bd9ce485f34229
User & Date: jan.nijtmans 2013-04-03 13:26:16
Context
2013-04-03
20:48
some more "ignore-glob" patterns check-in: ce6095ab91 user: jan.nijtmans tags: core-8-5-branch
13:27
merge-mark check-in: 48f5143259 user: jan.nijtmans tags: trunk
13:26
[Bug 3205320]: stack space detection defeated by inlining. Now fixed in the cross-compile case as we... check-in: dea7c55032 user: jan.nijtmans tags: core-8-5-branch
13:12
merge release to 8.5 check-in: 477fb34842 user: dgp tags: core-8-5-branch
2013-04-02
10:57
Prevent inlining of StackGrowsDown(), in case of cross-compiling Closed-Leaf check-in: e0c216c183 user: jan.nijtmans tags: prevent-inline
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.







1
2
3
4
5
6
7
8






2013-03-29  Don Porter  <[email protected]>

	*** 8.5.14 TAGGED FOR RELEASE ***

	* generic/tcl.h:	Bump to 8.5.14 for release.
	* library/init.tcl:
	* tools/tcl.wse.in:
	* unix/configure.in:
>
>
>
>
>
>
|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
2013-04-03  Jan Nijtmans  <[email protected]>

	* unix/tclUnixInit.c: [Bug 3205320]: stack space detection
	defeated by inlining. Now fixed in the cross-compile
	case as well.

2013-04-03  Don Porter  <[email protected]>

	*** 8.5.14 TAGGED FOR RELEASE ***

	* generic/tcl.h:	Bump to 8.5.14 for release.
	* library/init.tcl:
	* tools/tcl.wse.in:
	* unix/configure.in:

Changes to unix/tclUnixInit.c.

1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
				 * impact on the stack. */
#ifdef TCL_CROSS_COMPILE
    if (stackGrowsDown == -1) {
	/*
	 * Not initialised!
	 */

	stackGrowsDown = StackGrowsDown(&result);
    }
#endif
    
    /*
     * The first time through in a thread: record the "outermost" stack
     * frame and inquire with the OS about the stack size.
     */







|







1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
				 * impact on the stack. */
#ifdef TCL_CROSS_COMPILE
    if (stackGrowsDown == -1) {
	/*
	 * Not initialised!
	 */

	stackGrowsDown = StackGrowsDown(NULL);
    }
#endif
    
    /*
     * The first time through in a thread: record the "outermost" stack
     * frame and inquire with the OS about the stack size.
     */
1182
1183
1184
1185
1186
1187
1188



1189
1190
1191
1192
1193
1194
1195

#ifdef TCL_CROSS_COMPILE
int
StackGrowsDown(
    int *parent)
{
    int here;



    return (&here < parent);
}
#endif

/*
 *----------------------------------------------------------------------
 *







>
>
>







1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198

#ifdef TCL_CROSS_COMPILE
int
StackGrowsDown(
    int *parent)
{
    int here;
    if (!parent) {
	return StackGrowsDown(&here);
    }
    return (&here < parent);
}
#endif

/*
 *----------------------------------------------------------------------
 *