paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-18 23:09:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

GdbmiDebugger: fix function ref under stabs

Browse Source 
git-svn-id: trunk@61142 -
This commit is contained in:
martin 2019-05-05 10:54:23 +00:00
parent c1833857ed
commit e5590c5ee6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggergdbmi/gdbtypeinfo.pp
View File

@ -3122,7 +3122,8 @@ var
if (ptprfPointer in PTypeResult.Flags)
and ( (PTypeResult.Kind in [ptprkSimple, ptprkRecord, ptprkEnum, ptprkSet])
or ( (gtcfClassIsPointer in FCreationFlags) and
(PTypeResult.Kind in [ptprkProcedure, ptprkFunction]) )
(PTypeResult.Kind in [ptprkProcedure, ptprkFunction]) and
not(ptprfDeclarationInBrackets in PTypeResult.Flags) )
)
then begin
ProcessSimplePointer;
@ -3206,6 +3207,7 @@ var
// under stabs, procedure/function are always pointer // pointer to proc/func return empty type
if (gtcfClassIsPointer in FCreationFlags) // Dwarf
and (ptprfPointer in PTypeResult.Flags)
and not(ptprfDeclarationInBrackets in PTypeResult.Flags)
then begin
ProcessSimplePointer;
exit;
@ -3223,6 +3225,7 @@ var
// under stabs, procedure/function are always pointer // pointer to proc/func return empty type
if (gtcfClassIsPointer in FCreationFlags) // Dwarf
and (ptprfPointer in PTypeResult.Flags)
and not(ptprfDeclarationInBrackets in PTypeResult.Flags)
then begin
ProcessSimplePointer;
exit;