Browse Source

* Debugger test missing in ContTo

pierre 25 years ago
parent
commit
f7d2d5f021
1 changed files with 10 additions and 3 deletions
  1. 10 3
      ide/text/fpmrun.inc

+ 10 - 3
ide/text/fpmrun.inc

@@ -191,7 +191,11 @@ begin
       FileName:=W^.Editor^.FileName;
       FileName:=W^.Editor^.FileName;
       LineNr:=W^.Editor^.CurPos.Y+1;
       LineNr:=W^.Editor^.CurPos.Y+1;
       If not assigned(Debugger) then
       If not assigned(Debugger) then
-        InitDebugger;
+        begin
+          InitDebugger;
+          if not assigned(Debugger) then
+            exit;
+        end;
       Debugger^.Command('tbreak '+LowCaseStr(NameAndExtOf(FileName))+':'+IntToStr(LineNr));
       Debugger^.Command('tbreak '+LowCaseStr(NameAndExtOf(FileName))+':'+IntToStr(LineNr));
       Debugger^.Continue;
       Debugger^.Continue;
     end;
     end;
@@ -241,7 +245,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.23  1999-12-10 13:01:01  pierre
+  Revision 1.24  2000-01-10 13:23:28  pierre
+   * Debugger test missing in ContTo
+
+  Revision 1.23  1999/12/10 13:01:01  pierre
    * do not recompile a program inside Debugging session
    * do not recompile a program inside Debugging session
 
 
   Revision 1.22  1999/11/10 17:17:02  pierre
   Revision 1.22  1999/11/10 17:17:02  pierre
@@ -386,4 +393,4 @@ end;
     + Switches updated
     + Switches updated
     + Run program
     + Run program
 
 
-}
+}