paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 03:10:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ SetTBreak method added

Browse Source 
git-svn-id: trunk@15890 -
This commit is contained in:
pierre 2010-08-24 13:35:09 +00:00
parent 7d5e69ee14
commit 18bd6a344d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/fpdebug.pas
View File

@ -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;