diff options
Diffstat (limited to 'gcc/ada/sem_ch2.adb')
| -rw-r--r-- | gcc/ada/sem_ch2.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch2.adb b/gcc/ada/sem_ch2.adb index ebfc834b84c..0656bde1668 100644 --- a/gcc/ada/sem_ch2.adb +++ b/gcc/ada/sem_ch2.adb @@ -103,7 +103,6 @@ package body Sem_Ch2 is procedure Analyze_String_Literal (N : Node_Id) is begin - -- The type is eventually inherited from the context. If expansion -- has already established the proper type, do not modify it. @@ -115,7 +114,7 @@ package body Sem_Ch2 is -- turns out to be non-static, then the Is_Static_Expression flag -- will be reset in Eval_String_Literal. - if Ada_95 then + if Ada_Version >= Ada_95 then Set_Is_Static_Expression (N); end if; |