From 43c6e0cb2115c752aaa0d7dbc9f04587cb43f350 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Tue, 8 Apr 2008 08:44:39 +0200 Subject: [PATCH] g-expect-vms.adb, [...]: Fix incorrect casing of ASCII.NUL throughout. 2008-04-08 Thomas Quinot * 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 --- gcc/ada/a-textio.adb | 16 ++++++++-------- gcc/ada/a-witeio.adb | 8 ++++---- gcc/ada/a-ztexio.adb | 8 ++++---- gcc/ada/exp_dbug.adb | 8 ++++---- gcc/ada/g-enblsp-vms-alpha.adb | 6 +++--- gcc/ada/g-enblsp-vms-ia64.adb | 6 +++--- gcc/ada/g-expect-vms.adb | 4 ++-- gcc/ada/g-expect.adb | 4 ++-- gcc/ada/g-locfil.adb | 4 ++-- gcc/ada/g-regist.adb | 18 +++++++++--------- gcc/ada/gnatchop.adb | 8 ++++---- gcc/ada/gnatdll.adb | 8 ++++---- gcc/ada/gnatlbr.adb | 8 ++++---- gcc/ada/gnatmem.adb | 4 ++-- gcc/ada/i-vxwork-x86.ads | 4 ++-- gcc/ada/i-vxwork.ads | 4 ++-- gcc/ada/mlib-utl.adb | 4 ++-- gcc/ada/s-os_lib.adb | 10 +++++----- gcc/ada/s-regpat.adb | 8 ++++---- gcc/ada/s-regpat.ads | 6 +++--- 20 files changed, 73 insertions(+), 73 deletions(-) diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index 050e71d500c..9247ba7f7aa 100644 --- 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 86a37b6fbe8..25d265c218e 100644 --- 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 296202256e7..a85cdb30998 100644 --- 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 39e5bde8400..0a48868b3e0 100644 --- 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 97af39864c7..4b703263f59 100644 --- 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 2a1fee8ffbd..b7a9d340072 100644 --- 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 d3d9eb6109e..bc74a5d261e 100644 --- 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 99e6f638af4..124d43983a5 100644 --- 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 cfd8c33839b..d00c7ec3db7 100644 --- 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 8eaa4081bbc..0319ff6e725 100644 --- 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 e38d51bcf53..e7cacadcdd4 100644 --- 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 7ac560475b7..6917e631d08 100644 --- 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 cbf284547a6..7be1d494baf 100644 --- 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 a279ca3c8d3..d6ac07834a9 100644 --- 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 25d12a52199..506966e13e7 100644 --- 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 ffb28ae8211..902f9e7ea35 100644 --- 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 0381a4155e7..2eceb15db03 100644 --- 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 7082ff0930c..3c89fd38184 100755 --- 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 4204f0cfa06..95bc4bc16b1 100755 --- 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 0425a2eb983..64429b24642 100755 --- 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; -- 2.30.2