-- --
-- B o d y --
-- --
--- $Revision: 1.9 $
+-- $Revision$
-- --
--- Copyright (C) 1992-2000 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
-- 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- --
Lo, Hi : Natural)
return Natural
is
+ pragma Warnings (Off, Names);
+
W : Natural;
type Natural_8 is range 0 .. 2 ** 7 - 1;
Lo, Hi : Natural)
return Natural
is
+ pragma Warnings (Off, Names);
+
W : Natural;
type Natural_16 is range 0 .. 2 ** 15 - 1;
Lo, Hi : Natural)
return Natural
is
+ pragma Warnings (Off, Names);
+
W : Natural;
type Natural_32 is range 0 .. 2 ** 31 - 1;