Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(910)

Side by Side Diff: gdb/testsuite/gdb.ada/enum_idx_packed/pck.ads

Issue 11969036: Merge GDB 7.5.1 (Closed) Base URL: http://git.chromium.org/native_client/nacl-gdb.git@master
Patch Set: Created 7 years, 11 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View unified diff | Download patch
« no previous file with comments | « gdb/testsuite/gdb.ada/enum_idx_packed/pck.adb ('k') | gdb/testsuite/gdb.ada/exec_changed.exp » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
OLDNEW
1 -- Copyright 2011-2012 Free Software Foundation, Inc. 1 -- Copyright 2012 Free Software Foundation, Inc.
2 -- 2 --
3 -- This program is free software; you can redistribute it and/or modify 3 -- This program is free software; you can redistribute it and/or modify
4 -- it under the terms of the GNU General Public License as published by 4 -- it under the terms of the GNU General Public License as published by
5 -- the Free Software Foundation; either version 3 of the License, or 5 -- the Free Software Foundation; either version 3 of the License, or
6 -- (at your option) any later version. 6 -- (at your option) any later version.
7 -- 7 --
8 -- This program is distributed in the hope that it will be useful, 8 -- This program is distributed in the hope that it will be useful,
9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of 9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 -- GNU General Public License for more details. 11 -- GNU General Public License for more details.
12 -- 12 --
13 -- You should have received a copy of the GNU General Public License 13 -- You should have received a copy of the GNU General Public License
14 -- along with this program. If not, see <http://www.gnu.org/licenses/>. 14 -- along with this program. If not, see <http://www.gnu.org/licenses/>.
15 15
16 with System; 16 with System;
17
18 package Pck is 17 package Pck is
19 type Color is (Black, Red, Green, Blue, White); 18 type Color is (Black, Red, Green, Blue, White);
20 type RGB_Color is new Color range Red .. Blue; 19 type Full_Table is array (Color) of Boolean;
20 pragma Pack (Full_Table);
21 21
22 procedure Do_Nothing (A : System.Address); 22 procedure Do_Nothing (A : System.Address);
23 end Pck; 23 end Pck;
24
OLDNEW
« no previous file with comments | « gdb/testsuite/gdb.ada/enum_idx_packed/pck.adb ('k') | gdb/testsuite/gdb.ada/exec_changed.exp » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698