diff options
author | Pedro Alves <palves@redhat.com> | 2012-07-04 10:48:32 +0000 |
---|---|---|
committer | Pedro Alves <palves@redhat.com> | 2012-07-04 10:48:32 +0000 |
commit | 8a980b44d002271863f4cdeeeeeba4085b57fbcf (patch) | |
tree | f358c6a114672dfe193fb97f6a1926ab6d8158bb /gdb/testsuite/gdb.ada | |
parent | 1c52a64577904012c953b9e992f2c1b4407a36d1 (diff) | |
download | fsf-binutils-gdb-8a980b44d002271863f4cdeeeeeba4085b57fbcf.zip fsf-binutils-gdb-8a980b44d002271863f4cdeeeeeba4085b57fbcf.tar.gz fsf-binutils-gdb-8a980b44d002271863f4cdeeeeeba4085b57fbcf.tar.bz2 |
2012-07-04 Pedro Alves <palves@redhat.com>
* gdb.ada/packed_tagged/comp_bug.adb: Convert to unix text line
endings.
* gdb.mi/mi-reverse.exp: Convert to unix text line endings.
Diffstat (limited to 'gdb/testsuite/gdb.ada')
-rw-r--r-- | gdb/testsuite/gdb.ada/packed_tagged/comp_bug.adb | 80 |
1 files changed, 40 insertions, 40 deletions
diff --git a/gdb/testsuite/gdb.ada/packed_tagged/comp_bug.adb b/gdb/testsuite/gdb.ada/packed_tagged/comp_bug.adb index 64bcbfb..5899b09 100644 --- a/gdb/testsuite/gdb.ada/packed_tagged/comp_bug.adb +++ b/gdb/testsuite/gdb.ada/packed_tagged/comp_bug.adb @@ -1,40 +1,40 @@ --- Copyright 2008-2012 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 3 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, see <http://www.gnu.org/licenses/>.
-
-procedure Comp_Bug is
-
- type Number_T (Exists : Boolean := False) is
- record
- case Exists is
- when True =>
- Value : Natural range 0 .. 255;
- when False =>
- null;
- end case;
- end record;
- pragma Pack (Number_T);
-
- X : Number_T;
- -- brobecker/2007-09-06: At the time when this issue (G904-017) was
- -- reported, the problem only reproduced if the variable was declared
- -- inside a function (in other words, stored on stack). Although
- -- the issue probably still existed when I tried moving this variable
- -- to a package spec, the symptoms inside GDB disappeared.
-begin
- X := (Exists => True, Value => 10);
- if X.Exists then -- STOP
- X.Value := X.Value + 1;
- end if;
-end Comp_Bug;
+-- Copyright 2008-2012 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 3 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, see <http://www.gnu.org/licenses/>. + +procedure Comp_Bug is + + type Number_T (Exists : Boolean := False) is + record + case Exists is + when True => + Value : Natural range 0 .. 255; + when False => + null; + end case; + end record; + pragma Pack (Number_T); + + X : Number_T; + -- brobecker/2007-09-06: At the time when this issue (G904-017) was + -- reported, the problem only reproduced if the variable was declared + -- inside a function (in other words, stored on stack). Although + -- the issue probably still existed when I tried moving this variable + -- to a package spec, the symptoms inside GDB disappeared. +begin + X := (Exists => True, Value => 10); + if X.Exists then -- STOP + X.Value := X.Value + 1; + end if; +end Comp_Bug; |