diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-06-06 12:36:48 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:36:48 +0200 |
| commit | f35b24e9cc18e2f917aa52dfaea8cf88a85cbb68 (patch) | |
| tree | 6574dd19dcce4e6014fb5f03a9ea6662d5ab98bd /gcc/ada/layout.ads | |
| parent | 27f92b1609f366d1642bd8a4323cec8e317fe948 (diff) | |
| download | gcc-f35b24e9cc18e2f917aa52dfaea8cf88a85cbb68.zip gcc-f35b24e9cc18e2f917aa52dfaea8cf88a85cbb68.tar.gz gcc-f35b24e9cc18e2f917aa52dfaea8cf88a85cbb68.tar.bz2 | |
layout.ads, layout.adb (Adjust_Esize_Alignment): Move spec to package spec from body
2007-04-20 Robert Dewar <dewar@adacore.com>
* layout.ads, layout.adb (Adjust_Esize_Alignment): Move spec to package
spec from body
(Layout_Type): Fix recomputation of size from alignment.
From-SVN: r125430
Diffstat (limited to 'gcc/ada/layout.ads')
| -rw-r--r-- | gcc/ada/layout.ads | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/layout.ads b/gcc/ada/layout.ads index bbdec52..e1cbe94 100644 --- a/gcc/ada/layout.ads +++ b/gcc/ada/layout.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2006, 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- -- @@ -60,6 +60,13 @@ package Layout is -- it means that the object must be allocated dynamically, since -- its length is not known at compile time. + -- The following are utility routines, called from various places + + procedure Adjust_Esize_Alignment (E : Entity_Id); + -- E is the entity for a type or object. This procedure checks that the + -- size and alignment are compatible, and if not either gives an error + -- message if they cannot be adjusted or else adjusts them appropriately. + procedure Set_Discrete_RM_Size (Def_Id : Entity_Id); -- Set proper RM_Size for discrete size, this is normally the minimum -- number of bits to accommodate the range given, except in the case |