From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jimmy Guo To: gdb-patches@sourceware.cygnus.com Subject: submission: gdb/testsuite/gdb.chill patch Date: Fri, 25 Jun 1999 11:07:00 -0000 Message-id: X-SW-Source: 1999-q2/msg00151.html This is the (trivial) patch to gdb/testsuite/gdb.chill. It contains file renames and corresponding changes (reflect file name changes): File renames: gdb/testsuite/gdb.chill/ extstruct-grt.ch -> xstruct-grt.ch extstruct.ch -> xstruct.ch extstruct.exp -> xstruct.exp Related file content updates: xstruct.ch xstruct.exp This is the result of doschk compliance (I just did it as part of doschk on the entire gdb/testsuite tree merge between HP and Cygnus trees). - Jimmy Guo, guo@cup.hp.com /opt/gnu/bin/diff -c -N /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill gdb/testsuite/gdb.chill diff -c -N /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/extstruct-grt.ch gdb/testsuite/gdb.chill/extstruct-grt.ch *** /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/extstruct-grt.ch Mon Jan 29 00:08:56 1996 --- gdb/testsuite/gdb.chill/extstruct-grt.ch Wed Dec 31 16:00:00 1969 *************** *** 1,12 **** - pot1: MODULE - - SYNMODE m_array1 = ARRAY (2:3) ulong; - SYNMODE m_struct = STRUCT (f1 int, - f2 REF m_array1, - f3 m_array1); - SYNMODE m_array3 = ARRAY (5:6) m_struct; - SYNMODE m_array4 = ARRAY (7:8) ARRAY (9:10) m_struct; - - GRANT all; - - END pot1; --- 0 ---- diff -c -N /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/extstruct.ch gdb/testsuite/gdb.chill/extstruct.ch *** /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/extstruct.ch Mon Jan 29 00:08:54 1996 --- gdb/testsuite/gdb.chill/extstruct.ch Wed Dec 31 16:00:00 1969 *************** *** 1,16 **** - pottendo: MODULE - - <> USE_SEIZE_FILE "extstruct-grt.grt" <> - SEIZE m_array3; - SEIZE m_array4; - - SYNMODE m_x = STRUCT (i long, - ar m_array3); - SYNMODE m_y = STRUCT (i long, - ar m_array4); - - DCL x LONG; - - x := 10; - - END pottendo; --- 0 ---- diff -c -N /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/extstruct.exp gdb/testsuite/gdb.chill/extstruct.exp *** /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/extstruct.exp Wed Sep 10 15:02:26 1997 --- gdb/testsuite/gdb.chill/extstruct.exp Wed Dec 31 16:00:00 1969 *************** *** 1,66 **** - # Copyright (C) 1992, 1994, 1997 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 Per Bothner. (bothner@cygnus.com) - - if $tracelevel then { - strace $tracelevel - } - - if [skip_chill_tests] then { continue } - - set testfile2 "extstruct-grt" - set srcfile2 ${srcdir}/$subdir/${testfile2}.ch - set objfile2 ${objdir}/$subdir/${testfile2}.o - if { [compile "${srcfile2} -g -c -o ${objfile2}"] != "" } { - perror "Couldn't compile ${srcfile2}" - return -1 - } - - set testfile "extstruct" - set srcfile ${srcdir}/$subdir/${testfile}.ch - set binfile ${objdir}/${subdir}/${testfile}.exe - if { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } { - perror "Couldn't compile ${srcfile}" - return -1 - } - - proc do_tests {} { - global prms_id bug_id subdir objdir srcdir binfile gdb_prompt - - set prms_id 0 - set bug_id 0 - - # Start with a fresh gdb. - - gdb_exit - gdb_start - gdb_reinitialize_dir $srcdir/$subdir - gdb_load $binfile - - gdb_test "set language chill" "" - - gdb_test "set var \$i := m_x\[\]" "" - gdb_test "print \$i" { = \[.i: 0, .ar: \[\(5:6\): \[.f1: 0, .f2: NULL, .f3: \[\(2:3\): 0\]\]\]\]} - - gdb_test "set var \$j := m_y\[\]" "" - gdb_test "print \$j" { = \[.i: 0, .ar: \[\(7:8\): \[\(9:10\): \[.f1: 0, .f2: NULL, .f3: \[\(2:3\): 0\]\]\]\]\]} - } - - do_tests --- 0 ---- diff -c -N /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/xstruct-grt.ch gdb/testsuite/gdb.chill/xstruct-grt.ch *** /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/xstruct-grt.ch Wed Dec 31 16:00:00 1969 --- gdb/testsuite/gdb.chill/xstruct-grt.ch Fri Jun 25 10:56:36 1999 *************** *** 0 **** --- 1,12 ---- + pot1: MODULE + + SYNMODE m_array1 = ARRAY (2:3) ulong; + SYNMODE m_struct = STRUCT (f1 int, + f2 REF m_array1, + f3 m_array1); + SYNMODE m_array3 = ARRAY (5:6) m_struct; + SYNMODE m_array4 = ARRAY (7:8) ARRAY (9:10) m_struct; + + GRANT all; + + END pot1; diff -c -N /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/xstruct.ch gdb/testsuite/gdb.chill/xstruct.ch *** /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/xstruct.ch Wed Dec 31 16:00:00 1969 --- gdb/testsuite/gdb.chill/xstruct.ch Fri Jun 25 10:56:35 1999 *************** *** 0 **** --- 1,16 ---- + pottendo: MODULE + + <> USE_SEIZE_FILE "xstruct-grt.grt" <> + SEIZE m_array3; + SEIZE m_array4; + + SYNMODE m_x = STRUCT (i long, + ar m_array3); + SYNMODE m_y = STRUCT (i long, + ar m_array4); + + DCL x LONG; + + x := 10; + + END pottendo; diff -c -N /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/xstruct.exp gdb/testsuite/gdb.chill/xstruct.exp *** /home/debugger/proj/cygnus/snaps/gdb-19990621/gdb-19990621/gdb/testsuite/gdb.chill/xstruct.exp Wed Dec 31 16:00:00 1969 --- gdb/testsuite/gdb.chill/xstruct.exp Fri Jun 25 10:56:36 1999 *************** *** 0 **** --- 1,66 ---- + # Copyright (C) 1992, 1994, 1997 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 Per Bothner. (bothner@cygnus.com) + + if $tracelevel then { + strace $tracelevel + } + + if [skip_chill_tests] then { continue } + + set testfile2 "xstruct-grt" + set srcfile2 ${srcdir}/$subdir/${testfile2}.ch + set objfile2 ${objdir}/$subdir/${testfile2}.o + if { [compile "${srcfile2} -g -c -o ${objfile2}"] != "" } { + perror "Couldn't compile ${srcfile2}" + return -1 + } + + set testfile "xstruct" + set srcfile ${srcdir}/$subdir/${testfile}.ch + set binfile ${objdir}/${subdir}/${testfile}.exe + if { [compile "${srcfile} -g ${objfile2} -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" } { + perror "Couldn't compile ${srcfile}" + return -1 + } + + proc do_tests {} { + global prms_id bug_id subdir objdir srcdir binfile gdb_prompt + + set prms_id 0 + set bug_id 0 + + # Start with a fresh gdb. + + gdb_exit + gdb_start + gdb_reinitialize_dir $srcdir/$subdir + gdb_load $binfile + + gdb_test "set language chill" "" + + gdb_test "set var \$i := m_x\[\]" "" + gdb_test "print \$i" { = \[.i: 0, .ar: \[\(5:6\): \[.f1: 0, .f2: NULL, .f3: \[\(2:3\): 0\]\]\]\]} + + gdb_test "set var \$j := m_y\[\]" "" + gdb_test "print \$j" { = \[.i: 0, .ar: \[\(7:8\): \[\(9:10\): \[.f1: 0, .f2: NULL, .f3: \[\(2:3\): 0\]\]\]\]\]} + } + + do_tests