[pushed 1/3] [gdb/testsuite] Factor out Term::_scroll

[Tom de Vries <tdevries@suse.de>]

Factor Term::_scroll out of Term::_ctl_0x0a.
---
 gdb/testsuite/lib/tuiterm.exp | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/gdb/testsuite/lib/tuiterm.exp b/gdb/testsuite/lib/tuiterm.exp
index edabadeb1a3..39fcb082b47 100644
--- a/gdb/testsuite/lib/tuiterm.exp
+++ b/gdb/testsuite/lib/tuiterm.exp
@@ -177,25 +177,27 @@ proc Term::_copy_lines { sy ey dy } {
     return $cnt
 }
 
+# Scroll display contents until the cursor is on the display.
+proc Term::_scroll {} {
+    variable _cur_row
+    variable _rows
+
+    while {$_cur_row >= $_rows} {
+	# Scroll the display contents.  We scroll one line at
+	# a time here.
+	_copy_lines 1 $_rows 0
+
+	incr _cur_row -1
+	_clear_lines $_cur_row $_rows
+    }
+}
+
 # Linefeed.
 proc Term::_ctl_0x0a {} {
     _log_cur "Line feed" {
 	variable _cur_row
-	variable _rows
-
 	incr _cur_row 1
-	while {$_cur_row >= $_rows} {
-	    # Scroll the display contents.  We scroll one line at
-	    # a time here; as _cur_row was only increased by one,
-	    # a single line scroll should be enough to put the
-	    # cursor back on the screen.  But we wrap the
-	    # scrolling inside a while loop just to be on the safe
-	    # side.
-	    _copy_lines 1 $_rows 0
-
-	    incr _cur_row -1
-	    _clear_lines $_cur_row $_rows
-	}
+	_scroll
     }
 }
 
-- 
2.51.0