paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: hide DumpExceptionBackTrace to the ifdef block since it does not compile anymore

Browse Source 
git-svn-id: trunk@22725 -
This commit is contained in:
paul 2009-11-23 14:55:33 +00:00
parent c911276182
commit cea7ca2577
4 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/jitforms.pp
View File

@ -1171,7 +1171,9 @@ begin
// first write error to debug
DebugLn(Context+' Error: '+FCurReadErrorMsg);
// then try to give a backtrace
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
if Assigned(OnException) then
OnException(Self,E,Action)
else begin

12
ide/customformeditor.pp
View File

@ -424,7 +424,9 @@ Begin
on E: Exception do begin
DebugLn('TryFreeComponent ERROR:',
' "'+OldName+':'+OldClassName+'" ',E.Message);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
MessageDlg('Error',
'An exception occured during deletion of'#13
+'"'+OldName+':'+OldClassName+'"'#13
@ -1463,7 +1465,9 @@ begin
except
on E: Exception do begin
DebugLn(['TCustomFormEditor.SaveUnitComponentToBinStream ',E.Message]);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
Result:=MessageDlg(lisStreamingError,
Format(lisUnableToStreamT, [AnUnitInfo.ComponentName,
AnUnitInfo.ComponentName])+#13
@ -1646,7 +1650,9 @@ begin
NewComponent.Create(OwnerComponent);
except
on e: Exception do begin
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
MessageDlg('Error creating component',
'Error creating component: '+TypeClass.ClassName+#13+E.Message,
mtError,[mbCancel],0);
@ -1816,7 +1822,9 @@ begin
except
on e: Exception do begin
DebugLn(e.Message);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
MessageDlg(lisErrorMovingComponent,
Format(lisErrorMovingComponent2, [NewComponent.Name,
NewComponent.ClassName]),
@ -1846,7 +1854,9 @@ begin
+' of unit '+AUnitName+':'#13
+E.Message;
DebugLn(['TCustomFormEditor.CreateComponent ',s]);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
MessageDlg('Error destroying mediator',s,mtError,[mbCancel],0);
end;
end;
@ -1863,7 +1873,9 @@ begin
+' of unit '+AUnitName+':'#13
+E.Message;
DebugLn(['TCustomFormEditor.CreateComponent ',s]);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
MessageDlg('Error destroying component',s,mtError,[mbCancel],0);
end;
end;

2
ide/exttooldialog.pas
View File

@ -408,7 +408,9 @@ begin
except
on e: Exception do begin
DebugLn('TExternalToolList.Run ',lisExtToolFailedToRunTool, ' ', E.Message);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
DebugLn(['TExternalToolList.Run AAA1']);
Result:=MessageDlg(lisExtToolFailedToRunTool,
Format(lisExtToolUnableToRunTheTool, ['"', Title, '"', #13, e.Message]

8
ide/main.pp
View File

@ -4849,7 +4849,9 @@ begin
PropPath:='';
if Writer.Driver is TLRSObjectWriter then
PropPath:=TLRSObjectWriter(Writer.Driver).GetStackPath(AnUnitInfo.Component);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
ACaption:=lisStreamingError;
AText:=Format(lisUnableToStreamT, [AnUnitInfo.ComponentName,
AnUnitInfo.ComponentName]) + LineEnding
@ -4975,7 +4977,9 @@ begin
on E: Exception do begin
// added to get more feedback on issue 7009
Debugln('TMainIDE.SaveFileResources E3: ', E.Message);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
ACaption:=lisStreamingError;
AText:=Format(
lisUnableToTransformBinaryComponentStreamOfTIntoText, [
@ -5752,7 +5756,9 @@ begin
Result:=mrOk;
except
on E: Exception do begin
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
ACaption:=lisFormatError;
AText:=Format(lisUnableToConvertTextFormDataOfFileIntoBinaryStream,
[#13, '"', LFMBuf.Filename, '"', #13, E.Message]);
@ -6132,7 +6138,9 @@ begin
except
on E: Exception do begin
DebugLn(['TMainIDE.DoFixupComponentReferences GlobalFixupReferences ',E.Message]);
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace;
{$ENDIF}
end;
end;