diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-11-20 11:34:09 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-11-20 11:34:09 +0000 |
| commit | e81df51c2c2c6bbb2deed9e163e6dd3eb6f513df (patch) | |
| tree | ac3d62b564971839fe093eecd087fc41b29f0529 /gcc/ada/uintp.h | |
| parent | bfc82eed47c9422ec60aa37596d1975dccc1c72c (diff) | |
| download | gcc-e81df51c2c2c6bbb2deed9e163e6dd3eb6f513df.tar.gz | |
2014-11-20 Robert Dewar <dewar@adacore.com>
* inline.adb, sem_util.adb: Minor reformatting.
2014-11-20 Pierre-Marie Derodat <derodat@adacore.com>
* uintp.h (UI_Eq): Declare.
* urealp.h (Norm_Den): Declare.
(Norm_Num): Declare.
* exp_dbug.adb (Is_Handled_Scale_Factor): New.
(Get_Encoded_Name): Do not output ___XF GNAT encodings
for fixed-point types when these can be handled by GCC's DWARF
back-end.
2014-11-20 Thomas Quinot <quinot@adacore.com>
* sem_ch13.db (Inherit_Aspects_At_Freeze_Point): Inherit parent
SSO even if set through a pragma Default_Scalar_Storage_Order.
* freeze.adb (Set_SSO_From_Default): For a type extension,
do not let the default SSO override the parent SSO.
* gnat_rm.texi: document the above
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@217842 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/uintp.h')
| -rw-r--r-- | gcc/ada/uintp.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/uintp.h b/gcc/ada/uintp.h index b950a88cbfb..1f4e7a3e7bf 100644 --- a/gcc/ada/uintp.h +++ b/gcc/ada/uintp.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2011, Free Software Foundation, Inc. * + * Copyright (C) 1992-2014, 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- * @@ -79,6 +79,10 @@ typedef struct {const int *Array; Vector_Template *Bounds; } #define Vector_To_Uint uintp__vector_to_uint extern Uint Vector_To_Uint (Int_Vector, Boolean); +/* Compare integer values for equality. */ +#define UI_Eq uintp__ui_eq +extern Boolean UI_Eq (Uint, Uint); + /* Compare integer values for less than. */ #define UI_Lt uintp__ui_lt extern Boolean UI_Lt (Uint, Uint); |