gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-05-30 16:30:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add GSExceptionStackTrace user default setting

Browse source
This commit is contained in:
Richard Frith-Macdonald 2018-06-12 16:43:15 +01:00
parent 62511eeca2
commit 3b1324d73d
5 changed files with 36 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Source/NSException.m
View file

@ -1311,7 +1311,8 @@ _NSFoundationUncaughtExceptionHandler (NSException *exception)
GSPrivateArgZero(),
[[exception name] lossyCString], [[exception reason] lossyCString]);
fflush(stderr); /* NEEDED UNDER MINGW */
if (GSPrivateEnvironmentFlag("GNUSTEP_STACK_TRACE", NO) == YES)
if (GSPrivateEnvironmentFlag("GNUSTEP_STACK_TRACE", NO) == YES
|| GSPrivateDefaultsFlag(GSExceptionStackTrace) == YES)
{
fprintf(stderr, "Stack\n%s\n",
[[[exception _callStack] description] lossyCString]);
@ -1462,7 +1463,8 @@ callUncaughtHandler(id value)
if (_reserved != 0)
{
if (_e_stack != nil
&& GSPrivateEnvironmentFlag("GNUSTEP_STACK_TRACE", NO) == YES)
&& (GSPrivateEnvironmentFlag("GNUSTEP_STACK_TRACE", NO) == YES
|| GSPrivateDefaultsFlag(GSExceptionStackTrace) == YES))
{
if (_e_info != nil)
{