diff options
| author | Bob Duff <duff@adacore.com> | 2021-06-28 20:02:20 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-20 12:31:37 +0000 |
| commit | 2175b50b74dd03df45b4efb792029848c4a76381 (patch) | |
| tree | 178a93d43acd58d98b39459ca33266ffd0b9dab2 /gcc/ada/sinfo-utils.adb | |
| parent | 9613900aef1cdb5c5c3b867825b6295c0b00f4cc (diff) | |
| download | gcc-2175b50b74dd03df45b4efb792029848c4a76381.zip gcc-2175b50b74dd03df45b4efb792029848c4a76381.tar.gz gcc-2175b50b74dd03df45b4efb792029848c4a76381.tar.bz2 | |
[Ada] Present and No functions for type Uint
gcc/ada/
* uintp.ads, uintp.adb (Present, No): New functions for
comparing with No_Uint.
* checks.adb, einfo-utils.adb, exp_aggr.adb, exp_attr.adb,
exp_ch3.adb, exp_ch4.adb, exp_dbug.adb, exp_disp.adb,
exp_util.adb, repinfo.adb, repinfo-input.adb, scn.adb,
sem_attr.adb, sem_ch13.adb, sem_eval.adb, sem_util.adb,
sinfo-utils.adb, treepr.adb: Use Present (...) instead of "...
/= No_Uint", and No (...) instead of "... = No_Uint".
Diffstat (limited to 'gcc/ada/sinfo-utils.adb')
| -rw-r--r-- | gcc/ada/sinfo-utils.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sinfo-utils.adb b/gcc/ada/sinfo-utils.adb index 7f9bb89..083c12e 100644 --- a/gcc/ada/sinfo-utils.adb +++ b/gcc/ada/sinfo-utils.adb @@ -191,7 +191,7 @@ package body Sinfo.Utils is function End_Location (N : Node_Id) return Source_Ptr is L : constant Uint := End_Span (N); begin - if L = No_Uint then + if No (L) then return No_Location; else return Source_Ptr (Int (Sloc (N)) + UI_To_Int (L)); |