paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +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);
var f: string;
begin
inherited Init;
LoadFile(exefn);
f := exefn;
LoadFile(f);
end;
@ -84,15 +86,15 @@ end;
procedure TDebugController.DoDebuggerScreen;
begin
if assigned(UserScreen) then
UserScreen^.SwitchBack;
if assigned(FPUsrScr.UserScreen) then
FPUsrScr.UserScreen^.SwitchBack;
end;
procedure TDebugController.DoUserScreen;
begin
if assigned(UserScreen) then
UserScreen^.SwitchTo;
if assigned(FPUsrScr.UserScreen) then
FPUsrScr.UserScreen^.SwitchTo;
end;
@ -129,7 +131,10 @@ end.
{
$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
}