mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-11-27 03:51:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

Revert addition of test suite from Alcatel --- we don't have papers

Browse Source 
for these.  Changes bracketed with tags jimb_pre_revert_pr13812,
jimb_post_revert_pr13812, so we can easily re-add them when we receive
papers.
This commit is contained in:
Jim Blandy 1997-12-15 18:24:59 +00:00
parent 02475394db
commit 7c45d53214
3 changed files with 0 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gdb/testsuite/gdb.chill/ChangeLog
View File

@ -1,7 +1,3 @@
Wed Dec 10 17:52:42 1997 Jim Blandy <jimb@zwingli.cygnus.com>
* gch1494.ch, gch1494.exp: New tests, for PR 13812.
Wed Sep 10 15:01:55 1997 Bob Manson <manson@charmed.cygnus.com>
* *.exp: The end-all be-all of quoting fixes. Ha.

8
gdb/testsuite/gdb.chill/gch1494.ch
View File

@ -1,8 +0,0 @@
gch1494: MODULE
DCL x STRUCT (CASE OF
: b UBYTE,
: s CHARS(10) VARYING
ESAC) INIT := [ .b: 1 ];
END gch1494;

71
gdb/testsuite/gdb.chill/gch1494.exp
View File

@ -1,71 +0,0 @@
# Copyright (C) 1995 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
# This file was written by Wilfried Moser (moser@aut.alcatel.at)
#
if $tracelevel then {
strace $tracelevel
}
if [skip_chill_tests] then { continue }
set testfile "gch1494"
set srcfile ${srcdir}/$subdir/${testfile}.ch
set binfile ${objdir}/${subdir}/${testfile}.exe
if { [compile "${srcfile} -g -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
# Set the current language to chill. This counts as a test. If it
# fails, then we skip the other tests.
proc set_lang_chill {} {
global prompt
global binfile objdir subdir
verbose "loading file '$binfile'"
gdb_load $binfile
send "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
}
return [gdb_test "show language" ".* source language is \"chill\".*" \
"set language to \"chill\""]
}
set prms_id 0
set bug_id 0
# Start with a fresh gdb.
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
if ![set_lang_chill] then {
# gdb_test "set var foo := m_ps\[\(\*\):44\]" {\(\*\) in invalid context}
gdb_test "p x" {\[\.: \{ = \[\.b: 1\], = \[\.s: <dynamic length 256 > static length 12> \*invalid\*\]\}\]}
}