aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorZack Weinberg <zack@gcc.gnu.org>2003-11-06 08:38:52 +0000
committerZack Weinberg <zack@gcc.gnu.org>2003-11-06 08:38:52 +0000
commit37783865bd0f4e8f822ecc57d80dbbfc9a59bf42 (patch)
tree422f097a3e186761a863087fa6c10b836fc42a61 /gcc/ada
parent6c748c6c998fda800c435ad9e00bed57a1aa98a0 (diff)
downloadgcc-37783865bd0f4e8f822ecc57d80dbbfc9a59bf42.zip
gcc-37783865bd0f4e8f822ecc57d80dbbfc9a59bf42.tar.gz
gcc-37783865bd0f4e8f822ecc57d80dbbfc9a59bf42.tar.bz2
genmodes.c: Change the word "bitsize" to "precision" throughout.
* genmodes.c: Change the word "bitsize" to "precision" throughout. * machmode.def: Likewise. * machmode.h (GET_MODE_SIZE): Cast value to unsigned short. (GET_MODE_BITSIZE): Define as GET_MODE_SIZE * BITS_PER_UNIT. (GET_MODE_PRECISION): New macro. (mode_bitsize): Renamed mode_precision. * stor-layout.c (mode_for_size, smallest_mode_for_size): Use GET_MODE_PRECISION; clarify comments. ada: * misc.c (fp_prec_to_size, fp_size_to_prec): Use GET_MODE_PRECISION and update for changed meaning of GET_MODE_BITSIZE. From-SVN: r73295
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog53
-rw-r--r--gcc/ada/misc.c8
2 files changed, 33 insertions, 28 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f9cdbf9..5ab6530 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,9 +1,14 @@
+2003-11-06 Zack Weinberg <zack@codesourcery.com>
+
+ * misc.c (fp_prec_to_size, fp_size_to_prec): Use GET_MODE_PRECISION
+ and update for changed meaning of GET_MODE_BITSIZE.
+
2003-11-04 Doug Rupp <rupp@gnat.com>
* sysdep.c: Problem discovered during IA64 VMS port.
[VMS] #include <unixio.h> to get proper prototypes.
- * adaint.c:
+ * adaint.c:
Issues discovered/problems fixed during IA64 VMS port.
[VMS] #define _POSIX_EXIT for proper semantics.
[VMS] #include <unixio.h> for proper prototypes.
@@ -17,7 +22,7 @@
* ada-tree.h (TYPE_DIGITS_VALUE, SET_TYPE_DIGITS_VALUE): Save count as
tree, not integer.
- * decl.c:
+ * decl.c:
(gnat_to_gnu_entity, case E_Floating_Point_Type): Save count as tree,
not integer.
@@ -25,7 +30,7 @@
gigi.h (fp_prec_to_size, fp_size_to_prec): Temporary
routines to work around change in FP sizing semantics in GCC.
- * utils.c:
+ * utils.c:
(build_vms_descriptor): TYPE_DIGITS_VALUE is tree, not integer.
* gigi.h: (enumerate_modes): New function.
@@ -44,22 +49,22 @@
* einfo.ads, einfo.adb: Add new flag Is_Thread_Body
- * exp_ch6.adb:
+ * exp_ch6.adb:
(Expand_N_Subprogram_Body): Handle expansion of thread body procedure
* par-prag.adb: Add dummy entry for Thread_Body pragma
- * rtsfind.ads:
+ * rtsfind.ads:
Add entries for System.Threads entities for thread body processing
- * sem_attr.adb:
+ * sem_attr.adb:
(Analyze_Pragma, Access attributes): Check these are not applied to a
thread body, since this is not permitted
* sem_prag.adb: Add processing for Thread_Body pragma.
Minor comment fix.
- * sem_res.adb:
+ * sem_res.adb:
(Resolve_Call): Check for incorrect attempt to call a thread body
procedure with a direct call.
@@ -76,7 +81,7 @@
2003-11-04 Javier Miranda <miranda@gnat.com>
- * sem_ch10.adb:
+ * sem_ch10.adb:
(Build_Limited_Views): Return after posting an error in case of limited
with_clause on subprograms, generics, instances or generic renamings
(Install_Limited_Withed_Unit): Do nothing in case of limited with_clause
@@ -165,7 +170,7 @@
2003-10-30 Vasiliy Fofanov <fofanov@act-europe.fr>
- * 3vtrasym.adb:
+ * 3vtrasym.adb:
Demangle Ada symbols returned by TBK$SYMBOLIZE. Correctly align line
numbers when symbol name is too long.
@@ -183,8 +188,8 @@
* lib-writ.adb (Write_ALI): Never write ali file if -gnats is specified
- * par.adb, par-ch12.adb, par-ch13.adb, par-ch2.adb, par-ch3.adb,
- par-ch5.adb, par-ch6.adb, par-ch9.adb, par-util.adb:
+ * par.adb, par-ch12.adb, par-ch13.adb, par-ch2.adb, par-ch3.adb,
+ par-ch5.adb, par-ch6.adb, par-ch9.adb, par-util.adb:
New handling of Id_Check parameter to improve recognition of keywords
used as identifiers.
Update copyright notice to include 2003
@@ -199,18 +204,18 @@
2003-10-29 Vasiliy Fofanov <fofanov@act-europe.fr>
- * 3vtrasym.adb, 5vtraent.adb, 5vtraent.ads, tb-alvms.c:
+ * 3vtrasym.adb, 5vtraent.adb, 5vtraent.ads, tb-alvms.c:
Support for TBK$SYMBOLIZE-based symbolic traceback.
2003-10-29 Jose Ruiz <ruiz@act-europe.fr>
- * exp_disp.adb:
+ * exp_disp.adb:
Revert previous change, that did not work well when pragma No_Run_Time
was used in conjunction with a run-time other than ZFP.
2003-10-29 Vincent Celier <celier@gnat.com>
- * make.adb:
+ * make.adb:
(Gnatmake): When there are no Ada mains in attribute Main, disable the
bind and link steps only is switch -z is not used.
@@ -238,11 +243,11 @@
2003-10-29 Javier Miranda <miranda@gnat.com>
- * sem_ch12.adb:
+ * sem_ch12.adb:
(Analyze_Package_Instantiation): Check that instances can not be used in
limited with_clauses.
- * sem_ch8.adb:
+ * sem_ch8.adb:
(Analyze_Package_Renaming): Check that limited withed packages cannot
be renamed. Improve text on error messages related to limited
with_clauses.
@@ -332,18 +337,18 @@
2003-10-27 Robert Dewar <dewar@gnat.com>
- * exp_ch3.adb:
+ * exp_ch3.adb:
(Freeze_Array_Type): We do not need an initialization routine for types
derived from String or Wide_String. They should be treated the same
as String and Wide_String themselves. This caused problems with the
use of Initialize_Scalars.
- * exp_ch5.adb:
+ * exp_ch5.adb:
(Expand_Assign_Record): Do component-wise assignment of non-byte aligned
composites. This allows use of component clauses that are not byte
aligned.
- * sem_prag.adb:
+ * sem_prag.adb:
(Analyze_Pragma, case Pack): Generate warning and ignore pack if there
is an attempt to pack an array of atomic objects.
@@ -351,12 +356,12 @@
2003-10-27 Pascal Obry <obry@gnat.com>
- * g-dirope.adb:
+ * g-dirope.adb:
(Basename): Check for drive letters in a pathname only on DOS based OS.
2003-10-27 Vincent Celier <celier@gnat.com>
- * make.adb:
+ * make.adb:
(Gnatmake): When unable to change dir to the object dir, display the
content of the parent dir of the obj dir, to try to understand why this
happens.
@@ -367,16 +372,16 @@
2003-10-27 Ed Schonberg <schonberg@gnat.com>
- * sem_ch12.adb:
+ * sem_ch12.adb:
(Inline_Instance_Body): Indicate that the save/restore of use_clauses
should not be done in Save/Restore_Scope_Stack, because it is performed
locally.
- * sem_ch8.adb:
+ * sem_ch8.adb:
(Save_Scope_Stack, Restore_Scope_Stack): Add parameter to indicate
whether use clauses should be removed/restored.
- * sem_ch8.ads:
+ * sem_ch8.ads:
(Save_Scope_Stack, Restore_Scope_Stack): Add parameter to indicate
whether use clauses should be removed/restored.
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c
index 42bb3fa..d0b4936 100644
--- a/gcc/ada/misc.c
+++ b/gcc/ada/misc.c
@@ -973,8 +973,8 @@ fp_prec_to_size (int prec)
for (mode = GET_CLASS_NARROWEST_MODE (MODE_FLOAT); mode != VOIDmode;
mode = GET_MODE_WIDER_MODE (mode))
- if (GET_MODE_BITSIZE (mode) == prec)
- return GET_MODE_SIZE (mode) * BITS_PER_UNIT;
+ if (GET_MODE_PRECISION (mode) == prec)
+ return GET_MODE_BITSIZE (mode);
abort ();
}
@@ -986,8 +986,8 @@ fp_size_to_prec (int size)
for (mode = GET_CLASS_NARROWEST_MODE (MODE_FLOAT); mode != VOIDmode;
mode = GET_MODE_WIDER_MODE (mode))
- if (GET_MODE_SIZE (mode) * BITS_PER_UNIT == size)
- return GET_MODE_BITSIZE (mode);
+ if (GET_MODE_BITSIZE (mode) == size)
+ return GET_MODE_PRECISION (mode);
abort ();
}