paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, DBG: enable class auto-typecast for hints

Browse Source 
git-svn-id: trunk@32220 -
This commit is contained in:
martin 2011-09-08 00:45:28 +00:00
parent 5216dca1ba
commit b726db4376
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -16231,7 +16231,7 @@ begin
//DebugLn(['TMainIDE.OnSrcNotebookShowHintForSource Expression="',Expression,'"']); //DebugLn(['TMainIDE.OnSrcNotebookShowHintForSource Expression="',Expression,'"']);
DBGType:=nil; DBGType:=nil;
DBGTypeDerefer:=nil; DBGTypeDerefer:=nil;
if not DebugBoss.Evaluate(Expression, DebugEval, DBGType) or (DebugEval = '') then if not DebugBoss.Evaluate(Expression, DebugEval, DBGType, [defClassAutoCast]) or (DebugEval = '') then
DebugEval := '???'; DebugEval := '???';
// deference a pointer - maybe it is a class // deference a pointer - maybe it is a class
if Assigned(DBGType) and (DBGType.Kind in [skPointer]) and if Assigned(DBGType) and (DBGType.Kind in [skPointer]) and
@ -16240,7 +16240,7 @@ begin
begin begin
if DBGType.Value.AsPointer <> nil then if DBGType.Value.AsPointer <> nil then
begin begin
if DebugBoss.Evaluate(Expression + '^', DebugEvalDerefer, DBGTypeDerefer) then if DebugBoss.Evaluate(Expression + '^', DebugEvalDerefer, DBGTypeDerefer, [defClassAutoCast]) then
begin begin
if Assigned(DBGTypeDerefer) and if Assigned(DBGTypeDerefer) and
( (DBGTypeDerefer.Kind <> skPointer) or ( (DBGTypeDerefer.Kind <> skPointer) or