mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

DEL: Remove the workaround from rev. 1951 (fixed in Lazarus rev. 22775).

Browse source
This commit is contained in:
cobines 2009-11-26 10:48:11 +00:00
commit d81088cf7c
2 changed files with 0 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fmain.pas
View file

@ -1677,7 +1677,6 @@ end;
procedure TfrmMain.AppException(Sender: TObject; E: Exception);
begin
WriteExceptionToDebug;
WriteExceptionToFile(gErrorFile);
ShowExceptionDialog;
end;

10
src/uexceptions.pas
View file

@ -8,7 +8,6 @@ uses
Classes, SysUtils;
function ExceptionToString: String;
procedure WriteExceptionToDebug;
procedure WriteExceptionToFile(const aFileName: UTF8String; const ExceptionText: String = '');
procedure ShowExceptionDialog(const ExceptionText: String = '');
@ -42,15 +41,6 @@ begin
Result := Result + BackTraceStrFunc(Frames[FrameNumber]) + LineEnding;
end;
procedure WriteExceptionToDebug;
begin
if AppNoExceptionMessages in Application.Flags then exit;
{$ifndef DEBUG_ALLOW_DUMPBACKTRACE}
if (ExceptObject is Exception) and not (ExceptObject is EAbort) then
DebugLn(ExceptionToString);
{$endif}
end;
procedure WriteExceptionToFile(const aFileName: UTF8String; const ExceptionText: String);
var
f: System.Text;