paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: fixed an endless loop in watch eval (eval typecast pointer to record)

Browse Source 
git-svn-id: trunk@39131 -
This commit is contained in:
martin 2012-10-18 16:38:51 +00:00
parent 1e0cb7d080
commit d9e86fb1d8
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/gdbtypeinfo.pp
View File

@ -1394,12 +1394,19 @@ begin
exit;
end;
if FPTypeReq.Result.Kind = ptprkRecord then begin // Includes pointer to array
FTypeCastFixFlag := tcfNoFixNeeded; // TODO: Maybe it is needed?
FIsTypeCast := True;
exit;
end;
if FPTypeReq.Result.Kind in [ptprkProcedure, ptprkFunction] then begin
FTypeCastFixFlag := tcfNoFixNeeded;
FIsFunction := True;
exit;
end;
FTypeCastFixFlag := tcfNoFixNeeded;
end;
constructor TGDBExpressionPartCastCall.Create(ALeadExpresion: TGDBExpressionPart);