Changeset 2649

Timestamp:

05/06/08 14:37:38 (8 months ago)

Author:

maxr

Message:

ada: in unknown pragmas treat "xxx" as string literal, not as operator symbol

Files:

• trunk/tendra/src/producers/ada/asis/asis-gela-normalizer-utils.adb (modified) (1 diff)

trunk/tendra/src/producers/ada/asis/asis-gela-normalizer-utils.adb

@@ -655 +655 @@
-         when A_Linker_Options_Pragma =>
-            Replace.Operator_Symbol_To_String_Literal (Element);
+
+         when An_Unknown_Pragma =>
+            if Expression_Kind (Element) = An_Operator_Symbol then
+               Replace.Operator_Symbol_To_String_Literal (Element);
+            end if;
-
-         when others =>