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

DBG: Clean up

Browse Source 
git-svn-id: trunk@29015 -
This commit is contained in:
martin 2011-01-14 22:18:19 +00:00
parent 2c75ddebd7
commit 35f4b0edad
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/gdbmidebugger.pp
View File

@ -2932,7 +2932,6 @@ function TGDBMIDebuggerCommandStartDebugging.DoExecute: Boolean;
var var
R: TGDBMIExecResult; R: TGDBMIExecResult;
s: String;
FileType, EntryPoint: String; FileType, EntryPoint: String;
List: TGDBMINameValueList; List: TGDBMINameValueList;
TargetPIDPart: String; TargetPIDPart: String;
@ -9628,8 +9627,6 @@ function TGDBMIDebuggerCommandEvaluate.DoExecute: Boolean;
function TryExecute(AnExpression: string; StoreError: Boolean): Boolean; function TryExecute(AnExpression: string; StoreError: Boolean): Boolean;
function PrepareExpr(var expr: string; NoAddressOp: Boolean = False): boolean; function PrepareExpr(var expr: string; NoAddressOp: Boolean = False): boolean;
var
ResultInfo: TGDBType;
begin begin
FTypeInfo := GetGDBTypeInfo(expr); FTypeInfo := GetGDBTypeInfo(expr);
Result := FTypeInfo <> nil; Result := FTypeInfo <> nil;