paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 09:21:10 +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 // first write error to debug
DebugLn(Context+' Error: '+FCurReadErrorMsg); DebugLn(Context+' Error: '+FCurReadErrorMsg);
// then try to give a backtrace // then try to give a backtrace
{$IFDEF DEBUG_ALLOW_DUMPBACKTRACE}
DumpExceptionBackTrace; DumpExceptionBackTrace;
{$ENDIF}
if Assigned(OnException) then if Assigned(OnException) then
OnException(Self,E,Action) OnException(Self,E,Action)
else begin else begin

12
ide/customformeditor.pp
View File

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

2
ide/exttooldialog.pas
View File

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

8
ide/main.pp
View File

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