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

IDE: clean up

Browse Source 
git-svn-id: trunk@48194 -
This commit is contained in:
mattias 2015-03-10 11:21:10 +00:00
parent 41b4ff71ef
commit 37ced37749
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -10556,6 +10556,7 @@ begin
Opts := []; Opts := [];
if EditorOpts.DbgHintAutoTypeCastClass if EditorOpts.DbgHintAutoTypeCastClass
then Opts := [defClassAutoCast]; then Opts := [defClassAutoCast];
DebugEval:='';
if not DebugBoss.Evaluate(Expression, DebugEval, DBGType, Opts) or (DebugEval = '') then if not DebugBoss.Evaluate(Expression, DebugEval, DBGType, Opts) or (DebugEval = '') then
DebugEval := '???'; DebugEval := '???';
// deference a pointer - maybe it is a class // deference a pointer - maybe it is a class
@ -10565,6 +10566,7 @@ begin
begin begin
if DBGType.Value.AsPointer <> nil then if DBGType.Value.AsPointer <> nil then
begin begin
DebugEvalDerefer:='';
if DebugBoss.Evaluate(Expression + '^', DebugEvalDerefer, DBGTypeDerefer, Opts) then if DebugBoss.Evaluate(Expression + '^', DebugEvalDerefer, DBGTypeDerefer, Opts) then
begin begin
if Assigned(DBGTypeDerefer) and if Assigned(DBGTypeDerefer) and