From: <bi...@us...> - 2009-07-22 20:44:26
|
Revision: 4977 http://oorexx.svn.sourceforge.net/oorexx/?rev=4977&view=rev Author: bigrixx Date: 2009-07-22 20:44:19 +0000 (Wed, 22 Jul 2009) Log Message: ----------- [ oorexx-Bugs-2825519 ] raised condition trace back not displayed Modified Paths: -------------- main/branches/4.0beta/trunk/interpreter/concurrency/MessageDispatcher.cpp main/branches/4.0beta/trunk/interpreter/memory/MemorySegment.hpp Modified: main/branches/4.0beta/trunk/interpreter/concurrency/MessageDispatcher.cpp =================================================================== --- main/branches/4.0beta/trunk/interpreter/concurrency/MessageDispatcher.cpp 2009-07-22 06:49:41 UTC (rev 4976) +++ main/branches/4.0beta/trunk/interpreter/concurrency/MessageDispatcher.cpp 2009-07-22 20:44:19 UTC (rev 4977) @@ -40,6 +40,7 @@ #include "MessageDispatcher.hpp" #include "ProtectedObject.hpp" #include "MessageClass.hpp" +#include "RexxNativeActivation.hpp" /** @@ -65,5 +66,8 @@ ActivityDispatcher::handleError(-r, c); // tell the message object about the error message->error(c); + + // but also display the error so the user knows something has happened. + activity->error(activation, conditionData); } Modified: main/branches/4.0beta/trunk/interpreter/memory/MemorySegment.hpp =================================================================== --- main/branches/4.0beta/trunk/interpreter/memory/MemorySegment.hpp 2009-07-22 06:49:41 UTC (rev 4976) +++ main/branches/4.0beta/trunk/interpreter/memory/MemorySegment.hpp 2009-07-22 20:44:19 UTC (rev 4977) @@ -55,9 +55,13 @@ #ifdef __REXX64__ // default size for a segment allocation, we go larger on 64-bit #define SegmentSize (256*1024*2) +/* our threshold for moving to a larger block allocation scheme */ +#define LargeBlockThreshold 8192 #else /* default size for a segment allocation */ #define SegmentSize (256*1024) +/* our threshold for moving to a larger block allocation scheme */ +#define LargeBlockThreshold 4096 #endif /* Minimum size segment we'll allow */ #define MinimumSegmentSize (SegmentSize/2) @@ -76,8 +80,6 @@ #define LargestNormalSegmentSize (LargeObjectMinSize - (1024 * 1024) - MemorySegmentOverhead) -/* our threshold for moving to a larger block allocation scheme */ -#define LargeBlockThreshold 4096 /* Our threshold for deciding we're thrashing the garbage */ /* collector. We'll always just extend memory if we're below this */ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |