gdb/testsuite/gdb.ada/fixed_cmp/fixed.adb - Issue 124383005: GDB 7.6.50

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: gdb/testsuite/gdb.ada/fixed_cmp/fixed.adb

Issue 124383005: GDB 7.6.50 (Closed) Base URL: http://git.chromium.org/native_client/nacl-gdb.git@upstream

Patch Set: Created 6 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/fixed_cmp.exp ('k') | gdb/testsuite/gdb.ada/fixed_cmp/pck.adb » ('j') | no next file with comments »

OLD	NEW
1 -- Copyright 2007-2012 Free Software Foundation, Inc.	1 -- Copyright 2007-2013 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 Pck; use Pck;	16 with Pck; use Pck;

17	17

18 procedure Fixed is	18 procedure Fixed is

19 type Fixed_Point_Type is delta 0.001 range 0.0 .. 1000.0;	19 type Fixed_Point_Type is delta 0.001 range 0.0 .. 1000.0;

20	20

21 My_Var : Fixed_Point_Type := 14.0;	21 My_Var : Fixed_Point_Type := 14.0;

22 begin	22 begin

23 Do_Nothing (My_Var'Address); -- STOP	23 Do_Nothing (My_Var'Address); -- STOP

24 end Fixed;	24 end Fixed;

OLD	NEW