Pārlūkot izejas kodu

* DoContUntilReturn call Step instead of UnitlReturn

pierre 26 gadi atpakaļ
vecāks
revīzija
7415721184
1 mainītis faili ar 5 papildinājumiem un 11 dzēšanām
  1. 5 11
      ide/text/fpmrun.inc

+ 5 - 11
ide/text/fpmrun.inc

@@ -82,16 +82,7 @@ begin
   if not debugger^.debuggee_started then
   if not debugger^.debuggee_started then
     Debugger^.StartTrace
     Debugger^.StartTrace
   else
   else
-   Debugger^.TraceStep;
-  { I think we should not try to go deeper !
-    if the source is not found PM }
-  While (Debugger^.InvalidSourceLine and
-         Debugger^.debuggee_started and
-         not Debugger^.error) do
-    begin
-      Inc(Debugger^.HiddenStepsCount);
-      Debugger^.TraceNext;
-    end;
+   Debugger^.UntilReturn;
   Debugger^.AnnotateError;
   Debugger^.AnnotateError;
 {$else NODEBUG}
 {$else NODEBUG}
   NoDebugger;
   NoDebugger;
@@ -238,7 +229,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.18  1999-08-16 18:25:23  peter
+  Revision 1.19  1999-08-31 16:20:37  pierre
+   * DoContUntilReturn call Step instead of UnitlReturn
+
+  Revision 1.18  1999/08/16 18:25:23  peter
     * Adjusting the selection when the editor didn't contain any line.
     * Adjusting the selection when the editor didn't contain any line.
     * Reserved word recognition redesigned, but this didn't affect the overall
     * Reserved word recognition redesigned, but this didn't affect the overall
       syntax highlight speed remarkably (at least not on my Amd-K6/350).
       syntax highlight speed remarkably (at least not on my Amd-K6/350).