paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:31:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adaptd to changes in gdbint and gdbcon for to /

Browse Source
This commit is contained in:
pierre 1999-01-22 18:14:09 +00:00
parent 46136c0052
commit 3316a50471
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/text/fpdebug.pas
View File

@ -53,9 +53,11 @@ uses
****************************************************************************} ****************************************************************************}
constructor TDebugController.Init(const exefn:string); constructor TDebugController.Init(const exefn:string);
var f: string;
begin begin
inherited Init; inherited Init;
LoadFile(exefn); f := exefn;
LoadFile(f);
end; end;
@ -84,15 +86,15 @@ end;
procedure TDebugController.DoDebuggerScreen; procedure TDebugController.DoDebuggerScreen;
begin begin
if assigned(UserScreen) then if assigned(FPUsrScr.UserScreen) then
UserScreen^.SwitchBack; FPUsrScr.UserScreen^.SwitchBack;
end; end;
procedure TDebugController.DoUserScreen; procedure TDebugController.DoUserScreen;
begin begin
if assigned(UserScreen) then if assigned(FPUsrScr.UserScreen) then
UserScreen^.SwitchTo; FPUsrScr.UserScreen^.SwitchTo;
end; end;
@ -129,7 +131,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 1999-01-22 10:24:03 peter Revision 1.2 1999-01-22 18:14:09 pierre
* adaptd to changes in gdbint and gdbcon for to /
Revision 1.1 1999/01/22 10:24:03 peter
* first debugger things * first debugger things
} }