diff options
| author | Viljar Indus <indus@adacore.com> | 2023-07-11 15:20:15 +0300 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-07-28 09:28:14 +0200 |
| commit | f30396a0e1887cc5d5bf712f4f45bc37c90a3c7c (patch) | |
| tree | 48ace1af998d1f587d83b390914a04615ec8e90a | |
| parent | 8dcd763ac6203904339ccc87cfee28892dbb7231 (diff) | |
| download | gcc-f30396a0e1887cc5d5bf712f4f45bc37c90a3c7c.zip gcc-f30396a0e1887cc5d5bf712f4f45bc37c90a3c7c.tar.gz gcc-f30396a0e1887cc5d5bf712f4f45bc37c90a3c7c.tar.bz2 | |
ada: Small refactor
gcc/ada/
* exp_util.adb (Find_Optional_Prim_Op): use "No" instead of "= Empty"
| -rw-r--r-- | gcc/ada/exp_util.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 66e1acb..9f843d6 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -6291,8 +6291,9 @@ package body Exp_Util is Typ := Underlying_Type (Typ); - -- We cannot find the operation if there is no full view available. - if Typ = Empty then + -- We cannot find the operation if there is no full view available + + if No (Typ) then return Empty; end if; |