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

LCL: removed fpc 2.0.2 workaround and added dumpstack trace when an exception occurs while translating.

Browse Source 
git-svn-id: trunk@10972 -
This commit is contained in:
vincents 2007-04-19 09:23:26 +00:00
parent a9aeafd85d
commit 946c1b17f0
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/translations.pas
View File

@ -35,12 +35,6 @@ unit Translations;
{$mode objfpc}{$H+}{$INLINE ON} {$mode objfpc}{$H+}{$INLINE ON}
{$IF defined(VER2_0_2) and defined(win32)}
// FPC <= 2.0.2 compatibility code
// WINDOWS define was added after FPC 2.0.2
{$define WINDOWS}
{$endif}
interface interface
uses uses
@ -203,6 +197,7 @@ begin
on e: Exception do begin on e: Exception do begin
DebugLn('Exception while translating ', ResUnitName); DebugLn('Exception while translating ', ResUnitName);
DebugLn(e.Message); DebugLn(e.Message);
DumpExceptionBackTrace;
end; end;
end; end;
end; end;