2008-05-20 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 20 May 2008 12:44:33 +0000 (12:44 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 20 May 2008 12:44:33 +0000 (12:44 +0000)
* cstand.adb (Print_Standard): Issue the correct Size clause for type
Wide_Wide_Character.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135617 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/cstand.adb

index 1404d35..56f8791 100644 (file)
@@ -1829,7 +1829,7 @@ package body CStand is
       Write_Eol;
 
       P ("   type Wide_Wide_Character is (...)");
-      Write_Str ("   for Wide_Character'Size use ");
+      Write_Str ("   for Wide_Wide_Character'Size use ");
       Write_Int (Standard_Wide_Wide_Character_Size);
       P (";");
       P ("   --  See RM A.1(36) for details of this type");