# HG changeset patch
# User Rik <rik@octave.org>
# Date 1460581299 25200
# Node ID d8d0020bf1e986c361cf28ef6e69840fe318b28b
# Parent  1fff60b89786c0770d65566d4589ea7c305dba43
Fix hang when querying dbstack (bug #47605).

* toplev.cc (do_debug_user_code, do_debug_user_code_line,
do_debug_user_code_column): Correct oversight where while loop
variable i was never decremented.

diff -r 1fff60b89786 -r d8d0020bf1e9 libinterp/corefcn/toplev.cc
--- a/libinterp/corefcn/toplev.cc	Wed Apr 13 19:23:21 2016 +0100
+++ b/libinterp/corefcn/toplev.cc	Wed Apr 13 14:01:39 2016 -0700
@@ -319,7 +319,7 @@
 
   while (i != 0)
     {
-      const stack_frame& elt = cs[i];
+      const stack_frame& elt = cs[i--];
 
       octave_function *f = elt.m_fcn;
 
@@ -347,7 +347,7 @@
 
   while (i != 0)
     {
-      const stack_frame& elt = cs[i];
+      const stack_frame& elt = cs[i--];
 
       octave_function *f = elt.m_fcn;
 
@@ -378,7 +378,7 @@
 
   while (i != 0)
     {
-      const stack_frame& elt = cs[i];
+      const stack_frame& elt = cs[i--];
 
       octave_function *f = elt.m_fcn;