Add SelectFrameCommand method to TGDBController in gdbcon and gdbmicon units (not yet used in ide code)

git-svn-id: trunk@30066 -

ide/gdbmicon.pas

@@ -78,7 +78,9 @@ type
     function BreakpointCondition(BkptNo: LongInt; const ConditionExpr: string): Boolean;
     function BreakpointSetIgnoreCount(BkptNo: LongInt; const IgnoreCount: LongInt): Boolean;
     procedure SetTBreak(tbreakstring : string);
+    { frame commands }
     procedure Backtrace;
+    function SelectFrameCommand(level :longint) : boolean;
     function LoadFile(var fn: string): Boolean;
     procedure SetDir(const s: string);
     procedure SetArgs(const s: string);
@@ -442,6 +444,15 @@ begin
   end;
 end;
 
+function TGDBController.SelectFrameCommand(level :longint) : boolean;
+var
+  LevelStr : String;
+begin
+  Str(Level, LevelStr);
+  Command('-stack-select-frame '+LevelStr);
+  SelectFrameCommand:=not error;
+end;
+
 function TGDBController.LoadFile(var fn: string): Boolean;
 var
   cmd: string;

packages/gdbint/src/gdbcon.pp

@@ -76,7 +76,9 @@ type
     function BreakpointCondition(BkptNo: LongInt; const ConditionExpr: string): Boolean;
     function BreakpointSetIgnoreCount(BkptNo: LongInt; const IgnoreCount: LongInt): Boolean;
     procedure SetTBreak(tbreakstring : string);
+    { frame commands }
     procedure Backtrace;
+    function SelectFrameCommand(level :longint) : boolean;
     { needed for dos because newlines are only #10 (PM) }
     procedure WriteErrorBuf;
     procedure WriteOutputBuf;
@@ -590,6 +592,15 @@ begin
   Command('backtrace');
 end;
 
+function TGDBController.SelectFrameCommand(level :longint) : boolean;
+var
+  LevelStr : String;
+begin
+  Str(Level, LevelStr);
+  Command('frame '+LevelStr);
+  SelectFrameCommand:=not error;
+end;
+
 
 procedure TGDBController.ClearSymbols;
 begin