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

debugtest program: fixed some more compilation errors, but still doesn't compile

Browse Source 
git-svn-id: trunk@23967 -
This commit is contained in:
vincents 2010-03-12 16:04:05 +00:00
parent 3d77cd4d3c
commit 4db9abe180
1 changed files with 4 additions and 2 deletions

6
debugger/test/debugtestform.pp
View File

@ -265,8 +265,10 @@ end;
procedure TDebugTestForm.cmdEvaluateClick(Sender: TObject);
var
S: String;
ATypeInfo: TDBGType;
begin
FDebugger.Evaluate(txtEvaluate.Text, S);
ATypeInfo := nil;
FDebugger.Evaluate(txtEvaluate.Text, S, ATypeInfo);
lblEvalResult.Caption := S;
end;
@ -288,7 +290,7 @@ end;
procedure TDebugTestForm.DBGCurrent(Sender: TObject; const ALocation: TDBGLocationRec);
begin
lblAdress.Caption := Format('$%p', [ALocation.Adress]);
lblAdress.Caption := Format('$%p', [ALocation.Address]);
lblSource.Caption := ALocation.SrcFile;
lblLine.Caption := IntToStr(ALocation.SrcLine);
lblFunc.Caption := ALocation.FuncName;