diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-06-21 13:52:29 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-15 05:39:07 -0400 |
| commit | c2c8f0d0428e178120f78ae62107dd608cf8ccfd (patch) | |
| tree | 578a3c7963bbe5742bc962d27066bef3f7d178cf /gcc/ada | |
| parent | fe3463cc9884e422f8d9147d2e8b5ef13e336aa6 (diff) | |
| download | gcc-c2c8f0d0428e178120f78ae62107dd608cf8ccfd.zip gcc-c2c8f0d0428e178120f78ae62107dd608cf8ccfd.tar.gz gcc-c2c8f0d0428e178120f78ae62107dd608cf8ccfd.tar.bz2 | |
[Ada] Complete support for static intrinsic functions
gcc/ada/
* sem_res.adb (Resolve_Call): Do not try to inline intrinsic
calls.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/sem_res.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 50a4287..d1d5e3d 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -7042,6 +7042,7 @@ package body Sem_Res is if not Checking_Potentially_Static_Expression and then Is_Static_Function_Call (N) + and then not Is_Intrinsic_Subprogram (Ultimate_Alias (Nam)) and then not Error_Posted (Ultimate_Alias (Nam)) then Inline_Static_Function_Call (N, Ultimate_Alias (Nam)); |