aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite
diff options
context:
space:
mode:
authorJason Molenda <jmolenda@apple.com>1999-06-28 17:11:12 +0000
committerJason Molenda <jmolenda@apple.com>1999-06-28 17:11:12 +0000
commit9cd2c67bacb9aaa7e82457e68e1a6087c8bde928 (patch)
tree88cde79dfa49e2000f632500d5aaa7e504e06bcb /gdb/testsuite
parent085dd6e638eca9d348100c8f0e8cae04e20d58a1 (diff)
downloadgdb-9cd2c67bacb9aaa7e82457e68e1a6087c8bde928.zip
gdb-9cd2c67bacb9aaa7e82457e68e1a6087c8bde928.tar.gz
gdb-9cd2c67bacb9aaa7e82457e68e1a6087c8bde928.tar.bz2
These files were removed in the 1999-06-28 snapshot.
Diffstat (limited to 'gdb/testsuite')
-rw-r--r--gdb/testsuite/config/mt-a29k-udi0
-rw-r--r--gdb/testsuite/config/mt-i386-aout59
-rw-r--r--gdb/testsuite/config/mt-i960-nindy1
-rw-r--r--gdb/testsuite/config/mt-lynx4
-rw-r--r--gdb/testsuite/config/mt-m68k1
-rw-r--r--gdb/testsuite/config/mt-mips-ecoff2
-rw-r--r--gdb/testsuite/config/mt-netware1
-rw-r--r--gdb/testsuite/config/mt-slite8
-rw-r--r--gdb/testsuite/config/mt-sparc-aout0
-rw-r--r--gdb/testsuite/config/mt-unix1
-rw-r--r--gdb/testsuite/config/mt-vxworks2
-rw-r--r--gdb/testsuite/gdb.base/smoke.c40
-rw-r--r--gdb/testsuite/gdb.base/smoke.cc480
-rw-r--r--gdb/testsuite/gdb.base/smoke.exp181
-rw-r--r--gdb/testsuite/gdb.chill/extstruct-grt.ch12
-rw-r--r--gdb/testsuite/gdb.chill/extstruct.ch16
-rw-r--r--gdb/testsuite/gdb.chill/extstruct.exp66
17 files changed, 0 insertions, 874 deletions
diff --git a/gdb/testsuite/config/mt-a29k-udi b/gdb/testsuite/config/mt-a29k-udi
deleted file mode 100644
index e69de29..0000000
--- a/gdb/testsuite/config/mt-a29k-udi
+++ /dev/null
diff --git a/gdb/testsuite/config/mt-i386-aout b/gdb/testsuite/config/mt-i386-aout
deleted file mode 100644
index 19b1cab..0000000
--- a/gdb/testsuite/config/mt-i386-aout
+++ /dev/null
@@ -1,59 +0,0 @@
-# compilers and assemblers
-CC = i386-aout-gcc
-CFLAGS = -g -D${target_os}
-C++ = ${CC}
-C++FLAGS = ${CFLAGS}
-CXX = ${CC}
-CXXFLAGS = ${CFLAGS}
-AS = i386-aout-as
-ASFLAGS =
-FC =
-FCFLAGS =
-LD = ld
-LDFLAGS =
-LIBS =
-
-# binutils
-
-RANLIB = i386-aout-ranlib
-RANLIBFLAGS =
-
-NM = i386-aout-nm
-NMFLAGS =
-
-SIZE = i386-aout-size
-SIZEFLAGS =
-
-STRIP = i386-aout-strip
-STRIPFLAGS =
-
-OBJDUMP = i386-aout-objdump
-OBJDUMPFLAGS =
-
-DEMANGLE = i386-aout-demangle
-DEMANGLEFLAGS =
-
-COPY = i386-aout-copy
-COPYFLAGS =
-
-# other utils
-LEX = flex
-LEXFLAGS =
-
-YACC = byacc
-YACCFLAGS =
-
-AR = i386-aout-ar
-ARFLAGS =
-
-CPP = ${CC} -E
-CPPFLAGS =
-
-GDB = i386-aout-gdb
-GDBFLAGS = -nx
-
-DIFF = diff
-DIFFFLAGS =
-
-RUNTEST=i386-aout-runtest
-RUNTESTFLAGS=
diff --git a/gdb/testsuite/config/mt-i960-nindy b/gdb/testsuite/config/mt-i960-nindy
deleted file mode 100644
index 9786c51..0000000
--- a/gdb/testsuite/config/mt-i960-nindy
+++ /dev/null
@@ -1 +0,0 @@
-LDFLAGS_FOR_TARGET = -nostartfiles
diff --git a/gdb/testsuite/config/mt-lynx b/gdb/testsuite/config/mt-lynx
deleted file mode 100644
index 1c153af..0000000
--- a/gdb/testsuite/config/mt-lynx
+++ /dev/null
@@ -1,4 +0,0 @@
-CFLAGS_FOR_TARGET =
-STEP_EXECUTABLE = step
-THREADFLAGS = -mposix -mthreads
-#LDFLAGS= -L/usr/cygnus/progressive-95q1/H-sparc-sun-sunos4.1.3/i386-lynx/lib/thread
diff --git a/gdb/testsuite/config/mt-m68k b/gdb/testsuite/config/mt-m68k
deleted file mode 100644
index 493d702..0000000
--- a/gdb/testsuite/config/mt-m68k
+++ /dev/null
@@ -1 +0,0 @@
-CFLAGS_FOR_TARGET = -Tidp.ld -nostartfiles
diff --git a/gdb/testsuite/config/mt-mips-ecoff b/gdb/testsuite/config/mt-mips-ecoff
deleted file mode 100644
index 90dd031..0000000
--- a/gdb/testsuite/config/mt-mips-ecoff
+++ /dev/null
@@ -1,2 +0,0 @@
-CFLAGS = -I/s1/cygnus/dejagnu/mips-idt-ecoff/include -g
-LDFLAGS = -nostartfiles /s1/cygnus/dejagnu/mips-idt-ecoff/crt0.o -L/s1/cygnus/dejagnu/mips-idt-ecoff -g
diff --git a/gdb/testsuite/config/mt-netware b/gdb/testsuite/config/mt-netware
deleted file mode 100644
index 10d1ce4..0000000
--- a/gdb/testsuite/config/mt-netware
+++ /dev/null
@@ -1 +0,0 @@
-LDFLAGS = -r
diff --git a/gdb/testsuite/config/mt-slite b/gdb/testsuite/config/mt-slite
deleted file mode 100644
index 74e75a2..0000000
--- a/gdb/testsuite/config/mt-slite
+++ /dev/null
@@ -1,8 +0,0 @@
-LIBS = -lc -lg -lgcc
-CFLAGS = -g -Dusestubs
-LDFLAGS = ` \
- if [ -f $${rootme}/../../newlib/Makefile ]; then \
- echo -L$${rootsrc}/../../libgloss/ex93x -L$${rootme}/../../libgloss/ex93x -Tex93x.ld -nostartfiles -nostdlib -N; \
- else \
- echo -Tex93x.ld -nostartfiles -nostdlib -N; \
- fi`
diff --git a/gdb/testsuite/config/mt-sparc-aout b/gdb/testsuite/config/mt-sparc-aout
deleted file mode 100644
index e69de29..0000000
--- a/gdb/testsuite/config/mt-sparc-aout
+++ /dev/null
diff --git a/gdb/testsuite/config/mt-unix b/gdb/testsuite/config/mt-unix
deleted file mode 100644
index d6e2c78..0000000
--- a/gdb/testsuite/config/mt-unix
+++ /dev/null
@@ -1 +0,0 @@
-CFLAGS_FOR_TARGET = -g
diff --git a/gdb/testsuite/config/mt-vxworks b/gdb/testsuite/config/mt-vxworks
deleted file mode 100644
index d18bcb0..0000000
--- a/gdb/testsuite/config/mt-vxworks
+++ /dev/null
@@ -1,2 +0,0 @@
-CFLAGS = -g -Dvxworks
-LDFLAGS = -Xlinker -Ur
diff --git a/gdb/testsuite/gdb.base/smoke.c b/gdb/testsuite/gdb.base/smoke.c
deleted file mode 100644
index 69d34c9..0000000
--- a/gdb/testsuite/gdb.base/smoke.c
+++ /dev/null
@@ -1,40 +0,0 @@
-/* Test various kinds of stepping.
-*/
-int glob = 0;
-
-int callee() {
- glob++;
- return (0);
-}
-
-int main () {
- int w,x,y,z;
- int a[10], b[10];
-
- /* Test "next" and "step" */
- w = 0;
- x = 1;
- y = 2;
- z = 3;
- w = w + 2;
- x = x + 3;
- y = y + 4;
- z = z + 5;
-
- /* Test that "next" goes over a call */
- callee(); /* OVER */
-
- /* Test that "step" doesn't */
- callee(); /* INTO */
-
- /* Test "stepi" */
- a[5] = a[3] - a[4];
- callee(); /* STEPI */
-
- /* Test "nexti" */
- callee(); /* NEXTI */
-
- y = w + z;
-
- return (0);
-}
diff --git a/gdb/testsuite/gdb.base/smoke.cc b/gdb/testsuite/gdb.base/smoke.cc
deleted file mode 100644
index 931fdaf..0000000
--- a/gdb/testsuite/gdb.base/smoke.cc
+++ /dev/null
@@ -1,480 +0,0 @@
-// Test various -*- C++ -*- things.
-
-typedef struct fleep fleep;
-struct fleep { int a; } s;
-
-// ====================== simple class structures =======================
-
-struct default_public_struct {
- // defaults to public:
- int a;
- int b;
-};
-
-struct explicit_public_struct {
- public:
- int a;
- int b;
-};
-
-struct protected_struct {
- protected:
- int a;
- int b;
-};
-
-struct private_struct {
- private:
- int a;
- int b;
-};
-
-struct mixed_protection_struct {
- public:
- int a;
- int b;
- private:
- int c;
- int d;
- protected:
- int e;
- int f;
- public:
- int g;
- private:
- int h;
- protected:
- int i;
-};
-
-class public_class {
- public:
- int a;
- int b;
-};
-
-class protected_class {
- protected:
- int a;
- int b;
-};
-
-class default_private_class {
- // defaults to private:
- int a;
- int b;
-};
-
-class explicit_private_class {
- private:
- int a;
- int b;
-};
-
-class mixed_protection_class {
- public:
- int a;
- int b;
- private:
- int c;
- int d;
- protected:
- int e;
- int f;
- public:
- int g;
- private:
- int h;
- protected:
- int i;
-};
-
-// ========================= simple inheritance ==========================
-
-class A {
- public:
- int a;
- int x;
-};
-
-A g_A;
-
-class B : public A {
- public:
- int b;
- int x;
-};
-
-B g_B;
-
-class C : public A {
- public:
- int c;
- int x;
-};
-
-C g_C;
-
-class D : public B, public C {
- public:
- int d;
- int x;
-};
-
-D g_D;
-
-class E : public D {
- public:
- int e;
- int x;
-};
-
-E g_E;
-
-class class_with_anon_union
-{
- public:
- int one;
- union
- {
- int a;
- long b;
- };
-};
-
-class_with_anon_union g_anon_union;
-
-void inheritance2 (void)
-{
-}
-
-void inheritance1 (void)
-{
- int ival;
- int *intp;
-
- // {A::a, A::x}
-
- g_A.A::a = 1;
- g_A.A::x = 2;
-
- // {{A::a,A::x},B::b,B::x}
-
- g_B.A::a = 3;
- g_B.A::x = 4;
- g_B.B::b = 5;
- g_B.B::x = 6;
-
- // {{A::a,A::x},C::c,C::x}
-
- g_C.A::a = 7;
- g_C.A::x = 8;
- g_C.C::c = 9;
- g_C.C::x = 10;
-
- // {{{A::a,A::x},B::b,B::x},{{A::a,A::x},C::c,C::x},D::d,D::x}
-
- // The following initialization code is non-portable, but allows us
- // to initialize all members of g_D until we can fill in the missing
- // initialization code with legal C++ code.
-
- for (intp = (int *) &g_D, ival = 11;
- intp < ((int *) &g_D + sizeof (g_D) / sizeof (int));
- intp++, ival++)
- {
- *intp = ival;
- }
-
- // Overlay the nonportable initialization with legal initialization.
-
- // ????? = 11; (g_D.A::a = 11; is ambiguous)
- // ????? = 12; (g_D.A::x = 12; is ambiguous)
- g_D.B::b = 13;
- g_D.B::x = 14;
- // ????? = 15;
- // ????? = 16;
- g_D.C::c = 17;
- g_D.C::x = 18;
- g_D.D::d = 19;
- g_D.D::x = 20;
-
-
- // {{{{A::a,A::x},B::b,B::x},{{A::a,A::x},C::c,C::x},D::d,D::x}},E::e,E::x}
-
- // The following initialization code is non-portable, but allows us
- // to initialize all members of g_D until we can fill in the missing
- // initialization code with legal C++ code.
-
- for (intp = (int *) &g_E, ival = 21;
- intp < ((int *) &g_E + sizeof (g_E) / sizeof (int));
- intp++, ival++)
- {
- *intp = ival;
- }
-
- // Overlay the nonportable initialization with legal initialization.
-
- // ????? = 21; (g_E.A::a = 21; is ambiguous)
- // ????? = 22; (g_E.A::x = 22; is ambiguous)
- g_E.B::b = 23;
- g_E.B::x = 24;
- // ????? = 25;
- // ????? = 26;
- g_E.C::c = 27;
- g_E.C::x = 28;
- g_E.D::d = 29;
- g_E.D::x = 30;
- g_E.E::e = 31;
- g_E.E::x = 32;
-
- g_anon_union.one = 1;
- g_anon_union.a = 2;
-
- inheritance2 ();
-}
-
-// ======================== virtual base classes=========================
-
-class vA {
- public:
- int va;
- int vx;
-};
-
-vA g_vA;
-
-class vB : public virtual vA {
- public:
- int vb;
- int vx;
-};
-
-vB g_vB;
-
-class vC : public virtual vA {
- public:
- int vc;
- int vx;
-};
-
-vC g_vC;
-
-class vD : public virtual vB, public virtual vC {
- public:
- int vd;
- int vx;
-};
-
-vD g_vD;
-
-class vE : public virtual vD {
- public:
- int ve;
- int vx;
-};
-
-vE g_vE;
-
-void inheritance4 (void)
-{
-}
-
-void inheritance3 (void)
-{
- int ival;
- int *intp;
-
- // {vA::va, vA::vx}
-
- g_vA.vA::va = 1;
- g_vA.vA::vx = 2;
-
- // {{vA::va, vA::vx}, vB::vb, vB::vx}
-
- g_vB.vA::va = 3;
- g_vB.vA::vx = 4;
- g_vB.vB::vb = 5;
- g_vB.vB::vx = 6;
-
- // {{vA::va, vA::vx}, vC::vc, vC::vx}
-
- g_vC.vA::va = 7;
- g_vC.vA::vx = 8;
- g_vC.vC::vc = 9;
- g_vC.vC::vx = 10;
-
- // {{{{vA::va, vA::vx}, vB::vb, vB::vx}, vC::vc, vC::vx}, vD::vd,vD::vx}
-
- g_vD.vA::va = 11;
- g_vD.vA::vx = 12;
- g_vD.vB::vb = 13;
- g_vD.vB::vx = 14;
- g_vD.vC::vc = 15;
- g_vD.vC::vx = 16;
- g_vD.vD::vd = 17;
- g_vD.vD::vx = 18;
-
-
- // {{{{{vA::va,vA::vx},vB::vb,vB::vx},vC::vc,vC::vx},vD::vd,vD::vx},vE::ve,vE::vx}
-
- g_vD.vA::va = 19;
- g_vD.vA::vx = 20;
- g_vD.vB::vb = 21;
- g_vD.vB::vx = 22;
- g_vD.vC::vc = 23;
- g_vD.vC::vx = 24;
- g_vD.vD::vd = 25;
- g_vD.vD::vx = 26;
- g_vE.vE::ve = 27;
- g_vE.vE::vx = 28;
-
- inheritance4 ();
-}
-
-// ======================================================================
-
-class Base1 {
- public:
- int x;
- Base1(int i) { x = i; }
-};
-
-class Foo
-{
- public:
- int x;
- int y;
- static int st;
- Foo (int i, int j) { x = i; y = j; }
- int operator! ();
- operator int ();
- int times (int y);
-};
-
-class Bar : public Base1, public Foo {
- public:
- int z;
- Bar (int i, int j, int k) : Base1 (10*k), Foo (i, j) { z = k; }
-};
-
-int Foo::operator! () { return !x; }
-
-int Foo::times (int y) { return x * y; }
-
-int Foo::st = 100;
-
-Foo::operator int() { return x; }
-
-Foo foo(10, 11);
-Bar bar(20, 21, 22);
-
-class Contains_static_instance
-{
- public:
- int x;
- int y;
- Contains_static_instance (int i, int j) { x = i; y = j; }
- static Contains_static_instance null;
-};
-
-Contains_static_instance Contains_static_instance::null(0,0);
-Contains_static_instance csi(10,20);
-
-class Contains_nested_static_instance
-{
- public:
- class Nested
- {
- public:
- Nested(int i) : z(i) {}
- int z;
- static Contains_nested_static_instance xx;
- };
-
- Contains_nested_static_instance(int i, int j) : x(i), y(j) {}
-
- int x;
- int y;
-
- static Contains_nested_static_instance null;
- static Nested yy;
-};
-
-Contains_nested_static_instance Contains_nested_static_instance::null(0, 0);
-Contains_nested_static_instance::Nested Contains_nested_static_instance::yy(5);
-Contains_nested_static_instance
- Contains_nested_static_instance::Nested::xx(1,2);
-Contains_nested_static_instance cnsi(30,40);
-
-typedef struct {
- int one;
- int two;
-} tagless_struct;
-tagless_struct v_tagless;
-
-/* Try to get the compiler to allocate a class in a register. */
-class small {
- public:
- int x;
- int method ();
-};
-int small::method ()
-{
- return x + 5;
-}
-void marker_reg1 () {}
-
-int
-register_class ()
-{
- /* We don't call any methods for v, so gcc version cygnus-2.3.3-930220
- might put this variable in a register. This is a lose, though, because
- it means that GDB can't call any methods for that variable. */
- register small v;
-
- int i;
-
- /* Perform a computation sufficiently complicated that optimizing compilers
- won't optimized out the variable. If some compiler constant-folds this
- whole loop, maybe using a parameter to this function here would help. */
- v.x = 0;
- for (i = 0; i < 13; ++i)
- v.x += i;
- --v.x; /* v.x is now 77 */
- marker_reg1 ();
- return v.x + 5;
-}
-
-int
-main()
-{
-#ifdef usestubs
- set_debug_traps();
- breakpoint();
-#endif
- inheritance1 ();
- inheritance3 ();
- register_class ();
-
- /* FIXME: pmi gets optimized out. Need to do some more computation with
- it or something. (No one notices, because the test is xfail'd anyway,
- but that probably won't always be true...). */
- int Foo::* pmi = &Foo::y;
-
- /* Make sure the AIX linker doesn't remove the variable. */
- v_tagless.one = 5;
-
- return foo.*pmi;
-}
-
-/* Create an instance for some classes, otherwise they get optimized away. */
-default_public_struct default_public_s;
-explicit_public_struct explicit_public_s;
-protected_struct protected_s;
-private_struct private_s;
-mixed_protection_struct mixed_protection_s;
-public_class public_c;
-protected_class protected_c;
-default_private_class default_private_c;
-explicit_private_class explicit_private_c;
-mixed_protection_class mixed_protection_c;
diff --git a/gdb/testsuite/gdb.base/smoke.exp b/gdb/testsuite/gdb.base/smoke.exp
deleted file mode 100644
index af107e0..0000000
--- a/gdb/testsuite/gdb.base/smoke.exp
+++ /dev/null
@@ -1,181 +0,0 @@
-# Copyright (C) 1997, 1998 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
-
-# smoke.exp -- Expect script to test gdb before checkins
-
-# use this to debug:
-#
-#log_user 1
-
-if $tracelevel then {
- strace $tracelevel
-}
-
-set testfile smoke
-set testfile1 smoke1
-set c_srcfile ${srcdir}/${subdir}/${testfile}.c
-set cpp_srcfile ${srcdir}/${subdir}/${testfile}.cc
-set binfile ${objdir}/${subdir}/${testfile}
-set binfile1 ${objdir}/${subdir}/${testfile1}
-
-#remote_exec build "rm -f ${binfile}"
-remote_exec build "rm -f core"
-
-# "C" section, using source copied from "step-test.c" from "gdb.base"
-#
-if { [gdb_compile "${c_srcfile}" "${binfile}" executable {debug}] != "" } {
- gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
-}
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load ${binfile}
-
-# Some basic tests
-#
-gdb_test "tb main" ".*Breakpoint 1 at.*line 15.*" "temp breakpoint"
-gdb_test "b callee" ".*Breakpoint 2 at.*line 6.*" "breakpoint"
-gdb_test "l 10" ".*10.*int main.*11.*int w,x,y,z;.*12.*int a.*" "list"
-gdb_test "c" ".*The program is not being run.*" "catch error"
-gdb_test "r" ".*Starting program.*main.*15.*" "hit bp"
-gdb_test "hel r" ".*Start debugged program.*without arguments.*" "help"
-gdb_test "n" ".*x = 1;.*" "next"
-gdb_test "s" ".*y = 2;.*" "step"
-gdb_test "p/t x" ".* = 1.*" "print x in binary"
-gdb_test "p 1+2*3+4" ".* = 11.*" "calculate"
-gdb_test "p/t 1+2*3+4" ".* = 1011.*" "binary"
-
-# Note: accept either "Watchpoint" or "Hardware watchpoint";
-# 10.20 can't do the hardware watch. The hardware kind
-# triggers one line earlier than the regular kind.
-#
-gdb_test "wat y" ".*atchpoint.*y.*" "set watch"
-gdb_test "c" ".*atchpoint.*Old.*= .*New.*= 2.*1\[78\].*" "continue, hit watch"
-
-gdb_test "set glob=999" ".*.*" "set"
-gdb_test "p glob" ".*= 999.*.*" "print glob"
-gdb_test "p/x glob" ".*= 0x3e7.*" "hex"
-gdb_test "c" ".*atchpoint.*Old.*= 2.*New.*= 6.*2\[12\].*" "continue, 2nd hit watch"
-gdb_test "d 5" "No breakpoint number 5." "del non existing watch"
-gdb_test "c" ".*Breakpoint.*callee.*6.*" "hit bp"
-gdb_test "bt" ".*callee.*6.*main.*25.*" "bt"
-gdb_test "fin" ".*Run till exit.*callee.*Value returned.*0.*" "finish"
-gdb_test "c" ".*Breakpoint.*callee.*6.*" "hit bp again"
-gdb_test "cle" ".*Deleted breakpoint.*" "clear"
-gdb_test "wat glob" ".*atchpoint.*glob.*" "set 2nd watch"
-gdb_test "i wat" ".*" ""
-gdb_test "whe" ".*" ""
-
-# ??rehrauer: We're now disabling watchpoints while an interactive
-# call is "in flight". When/if we can teach gdb how to unwind through
-# the call dummy frame, we can then allow watches during calls, and
-# also then restore this testpoint to the original, commented-out form.
-#
-gdb_test "call callee()" ".*\[0-9\]* = 0.*" "call, didn't hit watch"
-#gdb_test "call callee()" ".*atchpoint.*Old.*= 1000.*New.*= 1001.*\[67\].*being debug.*is done.*" "call, hit watch"
-
-gdb_test "d 4" ".*" "del watch 2"
-gdb_test "d 3" ".*" "del watch 1"
-gdb_test "info break" "No breakpoints or watchpoints."
-# since we have deleted all the watchpoints this test is useless
-#gdb_test "c" ".*Continuing.*" "end call"
-gdb_test "c" ".*Program exited normally.*" "pgm exit"
-
-# Check for production of a core file
-#
-#set exec_output [execute_anywhere "ls core"]
-set exec_output [remote_exec build "ls core"]
-
-if [ regexp "core not found" $exec_output] {
- pass "No core dumped on quit"
-} else {
- if [ regexp "No such file or directory" $exec_output] {
- pass "ls: core: No core dumped on quit"
- } else {
- remote_exec build "rm -f core"
- fail "Core dumped on quit"
- }
-}
-
-
-#========================================
-#
-# "C++" section, using source copied from "misc.cc" from "gdb.c++"
-#
-
-#
-#remote_exec build "rm -f ${binfile}"
-#remote_exec build "CC -g -o ${binfile} ${cpp_srcfile}"
-if {[gdb_compile "${cpp_srcfile}" "${binfile1}" executable {c++ debug}] != ""} {
- gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
-}
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load ${binfile1}
-
-# Tests, some copied from misc.exp.
-#
-
- # See what language gdb thinks main() is, prior to reading full symbols.
- # I think this fails for COFF targets.
- setup_xfail "a29k-*-udi"
- send_gdb "show language\n"
- gdb_expect {
- -re ".* source language is \"auto; currently c\\+\\+\".*$gdb_prompt $" {
- pass "deduced language is C++, before full symbols"
- }
- -re ".*$gdb_prompt $" { fail "source language not correct for C++ (psymtabs only)"}
- return
-
- timeout { fail "can't show language (timeout)"}
- return
- }
-
-gdb_test "b main" ".*Breakpoint 1 at.*" ""
-gdb_test "r" ".*Starting program.*Breakpoint 1.*" "run to main"
-gdb_test "ptype Foo" ".*type = class Foo.*static int st;.*int operator.*" "ptype"
-gdb_test "step" ".*inheritance1.*" "step"
-gdb_test "ptype g_anon_union" ".*anon_union.*union.*int a;.*" "anon"
-gdb_test "p g_E" ".*class D.*class B.*class A.*class C.*class A.*x = 0.*" "print inherited class "
-gdb_test "p g_E.x = 99" ".*warn.*x ambiguous; using E::x. Use a cast to disambig.*99.*" "set via print"
-gdb_test "c" ".*Program exited.*" "run to end"
-
-gdb_exit
-
-# Check for production of a core file
-#
-#set exec_output [execute_anywhere "ls core"]
-set exec_output [remote_exec build "ls core"]
-if [ regexp "core not found" $exec_output] {
- pass "No core dumped on quit"
-} else {
- if [ regexp "No such file or directory" $exec_output] {
- pass "ls: core: No core dumped on quit"
- } else {
- remote_exec build "rm -f core"
- fail "Core dumped on quit"
- }
-}
-
-# execute_anywhere "rm -f ${binfile1}"
-#
-return 0
diff --git a/gdb/testsuite/gdb.chill/extstruct-grt.ch b/gdb/testsuite/gdb.chill/extstruct-grt.ch
deleted file mode 100644
index abd0d5e..0000000
--- a/gdb/testsuite/gdb.chill/extstruct-grt.ch
+++ /dev/null
@@ -1,12 +0,0 @@
-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 --git a/gdb/testsuite/gdb.chill/extstruct.ch b/gdb/testsuite/gdb.chill/extstruct.ch
deleted file mode 100644
index 649f609..0000000
--- a/gdb/testsuite/gdb.chill/extstruct.ch
+++ /dev/null
@@ -1,16 +0,0 @@
-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;
diff --git a/gdb/testsuite/gdb.chill/extstruct.exp b/gdb/testsuite/gdb.chill/extstruct.exp
deleted file mode 100644
index 39d61cb..0000000
--- a/gdb/testsuite/gdb.chill/extstruct.exp
+++ /dev/null
@@ -1,66 +0,0 @@
-# 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