194 lines
4.5 KiB
Plaintext
194 lines
4.5 KiB
Plaintext
-- Copyright (C) 1992 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;
|