paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-15 06:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: avoid stabs based BackTraceFunction on wince, until issue #14330 has been fixed, fixes for issue #15075

Browse Source 
git-svn-id: trunk@22786 -
This commit is contained in:
vincents 2009-11-26 07:22:12 +00:00
parent 543add952b
commit a94da35a04
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/lclproc.pas
View File

@ -1505,11 +1505,6 @@ begin
end; end;
procedure DumpExceptionBackTrace; procedure DumpExceptionBackTrace;
// Remove ifdef when bug 14330 is fixed
{$ifdef WinCE}
begin
end;
{$else}
var var
FrameCount: integer; FrameCount: integer;
Frames: PPointer; Frames: PPointer;
@ -1522,7 +1517,6 @@ begin
for FrameNumber := 0 to FrameCount-1 do for FrameNumber := 0 to FrameCount-1 do
DebugLn(BackTraceStrFunc(Frames[FrameNumber])); DebugLn(BackTraceStrFunc(Frames[FrameNumber]));
end; end;
{$endif}
procedure DumpStack; procedure DumpStack;
begin begin
@ -4473,6 +4467,13 @@ end;
initialization initialization
InitializeDebugOutput; InitializeDebugOutput;
{$ifdef WinCE}
// The stabs based back trace function crashes on wince,
// see http://bugs.freepascal.org/view.php?id=14330
// To prevent crashes, replace it with the default system back trace function
// that just outputs addresses and not source and line number
BackTraceStrFunc := @SysBackTraceStr;
{$endif}
InterfaceInitializationHandlers := TFPList.Create; InterfaceInitializationHandlers := TFPList.Create;
InterfaceFinalizationHandlers := TFPList.Create; InterfaceFinalizationHandlers := TFPList.Create;
{$IFDEF DebugLCLComponents} {$IFDEF DebugLCLComponents}