mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-24 14:49:46 +08:00
Code Issues Packages Projects Releases Wiki Activity

g-dyntab.adb (Index_Of): conversion from Natural can no longer raise Constraint_Error.

Browse Source 
2006-02-13  Matthew Heaney  <heaney@adacore.com>

	*  g-dyntab.adb (Index_Of): conversion from Natural can no longer raise
	Constraint_Error.

From-SVN: r111073
This commit is contained in:
Matthew Heaney 2006-02-15 10:40:52 +01:00 committed by Arnaud Charlet
parent 99c222911b
commit 987b2901fd
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/g-dyntab.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2000-2005, AdaCore --
-- Copyright (C) 2000-2006, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -165,7 +165,7 @@ package body GNAT.Dynamic_Tables is
-- Last --
----------
function Last (T : in Instance) return Table_Index_Type is
function Last (T : Instance) return Table_Index_Type is
begin
return Table_Index_Type (T.P.Last_Val);
end Last;
@ -284,8 +284,11 @@ package body GNAT.Dynamic_Tables is
--------------
function Index_Of (Idx : Natural) return Table_Index_Type is
J : constant Integer'Base :=
Table_Index_Type'Pos (First) + Idx - 1;
begin
return First + Table_Index_Type (Idx) - 1;
return Table_Index_Type'Val (J);
end Index_Of;
----------