Remove the TUI execution info window

[deliverable/binutils-gdb.git] / gdb / testsuite / lib / tuiterm.exp

diff --git a/gdb/testsuite/lib/tuiterm.exp b/gdb/testsuite/lib/tuiterm.exp
index cd728156fc8c15062028d0f9f831c033bf468f26..c6a938e227da413b40e650c88eb22c106788d7ca 100644 (file)
--- a/gdb/testsuite/lib/tuiterm.exp
+++ b/gdb/testsuite/lib/tuiterm.exp
@@ -266,6 +266,13 @@ namespace eval Term {
        }
     }
 
+    # Backward tab stops.
+    proc _csi_Z {args} {
+       set n [_default [lindex $args 0] 1]
+       variable _cur_x
+       set _cur_x [expr {max (int (($_cur_x - 1) / 8) * 8 - ($n - 1) * 8, 0)}]
+    }
+
     # Repeat.
     proc _csi_b {args} {
        variable _last_char