+ SetTBreak method added

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15890 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 0 deletions

diff --git a/ide/fpdebug.pas b/ide/fpdebug.pas
index 999c76f15e..a0bfb71324 100644
--- a/ide/fpdebug.pas
+++ b/ide/fpdebug.pas
@@ -58,6 +58,7 @@ type
 {$endif SUPPORT_REMOTE}
     constructor Init;
     procedure SetExe(const exefn:string);
+    procedure SetTBreak(tbreakstring : string);
     procedure SetWidth(AWidth : longint);
     procedure SetSourceDirs;
     destructor  Done;
@@ -683,6 +684,13 @@ begin
     end;
 end;
 
+    
+procedure TDebugController.SetTBreak(tbreakstring : string);
+begin
+  Command('tbreak '+tbreakstring);
+  TBreakNumber:=Last_breakpoint_number;
+end;
+
 procedure TDebugController.SetWidth(AWidth : longint);
 begin
   WindowWidth:=AWidth;