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

FpDebug: Clean up, error will be set already

Browse Source 
git-svn-id: trunk@61801 -
This commit is contained in:
martin 2019-09-02 00:44:45 +00:00
parent 14ef5eb9fc
commit 5408d59907
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpdebug/fpdbgdwarf.pas
View File

@ -3182,10 +3182,8 @@ begin
Assert(self is TFpSymbolDwarfType);
Result := False;
if InformationEntry.GetAttribData(DW_AT_allocated, AttrData) then begin
if not ConstRefOrExprFromAttrData(AttrData, AValueObj, t) then begin
SetLastError(CreateError(fpErrAnyError));
if not ConstRefOrExprFromAttrData(AttrData, AValueObj, t) then
exit;
end;
if t = 0 then begin
AnAddress := NilLoc;
exit(True);
@ -3193,10 +3191,8 @@ Assert(self is TFpSymbolDwarfType);
end;
if InformationEntry.GetAttribData(DW_AT_associated, AttrData) then begin
if not ConstRefOrExprFromAttrData(AttrData, AValueObj, t) then begin
SetLastError(CreateError(fpErrAnyError));
if not ConstRefOrExprFromAttrData(AttrData, AValueObj, t) then
exit;
end;
if t = 0 then begin
AnAddress := NilLoc;
exit(True);