g-expect-vms.adb, [...]: Fix incorrect casing of ASCII.NUL throughout.

2008-04-08  Thomas Quinot  <quinot@adacore.com>

	* g-expect-vms.adb, a-textio.adb, a-witeio.adb, exp_dbug.adb,
	g-expect.adb, g-locfil.adb, gnatchop.adb, gnatdll.adb, gnatlbr.adb,
	gnatmem.adb, g-regist.adb, i-vxwork.ads, mlib-utl.adb, i-vxwork-x86.ads,
	a-ztexio.adb, g-enblsp-vms-alpha.adb, g-enblsp-vms-ia64.adb,
	s-os_lib.adb, s-regpat.adb, s-regpat.ads: Fix incorrect casing of
	ASCII.NUL throughout.

From-SVN: r134008

diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb
index 050e71d500ce2726427d09f345103e97c72acedc..9247ba7f7aa22aaf2b4cb31e3c9de81b13d4cd50 100644 (file)
--- a/gcc/ada/a-textio.adb
+++ b/gcc/ada/a-textio.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -858,8 +858,8 @@ package body Ada.Text_IO is
       Result := WC_In (C, File.WC_Method);
 
       if Wide_Character'Pos (Result) > 16#FF# then
-         raise Constraint_Error
-           with "invalid wide character in Text_'I'O input";
+         raise Constraint_Error with
+           "invalid wide character in Text_'I'O input";
       else
          return Character'Val (Wide_Character'Pos (Result));
       end if;
@@ -901,8 +901,8 @@ package body Ada.Text_IO is
       Result := WC_In (C, File.WC_Method);
 
       if Wide_Character'Pos (Result) > 16#FF# then
-         raise Constraint_Error
-           with "invalid wide character in Text_'I'O input";
+         raise Constraint_Error with
+           "invalid wide character in Text_'I'O input";
       else
          return Character'Val (Wide_Character'Pos (Result));
       end if;
@@ -2212,9 +2212,9 @@ package body Ada.Text_IO is
    --  null character in the runtime, here the null characters are added just
    --  to have a correct filename length.
 
-   Err_Name : aliased String := "*stderr" & ASCII.Nul;
-   In_Name  : aliased String := "*stdin" & ASCII.Nul;
-   Out_Name : aliased String := "*stdout" & ASCII.Nul;
+   Err_Name : aliased String := "*stderr" & ASCII.NUL;
+   In_Name  : aliased String := "*stdin" & ASCII.NUL;
+   Out_Name : aliased String := "*stdout" & ASCII.NUL;
 
 begin
    -------------------------------

diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb
index 86a37b6fbe8d7a5043e792fbc86cfde59daa3044..25d265c218ea16e95e8c7f3fed3f18b12f3bb699 100644 (file)
--- a/gcc/ada/a-witeio.adb
+++ b/gcc/ada/a-witeio.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -1848,9 +1848,9 @@ package body Ada.Wide_Text_IO is
    --  a null character in the runtime, here the null characters are added
    --  just to have a correct filename length.
 
-   Err_Name : aliased String := "*stderr" & ASCII.Nul;
-   In_Name  : aliased String := "*stdin" & ASCII.Nul;
-   Out_Name : aliased String := "*stdout" & ASCII.Nul;
+   Err_Name : aliased String := "*stderr" & ASCII.NUL;
+   In_Name  : aliased String := "*stdin" & ASCII.NUL;
+   Out_Name : aliased String := "*stdout" & ASCII.NUL;
 
 begin
    -------------------------------

diff --git a/gcc/ada/a-ztexio.adb b/gcc/ada/a-ztexio.adb
index 296202256e748b2d22c6c53ed6a32c5a2405e9f9..a85cdb30998dd129e2dad0f3c272a8bdc0518833 100644 (file)
--- a/gcc/ada/a-ztexio.adb
+++ b/gcc/ada/a-ztexio.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -1848,9 +1848,9 @@ package body Ada.Wide_Wide_Text_IO is
    --  a null character in the runtime, here the null characters are added
    --  just to have a correct filename length.
 
-   Err_Name : aliased String := "*stderr" & ASCII.Nul;
-   In_Name  : aliased String := "*stdin" & ASCII.Nul;
-   Out_Name : aliased String := "*stdout" & ASCII.Nul;
+   Err_Name : aliased String := "*stderr" & ASCII.NUL;
+   In_Name  : aliased String := "*stdin" & ASCII.NUL;
+   Out_Name : aliased String := "*stdout" & ASCII.NUL;
 
 begin
    -------------------------------

diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb
index 39e5bde840061c30806c40ed8dcf0a11c142bcf4..0a48868b3e0a1c9ad06ad4707a5e7b4c12a4901e 100644 (file)
--- a/gcc/ada/exp_dbug.adb
+++ b/gcc/ada/exp_dbug.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1996-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1996-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -535,7 +535,7 @@ package body Exp_Dbug is
       --  For all these cases, just return the name unchanged
 
       then
-         Name_Buffer (Name_Len + 1) := ASCII.Nul;
+         Name_Buffer (Name_Len + 1) := ASCII.NUL;
          return;
       end if;
 
@@ -751,7 +751,7 @@ package body Exp_Dbug is
          Get_Qualified_Name_And_Append (E);
       end if;
 
-      Name_Buffer (Name_Len + 1) := ASCII.Nul;
+      Name_Buffer (Name_Len + 1) := ASCII.NUL;
    end Get_External_Name;
 
    -----------------------------------
@@ -784,7 +784,7 @@ package body Exp_Dbug is
       if Has_Suffix then
          Add_Str_To_Name_Buffer ("___");
          Add_Str_To_Name_Buffer (Suffix);
-         Name_Buffer (Name_Len + 1) := ASCII.Nul;
+         Name_Buffer (Name_Len + 1) := ASCII.NUL;
       end if;
    end Get_External_Name_With_Suffix;
 

diff --git a/gcc/ada/g-enblsp-vms-alpha.adb b/gcc/ada/g-enblsp-vms-alpha.adb
index 97af39864c70a260e30efcae96f00f66cbed9a9e..4b703263f591fe79bfc574910299a9a19fe0dfec 100644 (file)
--- a/gcc/ada/g-enblsp-vms-alpha.adb
+++ b/gcc/ada/g-enblsp-vms-alpha.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                       Copyright (C) 2005, AdaCore                        --
+--                    Copyright (C) 2005-2008, AdaCore                      --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -91,13 +91,13 @@ begin
 
       Arg   := new String (1 .. Command_With_Path'Length + 1);
       Arg (1 .. Command_With_Path'Length) := Command_With_Path.all;
-      Arg (Arg'Last)        := ASCII.Nul;
+      Arg (Arg'Last)        := ASCII.NUL;
       Arg_List (1)          := Arg.all'Address;
 
       for J in Args'Range loop
          Arg                     := new String (1 .. Args (J)'Length + 1);
          Arg (1 .. Args (J)'Length)  := Args (J).all;
-         Arg (Arg'Last)              := ASCII.Nul;
+         Arg (Arg'Last)              := ASCII.NUL;
          Arg_List (J + 2 - Args'First) := Arg.all'Address;
       end loop;
 

diff --git a/gcc/ada/g-enblsp-vms-ia64.adb b/gcc/ada/g-enblsp-vms-ia64.adb
index 2a1fee8ffbd9e990b8d1611f9a0d9ec169bb1c10..b7a9d3400729915ac2d16c7b560d4a06c5aaf565 100644 (file)
--- a/gcc/ada/g-enblsp-vms-ia64.adb
+++ b/gcc/ada/g-enblsp-vms-ia64.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                       Copyright (C) 2005, AdaCore                        --
+--                    Copyright (C) 2005-2008, AdaCore                      --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -89,13 +89,13 @@ begin
 
       Arg   := new String (1 .. Command_With_Path'Length + 1);
       Arg (1 .. Command_With_Path'Length) := Command_With_Path.all;
-      Arg (Arg'Last)        := ASCII.Nul;
+      Arg (Arg'Last)        := ASCII.NUL;
       Arg_List (1)          := Arg.all'Address;
 
       for J in Args'Range loop
          Arg                     := new String (1 .. Args (J)'Length + 1);
          Arg (1 .. Args (J)'Length)  := Args (J).all;
-         Arg (Arg'Last)              := ASCII.Nul;
+         Arg (Arg'Last)              := ASCII.NUL;
          Arg_List (J + 2 - Args'First) := Arg.all'Address;
       end loop;
 

diff --git a/gcc/ada/g-expect-vms.adb b/gcc/ada/g-expect-vms.adb
index d3d9eb6109eee11b1591484c5e38d1f9467dc7aa..bc74a5d261e656f7eb5d300c1cef18c4d88e992b 100644 (file)
--- a/gcc/ada/g-expect-vms.adb
+++ b/gcc/ada/g-expect-vms.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 2002-2007, AdaCore                     --
+--                     Copyright (C) 2002-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -1109,7 +1109,7 @@ package body GNAT.Expect is
       Dup2 (Pipe2.Output, GNAT.OS_Lib.Standout);
       Dup2 (Pipe3.Output, GNAT.OS_Lib.Standerr);
 
-      Portable_Execvp (Pid.Pid'Access, Cmd & ASCII.Nul, Args);
+      Portable_Execvp (Pid.Pid'Access, Cmd & ASCII.NUL, Args);
    end Set_Up_Child_Communications;
 
    ---------------------------

diff --git a/gcc/ada/g-expect.adb b/gcc/ada/g-expect.adb
index 99e6f638af4bd307eadcf7fd8787a5b2a81d05ce..124d43983a51d6d0706da8e98c20a2d5c713b5c3 100644 (file)
--- a/gcc/ada/g-expect.adb
+++ b/gcc/ada/g-expect.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 2000-2007, AdaCore                     --
+--                     Copyright (C) 2000-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -1220,7 +1220,7 @@ package body GNAT.Expect is
       Dup2 (Pipe2.Output, GNAT.OS_Lib.Standout);
       Dup2 (Pipe3.Output, GNAT.OS_Lib.Standerr);
 
-      Portable_Execvp (Pid.Pid'Access, Cmd & ASCII.Nul, Args);
+      Portable_Execvp (Pid.Pid'Access, Cmd & ASCII.NUL, Args);
 
       --  The following commands are not executed on Unix systems, and are
       --  only required for Windows systems. We are now in the parent process.

diff --git a/gcc/ada/g-locfil.adb b/gcc/ada/g-locfil.adb
index cfd8c33839bf199fef7e35341244d29a68351f14..d00c7ec3db7bd19ed342cf4c7e63545f09b5eb87 100644 (file)
--- a/gcc/ada/g-locfil.adb
+++ b/gcc/ada/g-locfil.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1998-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -61,7 +61,7 @@ package body GNAT.Lock_Files is
       if Directory (Directory'Last) = Dir_Separator
         or else Directory (Directory'Last) = '/'
       then
-         Dir (Dir'Last - 1) := ASCII.Nul;
+         Dir (Dir'Last - 1) := ASCII.NUL;
       end if;
 
       --  Try to lock the file Retries times

diff --git a/gcc/ada/g-regist.adb b/gcc/ada/g-regist.adb
index 8eaa4081bbc515f0b4949318427d9bd24b8cf2d8..0319ff6e7258ee0875f75c19d89b89dbbb3c369c 100644 (file)
--- a/gcc/ada/g-regist.adb
+++ b/gcc/ada/g-regist.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---           Copyright (C) 2001-2007, Free Software Foundation, Inc.        --
+--           Copyright (C) 2001-2008, Free Software Foundation, Inc.        --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -184,8 +184,8 @@ package body GNAT.Registry is
 
       REG_OPTION_NON_VOLATILE : constant := 16#0#;
 
-      C_Sub_Key : constant String := Sub_Key & ASCII.Nul;
-      C_Class   : constant String := "" & ASCII.Nul;
+      C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
+      C_Class   : constant String := "" & ASCII.NUL;
       C_Mode    : constant REGSAM := To_C_Mode (Mode);
 
       New_Key : aliased HKEY;
@@ -214,7 +214,7 @@ package body GNAT.Registry is
    ----------------
 
    procedure Delete_Key (From_Key : HKEY; Sub_Key : String) is
-      C_Sub_Key : constant String := Sub_Key & ASCII.Nul;
+      C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
       Result    : LONG;
    begin
       Result := RegDeleteKey (From_Key, C_Sub_Key (C_Sub_Key'First)'Address);
@@ -226,7 +226,7 @@ package body GNAT.Registry is
    ------------------
 
    procedure Delete_Value (From_Key : HKEY; Sub_Key : String) is
-      C_Sub_Key : constant String := Sub_Key & ASCII.Nul;
+      C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
       Result    : LONG;
    begin
       Result := RegDeleteValue (From_Key, C_Sub_Key (C_Sub_Key'First)'Address);
@@ -339,7 +339,7 @@ package body GNAT.Registry is
    is
       use type REGSAM;
 
-      C_Sub_Key : constant String := Sub_Key & ASCII.Nul;
+      C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
       C_Mode    : constant REGSAM := To_C_Mode (Mode);
 
       New_Key : aliased HKEY;
@@ -377,7 +377,7 @@ package body GNAT.Registry is
       Size_Value : aliased ULONG;
       Type_Value : aliased DWORD;
 
-      C_Sub_Key : constant String := Sub_Key & ASCII.Nul;
+      C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
       Result    : LONG;
 
    begin
@@ -412,8 +412,8 @@ package body GNAT.Registry is
        Value    : String;
        Expand   : Boolean := False)
    is
-      C_Sub_Key : constant String := Sub_Key & ASCII.Nul;
-      C_Value   : constant String := Value & ASCII.Nul;
+      C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
+      C_Value   : constant String := Value & ASCII.NUL;
 
       Value_Type : DWORD;
       Result     : LONG;

diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb
index e38d51bcf5370e40dd8b5c6e1ca5af0ed04bfd6e..e7cacadcdd4ceb182702758fa2d004990515b1b1 100644 (file)
--- a/gcc/ada/gnatchop.adb
+++ b/gcc/ada/gnatchop.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1998-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -425,7 +425,7 @@ procedure Gnatchop is
       Info    : Unit_Info renames Unit.Table (U);
       FD      : File_Descriptor;
       Name    : aliased constant String :=
-                  File.Table (Input).Name.all & ASCII.Nul;
+                  File.Table (Input).Name.all & ASCII.NUL;
       Length  : File_Offset;
       Buffer  : String_Access;
       Result  : String_Access;
@@ -1413,7 +1413,7 @@ procedure Gnatchop is
 
    function Write_Chopped_Files (Input : File_Num) return Boolean is
       Name    : aliased constant String :=
-                  File.Table (Input).Name.all & ASCII.Nul;
+                  File.Table (Input).Name.all & ASCII.NUL;
       FD      : File_Descriptor;
       Buffer  : String_Access;
       Success : Boolean;
@@ -1660,7 +1660,7 @@ procedure Gnatchop is
 
       declare
          E_Name      : constant String := OS_Name (1 .. O_Length);
-         C_Name      : aliased constant String := E_Name & ASCII.Nul;
+         C_Name      : aliased constant String := E_Name & ASCII.NUL;
          OS_Encoding : constant String := Encoding (1 .. E_Length);
          File        : Stream_IO.File_Type;
       begin

diff --git a/gcc/ada/gnatdll.adb b/gcc/ada/gnatdll.adb
index 7ac560475b73ad829c7c928b54ebd09c41ed6390..6917e631d08fe741c4fafca994d2b11d92f950d6 100644 (file)
--- a/gcc/ada/gnatdll.adb
+++ b/gcc/ada/gnatdll.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1997-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1997-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -270,7 +270,7 @@ procedure Gnatdll is
       loop
          case Getopt ("g h v q k a? b: d: e: l: n m I:") is
 
-            when ASCII.Nul =>
+            when ASCII.NUL =>
                exit;
 
             when 'h' =>
@@ -381,7 +381,7 @@ procedure Gnatdll is
 
       loop
          case Getopt ("*") is
-            when ASCII.Nul =>
+            when ASCII.NUL =>
                exit;
 
             when others =>
@@ -397,7 +397,7 @@ procedure Gnatdll is
       loop
          case Getopt ("*") is
 
-            when ASCII.Nul =>
+            when ASCII.NUL =>
                exit;
 
             when others =>

diff --git a/gcc/ada/gnatlbr.adb b/gcc/ada/gnatlbr.adb
index cbf284547a6312576f44232ee70ec888edd725fd..7be1d494baf02ace04c777df7f57a1f78cf74b0d 100644 (file)
--- a/gcc/ada/gnatlbr.adb
+++ b/gcc/ada/gnatlbr.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1997-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1997-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -156,8 +156,8 @@ begin
          Create_Block : declare
             Success        : Boolean;
             Make_Args      : Argument_List (1 .. 9);
-            C_Lib_Dir      : String := Lib_Dir.all & ASCII.Nul;
-            C_ADC_File     : String := ADC_File.all & ASCII.Nul;
+            C_Lib_Dir      : String := Lib_Dir.all & ASCII.NUL;
+            C_ADC_File     : String := ADC_File.all & ASCII.NUL;
             F_ADC_File     : String (1 .. max_path_len);
             F_ADC_File_Len : Integer := max_path_len;
             Include_Dirs   : Integer;
@@ -177,7 +177,7 @@ begin
             full_name (C_ADC_File'Address, F_ADC_File'Address);
 
             for I in 1 .. max_path_len loop
-               if F_ADC_File (I) = ASCII.Nul then
+               if F_ADC_File (I) = ASCII.NUL then
                   F_ADC_File_Len := I - 1;
                   exit;
                end if;

diff --git a/gcc/ada/gnatmem.adb b/gcc/ada/gnatmem.adb
index a279ca3c8d3db3366988d96270149a366c911638..d6ac07834a9d249d371e6394ccb2b1bb75548e1f 100644 (file)
--- a/gcc/ada/gnatmem.adb
+++ b/gcc/ada/gnatmem.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1997-2007, AdaCore                     --
+--                     Copyright (C) 1997-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -307,7 +307,7 @@ procedure Gnatmem is
 
       loop
          case Getopt ("b: dd m: i: q s:") is
-            when ASCII.Nul => exit;
+            when ASCII.NUL => exit;
 
             when 'b' =>
                begin

diff --git a/gcc/ada/i-vxwork-x86.ads b/gcc/ada/i-vxwork-x86.ads
index 25d12a5219992e99140afdca2be5b0850b71b673..506966e13e7e0e2910874bdce085a21624abfc25 100644 (file)
--- a/gcc/ada/i-vxwork-x86.ads
+++ b/gcc/ada/i-vxwork-x86.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                   S p e c                                --
 --                                                                          --
---                     Copyright (C) 1999-2007, AdaCore                     --
+--                     Copyright (C) 1999-2008, AdaCore                     --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -76,7 +76,7 @@ package Interfaces.VxWorks is
    --     procedure Handler (Parameter : System.Address) is
    --     begin
    --        Count := Count + 1;
-   --        logMsg ("received an interrupt" & ASCII.LF & ASCII.Nul);
+   --        logMsg ("received an interrupt" & ASCII.LF & ASCII.NUL);
    --     end Handler;
    --  end P;
    --

diff --git a/gcc/ada/i-vxwork.ads b/gcc/ada/i-vxwork.ads
index ffb28ae821133c93609e0dae5f4e6bf38c68f5c6..902f9e7ea351bc1fb03e732d8da40fffa6c27ac9 100644 (file)
--- a/gcc/ada/i-vxwork.ads
+++ b/gcc/ada/i-vxwork.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                   S p e c                                --
 --                                                                          --
---                     Copyright (C) 1999-2007, AdaCore                     --
+--                     Copyright (C) 1999-2008, AdaCore                     --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -80,7 +80,7 @@ package Interfaces.VxWorks is
    --        S : STATUS;
    --     begin
    --        Count := Count + 1;
-   --        logMsg ("received an interrupt" & ASCII.LF & ASCII.Nul);
+   --        logMsg ("received an interrupt" & ASCII.LF & ASCII.NUL);
    --
    --        --  Acknowledge VME interrupt
    --        S := sysBusIntAck (intLevel => Level);

diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb
index 0381a4155e7228408ab2db6a6a51d9b9dd4b635b..2eceb15db0356da41d2f08e8d8c863626df954a8 100644 (file)
--- a/gcc/ada/mlib-utl.adb
+++ b/gcc/ada/mlib-utl.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 2002-2007, AdaCore                     --
+--                     Copyright (C) 2002-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -299,7 +299,7 @@ package body MLib.Utl is
    -----------------
 
    procedure Delete_File (Filename : String) is
-      File    : constant String := Filename & ASCII.Nul;
+      File    : constant String := Filename & ASCII.NUL;
       Success : Boolean;
 
    begin

diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb
index 7082ff0930c9c795645807217b6b8b6a8fb0f478..3c89fd38184d5a8ad89281e500e1370c16ce3802 100755 (executable)
--- a/gcc/ada/s-os_lib.adb
+++ b/gcc/ada/s-os_lib.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1995-2007, AdaCore                     --
+--                     Copyright (C) 1995-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -458,10 +458,10 @@ package body System.OS_Lib is
          --  Copy attributes
 
          C_From (1 .. Name'Length) := Name;
-         C_From (C_From'Last) := ASCII.Nul;
+         C_From (C_From'Last) := ASCII.NUL;
 
          C_To (1 .. To_Name'Length) := To_Name;
-         C_To (C_To'Last) := ASCII.Nul;
+         C_To (C_To'Last) := ASCII.NUL;
 
          case Preserve is
 
@@ -1622,10 +1622,10 @@ package body System.OS_Lib is
 
                --  If null terminated string, put the quote before
 
-               if Res (J) = ASCII.Nul then
+               if Res (J) = ASCII.NUL then
                   Res (J) := '"';
                   J := J + 1;
-                  Res (J) := ASCII.Nul;
+                  Res (J) := ASCII.NUL;
 
                --  If argument is terminated by '\', then double it. Otherwise
                --  the ending quote will be taken as-is. This is quite strange

diff --git a/gcc/ada/s-regpat.adb b/gcc/ada/s-regpat.adb
index 4204f0cfa06017d130b563157500f8694dcac3b8..95bc4bc16b1f51396fe6c17112fc27fce3939d1b 100755 (executable)
--- a/gcc/ada/s-regpat.adb
+++ b/gcc/ada/s-regpat.adb
@@ -7,7 +7,7 @@
 --                                 B o d y                                  --
 --                                                                          --
 --               Copyright (C) 1986 by University of Toronto.               --
---                      Copyright (C) 1999-2007, AdaCore                    --
+--                      Copyright (C) 1999-2008, AdaCore                    --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -1195,7 +1195,7 @@ package body System.Regpat is
          In_Range    : Boolean := False;
          Named_Class : Std_Class := ANYOF_NONE;
          Value       : Character;
-         Last_Value  : Character := ASCII.Nul;
+         Last_Value  : Character := ASCII.NUL;
 
       begin
          Reset_Class (Bitmap);
@@ -2192,7 +2192,7 @@ package body System.Regpat is
                when ANYOF =>  null;
                   declare
                      Bitmap  : Character_Class;
-                     Last    : Character := ASCII.Nul;
+                     Last    : Character := ASCII.NUL;
                      Current : Natural := 0;
 
                      Current_Char : Character;
@@ -2858,7 +2858,7 @@ package body System.Regpat is
          Next   : Pointer;
          Greedy : Boolean) return Boolean
       is
-         Next_Char       : Character := ASCII.Nul;
+         Next_Char       : Character := ASCII.NUL;
          Next_Char_Known : Boolean := False;
          No              : Integer;  --  Can be negative
          Min             : Natural;

diff --git a/gcc/ada/s-regpat.ads b/gcc/ada/s-regpat.ads
index 0425a2eb983e92939d92feb0e9f6950d7612649a..64429b246428d8db0e01cedf2895081f075126a4 100755 (executable)
--- a/gcc/ada/s-regpat.ads
+++ b/gcc/ada/s-regpat.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                                                                          --
 --               Copyright (C) 1986 by University of Toronto.               --
---                     Copyright (C) 1996-2007, AdaCore                     --
+--                     Copyright (C) 1996-2008, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -604,7 +604,7 @@ private
    --  compile to execute that permits the execute phase to run lots faster on
    --  simple cases. They are:
 
-   --     First              character that must begin a match or ASCII.Nul
+   --     First              character that must begin a match or ASCII.NUL
    --     Anchored           true iff match must start at beginning of line
    --     Must_Have          pointer to string that match must include or null
    --     Must_Have_Length   length of Must_Have string
@@ -621,7 +621,7 @@ private
 
    --  The initialization is meant to fail-safe in case the user of this
    --  package tries to use an uninitialized matcher. This takes advantage
-   --  of the knowledge that ASCII.Nul translates to the end-of-program (EOP)
+   --  of the knowledge that ASCII.NUL translates to the end-of-program (EOP)
    --  instruction code of the state machine.
 
    No_Flags         : constant Regexp_Flags := 0;