From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 25639 invoked by alias); 10 Jan 2011 12:41:28 -0000 Mailing-List: contact archer-help@sourceware.org; run by ezmlm Sender: Precedence: bulk List-Post: List-Help: List-Subscribe: List-Id: Received: (qmail 25630 invoked by uid 22791); 10 Jan 2011 12:41:27 -0000 X-SWARE-Spam-Status: No, hits=-5.9 required=5.0 tests=AWL,BAYES_00,RCVD_IN_DNSWL_HI,SPF_HELO_PASS,T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org From: Phil Muldoon To: archer@sourceware.org Subject: [python] [commit] Remove python-support.exp Reply-to: pmuldoon@redhat.com X-URL: http://www.redhat.com Date: Mon, 10 Jan 2011 12:41:00 -0000 Message-ID: User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-SW-Source: 2011-q1/txt/msg00009.txt.bz2 I have removed python-support.exp. This file is no longer used. Upstream has a gdb-python.exp library where these functions have been exported. I also had to remove a load-lib reference from gdb.exp. Cheers, Phil -- commit a92f03033f8189004371649d4938378c0756852c Author: Phil Muldoon Date: Mon Jan 10 12:34:29 2011 +0000 Do not load python-support.exp diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 62466f8..5a3f1fc 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -28,7 +28,6 @@ if {$tool == ""} { } load_lib libgloss.exp -load_lib python-support.exp global GDB commit fe209e2360570eedf77b88a3614a2d85557921d9 Author: Phil Muldoon Date: Mon Jan 10 12:32:52 2011 +0000 Remove python-support.exp. Do not load it in gdb.exp. diff --git a/gdb/testsuite/lib/python-support.exp b/gdb/testsuite/lib/python-support.exp deleted file mode 100644 index b8e9836..0000000 --- a/gdb/testsuite/lib/python-support.exp +++ /dev/null @@ -1,53 +0,0 @@ -global python_supported_saved - -# Return 1 if Python scripting is supported in GDB, 0 if not. -proc python_supported { } { - global gdb_prompt - global python_supported_saved - - if [info exists python_supported_saved] { - verbose "python_supported: returning saved $python_supported_saved" 2 - return $python_supported_saved - } - - gdb_test_multiple "python print 'hello, world!'" "verify python support" { - -re "not supported.*$gdb_prompt $" { - return [set python_supported_saved 0] - } - -re "$gdb_prompt $" { - return [set python_supported_saved 1] - } - } - - return [set python_supported_saved 0] -} - -# Run a command in GDB, and report a failure if a Python exception is thrown. -# If report_pass is true, report a pass if no exception is thrown. -proc gdb_py_test_silent_cmd {cmd name report_pass} { - global gdb_prompt - - gdb_test_multiple $cmd $name { - -re "Traceback.*$gdb_prompt $" { fail $name } - -re "$gdb_prompt $" { if $report_pass { pass $name } } - } -} - -# Usage: gdb_py_test_multiple NAME INPUT RESULT {INPUT RESULT}... -# Run a test named NAME, consisting of multiple lines of input. -# After each input line INPUT, search for result line RESULT. -# Succeed if all results are seen; fail otherwise. -proc gdb_py_test_multiple {name args} { - global gdb_prompt - - foreach {input result} $args { - if {[gdb_test_multiple $input "$name - $input" { - -re "\[\r\n\]*($result)\[\r\n\]+($gdb_prompt | *>)$" { - pass "$name - $input" - } - }]} { - return 1 - } - } - return 0 -}