diff options
author | Andrew Cagney <cagney@redhat.com> | 2002-12-16 19:33:54 +0000 |
---|---|---|
committer | Andrew Cagney <cagney@redhat.com> | 2002-12-16 19:33:54 +0000 |
commit | 66c3405c0ada3c6ce79ee073dfbc11b848615960 (patch) | |
tree | 1a5e50d9d45e8391f2dca5ae3abeb48ccd6598b1 /gdb/testsuite/gdb.chill/tests2.ch | |
parent | 757dbc72af715fe06fc458c3dc47a78417140033 (diff) | |
download | gdb-66c3405c0ada3c6ce79ee073dfbc11b848615960.tar.gz |
Remove obsolete testsuite code.
Diffstat (limited to 'gdb/testsuite/gdb.chill/tests2.ch')
-rw-r--r-- | gdb/testsuite/gdb.chill/tests2.ch | 193 |
1 files changed, 0 insertions, 193 deletions
diff --git a/gdb/testsuite/gdb.chill/tests2.ch b/gdb/testsuite/gdb.chill/tests2.ch deleted file mode 100644 index cf29866d905..00000000000 --- a/gdb/testsuite/gdb.chill/tests2.ch +++ /dev/null @@ -1,193 +0,0 @@ --- Copyright 1992, 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 - --- --- test program 2 (refer to tests2.exp) --- - -tests2: module; - --- testpattern -syn pat1 ulong = H'aaaaaaaa; -syn pat2 ulong = H'55555555; - --- discrete modes -newmode bytem = struct ( - p1 ulong, - m byte, - p2 ulong); -newmode ubytem = struct ( - p1 ulong, - m ubyte, - p2 ulong); -newmode intm = struct ( - p1 ulong, - m int, - p2 ulong); -newmode uintm = struct ( - p1 ulong, - m uint, - p2 ulong); -newmode longm = struct ( - p1 ulong, - m long, - p2 ulong); -newmode ulongm = struct ( - p1 ulong, - m ulong, - p2 ulong); -newmode boolm = struct ( - p1 ulong, - m bool, - p2 ulong); -newmode charm1 = struct ( - p1 ulong, - m char(4), - p2 ulong); -newmode charm2 = struct ( - p1 ulong, - m char(7), - p2 ulong); -newmode charm3 = struct ( - p1 ulong, - m char(8) varying, - p2 ulong); -newmode charm4 = struct ( - p1 ulong, - m char, - p2 ulong); -newmode bitm1 = struct ( - p1 ulong, - m bit(8), - p2 ulong); -newmode bitm2 = struct ( - p1 ulong, - m bit(10), - p2 ulong); -newmode setm1 = struct ( - p1 ulong, - m set (a, b, c, d, e, f, g, h), - p2 ulong); -newmode nset1 = struct ( - p1 ulong, - m set (na = 2147483648, nb = 1024, nc = 4294967295), - p2 ulong); -newmode rm1 = struct ( - p1 ulong, - m range (lower(byte):upper(byte)), - p2 ulong); -newmode rm2 = struct ( - p1 ulong, - m range (lower(int):upper(int)), - p2 ulong); -newmode rm3 = struct ( - p1 ulong, - m range (lower(long):upper(long)), - p2 ulong); -newmode pm1 = struct ( - p1 ulong, - m powerset set (pa, pb, pc, pd, pe, pf, pg, ph), - p2 ulong); -newmode pm2 = struct ( - p1 ulong, - m powerset int (1:32), - p2 ulong); --- this should be rejected by the gnuchill compiler ! -newmode pm3 = struct ( - p1 ulong, --- m powerset long (lower(long): upper(long)), - p2 ulong); -newmode refm1 = struct ( - p1 ulong, - m ptr, - p2 ulong); -newmode refm2 = struct ( - p1 ulong, - m ref bytem, - p2 ulong); -newmode prm1 = struct ( - p1 ulong, - m proc (), - p2 ulong); -newmode tim1 = struct ( - p1 ulong, - m time, - p2 ulong); -newmode tim2 = struct ( - p1 ulong, - m duration, - p2 ulong); -newmode rem1 = struct ( - p1 ulong, - m real, - p2 ulong); -newmode rem2 = struct ( - p1 ulong, - m long_real, - p2 ulong); -newmode arrm1 = struct ( - p1 ulong, - m array(1:3, 1:2) int, - p2 ulong); -newmode strum1 = struct ( - p1 ulong, - m struct (a, b int, ch char(4)), - p2 ulong); - - --- dummyfunction for breakpoints -dummyfunc: proc(); -end dummyfunc; - - -dcl b1 bytem init := [pat1, -128, pat2]; -dcl ub1 ubytem init := [pat1, 0, pat2]; -dcl i1 intm init := [pat1, -32768, pat2]; -dcl ui1 uintm init := [pat1, 0, pat2]; -dcl l1 longm init := [pat1, -2147483648, pat2]; -dcl ul1 ulongm init := [pat1, 0, pat2]; -dcl bo1 boolm init := [pat1, true, pat2]; -dcl c1 charm1 init := [pat1, "1234", pat2]; -dcl c2 charm2 init := [pat1, "1234567", pat2]; -dcl c3 charm3 init := [pat1, "12345678", pat2]; -dcl c4 charm4 init := [pat1, C'00', pat2]; -dcl bi1 bitm1 init := [pat1, B'01011010', pat2]; -dcl bi2 bitm2 init := [pat1, B'1010110101', pat2]; -dcl se1 setm1 init := [pat1, a, pat2]; -dcl nse1 nset1 init := [pat1, na, pat2]; -dcl r1 rm1 init := [pat1, -128, pat2]; -dcl r2 rm2 init := [pat1, -32768, pat2]; -dcl r3 rm3 init := [pat1, -2147483648, pat2]; -dcl p1 pm1 init := [pat1, [pa], pat2]; -dcl p2 pm2 init := [pat1, [1], pat2]; --- dcl p3 pm3 init := [pat1, [-1], pat2]; -- FIXME: bug in gnuchill -dcl ref1 refm1 init := [pat1, null, pat2]; -dcl ref2 refm2 init := [pat1, null, pat2]; -dcl pr1 prm1; -dcl ti1 tim1 init := [pat1, 0, pat2]; -dcl ti2 tim2 init := [pat1, 0, pat2]; -dcl re1 rem1 init := [pat1, 0.0, pat2]; -dcl re2 rem2 init := [pat1, 0.0, pat2]; -dcl arrl1 arrm1 init:=[pat1, [(1:3): [0,0]], pat2]; -dcl strul1 strum1 init := [pat1, [.a: 0, .b: 0, .ch: "0000"], pat2]; - -pr1 := [pat1, dummyfunc, pat2]; -dummyfunc(); - -end tests2; |