summaryrefslogtreecommitdiff
path: root/gcc/ada/system-hpux.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/system-hpux.ads')
-rw-r--r--gcc/ada/system-hpux.ads8
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/system-hpux.ads b/gcc/ada/system-hpux.ads
index 9e510be1a7e..4a72615f49c 100644
--- a/gcc/ada/system-hpux.ads
+++ b/gcc/ada/system-hpux.ads
@@ -37,10 +37,10 @@
------------------------------------------------------------------------------
package System is
-pragma Pure (System);
--- Note that we take advantage of the implementation permission to make this
--- unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada 2005, this is
--- Pure in any case (AI-362).
+ pragma Pure;
+ -- Note that we take advantage of the implementation permission to make
+ -- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
+ -- 2005, this is Pure in any case (AI-362).
type Name is (SYSTEM_NAME_GNAT);
System_Name : constant Name := SYSTEM_NAME_GNAT;