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

* avoid the Impossible to set breakpoints here

Browse Source
This commit is contained in:
pierre 2000-01-31 16:02:08 +00:00
parent 4d0c25c096
commit 2cf8e2fcbc
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/fpmrun.inc
View File

@ -242,14 +242,14 @@ var
LineNr : longint;
begin
{$ifndef NODEBUG}
if (DeskTop^.First=nil) or
(TypeOf(DeskTop^.First^)<>TypeOf(TSourceWindow)) then
if (DeskTop^.Current=nil) or
(TypeOf(DeskTop^.Current^)<>TypeOf(TSourceWindow)) then
Begin
ErrorBox('Impossible to set breakpoints here',nil);
Exit;
End;
W:=PSourceWindow(DeskTop^.First);
W:=PSourceWindow(DeskTop^.Current);
If assigned(W) then
begin
FileName:=W^.Editor^.FileName;
@ -264,7 +264,10 @@ end;
{
$Log$
Revision 1.25 2000-01-28 22:38:21 pierre
Revision 1.26 2000-01-31 16:02:08 pierre
* avoid the Impossible to set breakpoints here
Revision 1.25 2000/01/28 22:38:21 pierre
* CrtlF9 starts debugger if there are active breakpoints
Revision 1.24 2000/01/10 13:23:28 pierre