Commit 43c6e0cb by Thomas Quinot Committed by Arnaud Charlet

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
parent 9df6385a
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -858,8 +858,8 @@ package body Ada.Text_IO is ...@@ -858,8 +858,8 @@ package body Ada.Text_IO is
Result := WC_In (C, File.WC_Method); Result := WC_In (C, File.WC_Method);
if Wide_Character'Pos (Result) > 16#FF# then if Wide_Character'Pos (Result) > 16#FF# then
raise Constraint_Error raise Constraint_Error with
with "invalid wide character in Text_'I'O input"; "invalid wide character in Text_'I'O input";
else else
return Character'Val (Wide_Character'Pos (Result)); return Character'Val (Wide_Character'Pos (Result));
end if; end if;
...@@ -901,8 +901,8 @@ package body Ada.Text_IO is ...@@ -901,8 +901,8 @@ package body Ada.Text_IO is
Result := WC_In (C, File.WC_Method); Result := WC_In (C, File.WC_Method);
if Wide_Character'Pos (Result) > 16#FF# then if Wide_Character'Pos (Result) > 16#FF# then
raise Constraint_Error raise Constraint_Error with
with "invalid wide character in Text_'I'O input"; "invalid wide character in Text_'I'O input";
else else
return Character'Val (Wide_Character'Pos (Result)); return Character'Val (Wide_Character'Pos (Result));
end if; end if;
...@@ -2212,9 +2212,9 @@ package body Ada.Text_IO is ...@@ -2212,9 +2212,9 @@ package body Ada.Text_IO is
-- null character in the runtime, here the null characters are added just -- null character in the runtime, here the null characters are added just
-- to have a correct filename length. -- to have a correct filename length.
Err_Name : aliased String := "*stderr" & ASCII.Nul; Err_Name : aliased String := "*stderr" & ASCII.NUL;
In_Name : aliased String := "*stdin" & ASCII.Nul; In_Name : aliased String := "*stdin" & ASCII.NUL;
Out_Name : aliased String := "*stdout" & ASCII.Nul; Out_Name : aliased String := "*stdout" & ASCII.NUL;
begin begin
------------------------------- -------------------------------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1848,9 +1848,9 @@ package body Ada.Wide_Text_IO is ...@@ -1848,9 +1848,9 @@ package body Ada.Wide_Text_IO is
-- a null character in the runtime, here the null characters are added -- a null character in the runtime, here the null characters are added
-- just to have a correct filename length. -- just to have a correct filename length.
Err_Name : aliased String := "*stderr" & ASCII.Nul; Err_Name : aliased String := "*stderr" & ASCII.NUL;
In_Name : aliased String := "*stdin" & ASCII.Nul; In_Name : aliased String := "*stdin" & ASCII.NUL;
Out_Name : aliased String := "*stdout" & ASCII.Nul; Out_Name : aliased String := "*stdout" & ASCII.NUL;
begin begin
------------------------------- -------------------------------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- 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 ...@@ -1848,9 +1848,9 @@ package body Ada.Wide_Wide_Text_IO is
-- a null character in the runtime, here the null characters are added -- a null character in the runtime, here the null characters are added
-- just to have a correct filename length. -- just to have a correct filename length.
Err_Name : aliased String := "*stderr" & ASCII.Nul; Err_Name : aliased String := "*stderr" & ASCII.NUL;
In_Name : aliased String := "*stdin" & ASCII.Nul; In_Name : aliased String := "*stdin" & ASCII.NUL;
Out_Name : aliased String := "*stdout" & ASCII.Nul; Out_Name : aliased String := "*stdout" & ASCII.NUL;
begin begin
------------------------------- -------------------------------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -535,7 +535,7 @@ package body Exp_Dbug is ...@@ -535,7 +535,7 @@ package body Exp_Dbug is
-- For all these cases, just return the name unchanged -- For all these cases, just return the name unchanged
then then
Name_Buffer (Name_Len + 1) := ASCII.Nul; Name_Buffer (Name_Len + 1) := ASCII.NUL;
return; return;
end if; end if;
...@@ -751,7 +751,7 @@ package body Exp_Dbug is ...@@ -751,7 +751,7 @@ package body Exp_Dbug is
Get_Qualified_Name_And_Append (E); Get_Qualified_Name_And_Append (E);
end if; end if;
Name_Buffer (Name_Len + 1) := ASCII.Nul; Name_Buffer (Name_Len + 1) := ASCII.NUL;
end Get_External_Name; end Get_External_Name;
----------------------------------- -----------------------------------
...@@ -784,7 +784,7 @@ package body Exp_Dbug is ...@@ -784,7 +784,7 @@ package body Exp_Dbug is
if Has_Suffix then if Has_Suffix then
Add_Str_To_Name_Buffer ("___"); Add_Str_To_Name_Buffer ("___");
Add_Str_To_Name_Buffer (Suffix); Add_Str_To_Name_Buffer (Suffix);
Name_Buffer (Name_Len + 1) := ASCII.Nul; Name_Buffer (Name_Len + 1) := ASCII.NUL;
end if; end if;
end Get_External_Name_With_Suffix; end Get_External_Name_With_Suffix;
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -91,13 +91,13 @@ begin ...@@ -91,13 +91,13 @@ begin
Arg := new String (1 .. Command_With_Path'Length + 1); Arg := new String (1 .. Command_With_Path'Length + 1);
Arg (1 .. Command_With_Path'Length) := Command_With_Path.all; 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; Arg_List (1) := Arg.all'Address;
for J in Args'Range loop for J in Args'Range loop
Arg := new String (1 .. Args (J)'Length + 1); Arg := new String (1 .. Args (J)'Length + 1);
Arg (1 .. Args (J)'Length) := Args (J).all; 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; Arg_List (J + 2 - Args'First) := Arg.all'Address;
end loop; end loop;
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -89,13 +89,13 @@ begin ...@@ -89,13 +89,13 @@ begin
Arg := new String (1 .. Command_With_Path'Length + 1); Arg := new String (1 .. Command_With_Path'Length + 1);
Arg (1 .. Command_With_Path'Length) := Command_With_Path.all; 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; Arg_List (1) := Arg.all'Address;
for J in Args'Range loop for J in Args'Range loop
Arg := new String (1 .. Args (J)'Length + 1); Arg := new String (1 .. Args (J)'Length + 1);
Arg (1 .. Args (J)'Length) := Args (J).all; 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; Arg_List (J + 2 - Args'First) := Arg.all'Address;
end loop; end loop;
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1109,7 +1109,7 @@ package body GNAT.Expect is ...@@ -1109,7 +1109,7 @@ package body GNAT.Expect is
Dup2 (Pipe2.Output, GNAT.OS_Lib.Standout); Dup2 (Pipe2.Output, GNAT.OS_Lib.Standout);
Dup2 (Pipe3.Output, GNAT.OS_Lib.Standerr); 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; end Set_Up_Child_Communications;
--------------------------- ---------------------------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1220,7 +1220,7 @@ package body GNAT.Expect is ...@@ -1220,7 +1220,7 @@ package body GNAT.Expect is
Dup2 (Pipe2.Output, GNAT.OS_Lib.Standout); Dup2 (Pipe2.Output, GNAT.OS_Lib.Standout);
Dup2 (Pipe3.Output, GNAT.OS_Lib.Standerr); 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 -- The following commands are not executed on Unix systems, and are
-- only required for Windows systems. We are now in the parent process. -- only required for Windows systems. We are now in the parent process.
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -61,7 +61,7 @@ package body GNAT.Lock_Files is ...@@ -61,7 +61,7 @@ package body GNAT.Lock_Files is
if Directory (Directory'Last) = Dir_Separator if Directory (Directory'Last) = Dir_Separator
or else Directory (Directory'Last) = '/' or else Directory (Directory'Last) = '/'
then then
Dir (Dir'Last - 1) := ASCII.Nul; Dir (Dir'Last - 1) := ASCII.NUL;
end if; end if;
-- Try to lock the file Retries times -- Try to lock the file Retries times
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -184,8 +184,8 @@ package body GNAT.Registry is ...@@ -184,8 +184,8 @@ package body GNAT.Registry is
REG_OPTION_NON_VOLATILE : constant := 16#0#; REG_OPTION_NON_VOLATILE : constant := 16#0#;
C_Sub_Key : constant String := Sub_Key & ASCII.Nul; C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
C_Class : constant String := "" & ASCII.Nul; C_Class : constant String := "" & ASCII.NUL;
C_Mode : constant REGSAM := To_C_Mode (Mode); C_Mode : constant REGSAM := To_C_Mode (Mode);
New_Key : aliased HKEY; New_Key : aliased HKEY;
...@@ -214,7 +214,7 @@ package body GNAT.Registry is ...@@ -214,7 +214,7 @@ package body GNAT.Registry is
---------------- ----------------
procedure Delete_Key (From_Key : HKEY; Sub_Key : String) 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; Result : LONG;
begin begin
Result := RegDeleteKey (From_Key, C_Sub_Key (C_Sub_Key'First)'Address); Result := RegDeleteKey (From_Key, C_Sub_Key (C_Sub_Key'First)'Address);
...@@ -226,7 +226,7 @@ package body GNAT.Registry is ...@@ -226,7 +226,7 @@ package body GNAT.Registry is
------------------ ------------------
procedure Delete_Value (From_Key : HKEY; Sub_Key : String) 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; Result : LONG;
begin begin
Result := RegDeleteValue (From_Key, C_Sub_Key (C_Sub_Key'First)'Address); Result := RegDeleteValue (From_Key, C_Sub_Key (C_Sub_Key'First)'Address);
...@@ -339,7 +339,7 @@ package body GNAT.Registry is ...@@ -339,7 +339,7 @@ package body GNAT.Registry is
is is
use type REGSAM; 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); C_Mode : constant REGSAM := To_C_Mode (Mode);
New_Key : aliased HKEY; New_Key : aliased HKEY;
...@@ -377,7 +377,7 @@ package body GNAT.Registry is ...@@ -377,7 +377,7 @@ package body GNAT.Registry is
Size_Value : aliased ULONG; Size_Value : aliased ULONG;
Type_Value : aliased DWORD; Type_Value : aliased DWORD;
C_Sub_Key : constant String := Sub_Key & ASCII.Nul; C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
Result : LONG; Result : LONG;
begin begin
...@@ -412,8 +412,8 @@ package body GNAT.Registry is ...@@ -412,8 +412,8 @@ package body GNAT.Registry is
Value : String; Value : String;
Expand : Boolean := False) Expand : Boolean := False)
is is
C_Sub_Key : constant String := Sub_Key & ASCII.Nul; C_Sub_Key : constant String := Sub_Key & ASCII.NUL;
C_Value : constant String := Value & ASCII.Nul; C_Value : constant String := Value & ASCII.NUL;
Value_Type : DWORD; Value_Type : DWORD;
Result : LONG; Result : LONG;
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -425,7 +425,7 @@ procedure Gnatchop is ...@@ -425,7 +425,7 @@ procedure Gnatchop is
Info : Unit_Info renames Unit.Table (U); Info : Unit_Info renames Unit.Table (U);
FD : File_Descriptor; FD : File_Descriptor;
Name : aliased constant String := Name : aliased constant String :=
File.Table (Input).Name.all & ASCII.Nul; File.Table (Input).Name.all & ASCII.NUL;
Length : File_Offset; Length : File_Offset;
Buffer : String_Access; Buffer : String_Access;
Result : String_Access; Result : String_Access;
...@@ -1413,7 +1413,7 @@ procedure Gnatchop is ...@@ -1413,7 +1413,7 @@ procedure Gnatchop is
function Write_Chopped_Files (Input : File_Num) return Boolean is function Write_Chopped_Files (Input : File_Num) return Boolean is
Name : aliased constant String := Name : aliased constant String :=
File.Table (Input).Name.all & ASCII.Nul; File.Table (Input).Name.all & ASCII.NUL;
FD : File_Descriptor; FD : File_Descriptor;
Buffer : String_Access; Buffer : String_Access;
Success : Boolean; Success : Boolean;
...@@ -1660,7 +1660,7 @@ procedure Gnatchop is ...@@ -1660,7 +1660,7 @@ procedure Gnatchop is
declare declare
E_Name : constant String := OS_Name (1 .. O_Length); 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); OS_Encoding : constant String := Encoding (1 .. E_Length);
File : Stream_IO.File_Type; File : Stream_IO.File_Type;
begin begin
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -270,7 +270,7 @@ procedure Gnatdll is ...@@ -270,7 +270,7 @@ procedure Gnatdll is
loop loop
case Getopt ("g h v q k a? b: d: e: l: n m I:") is case Getopt ("g h v q k a? b: d: e: l: n m I:") is
when ASCII.Nul => when ASCII.NUL =>
exit; exit;
when 'h' => when 'h' =>
...@@ -381,7 +381,7 @@ procedure Gnatdll is ...@@ -381,7 +381,7 @@ procedure Gnatdll is
loop loop
case Getopt ("*") is case Getopt ("*") is
when ASCII.Nul => when ASCII.NUL =>
exit; exit;
when others => when others =>
...@@ -397,7 +397,7 @@ procedure Gnatdll is ...@@ -397,7 +397,7 @@ procedure Gnatdll is
loop loop
case Getopt ("*") is case Getopt ("*") is
when ASCII.Nul => when ASCII.NUL =>
exit; exit;
when others => when others =>
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -156,8 +156,8 @@ begin ...@@ -156,8 +156,8 @@ begin
Create_Block : declare Create_Block : declare
Success : Boolean; Success : Boolean;
Make_Args : Argument_List (1 .. 9); Make_Args : Argument_List (1 .. 9);
C_Lib_Dir : String := Lib_Dir.all & ASCII.Nul; C_Lib_Dir : String := Lib_Dir.all & ASCII.NUL;
C_ADC_File : String := ADC_File.all & ASCII.Nul; C_ADC_File : String := ADC_File.all & ASCII.NUL;
F_ADC_File : String (1 .. max_path_len); F_ADC_File : String (1 .. max_path_len);
F_ADC_File_Len : Integer := max_path_len; F_ADC_File_Len : Integer := max_path_len;
Include_Dirs : Integer; Include_Dirs : Integer;
...@@ -177,7 +177,7 @@ begin ...@@ -177,7 +177,7 @@ begin
full_name (C_ADC_File'Address, F_ADC_File'Address); full_name (C_ADC_File'Address, F_ADC_File'Address);
for I in 1 .. max_path_len loop 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; F_ADC_File_Len := I - 1;
exit; exit;
end if; end if;
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -307,7 +307,7 @@ procedure Gnatmem is ...@@ -307,7 +307,7 @@ procedure Gnatmem is
loop loop
case Getopt ("b: dd m: i: q s:") is case Getopt ("b: dd m: i: q s:") is
when ASCII.Nul => exit; when ASCII.NUL => exit;
when 'b' => when 'b' =>
begin begin
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -76,7 +76,7 @@ package Interfaces.VxWorks is ...@@ -76,7 +76,7 @@ package Interfaces.VxWorks is
-- procedure Handler (Parameter : System.Address) is -- procedure Handler (Parameter : System.Address) is
-- begin -- begin
-- Count := Count + 1; -- Count := Count + 1;
-- logMsg ("received an interrupt" & ASCII.LF & ASCII.Nul); -- logMsg ("received an interrupt" & ASCII.LF & ASCII.NUL);
-- end Handler; -- end Handler;
-- end P; -- end P;
-- --
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -80,7 +80,7 @@ package Interfaces.VxWorks is ...@@ -80,7 +80,7 @@ package Interfaces.VxWorks is
-- S : STATUS; -- S : STATUS;
-- begin -- begin
-- Count := Count + 1; -- Count := Count + 1;
-- logMsg ("received an interrupt" & ASCII.LF & ASCII.Nul); -- logMsg ("received an interrupt" & ASCII.LF & ASCII.NUL);
-- --
-- -- Acknowledge VME interrupt -- -- Acknowledge VME interrupt
-- S := sysBusIntAck (intLevel => Level); -- S := sysBusIntAck (intLevel => Level);
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -299,7 +299,7 @@ package body MLib.Utl is ...@@ -299,7 +299,7 @@ package body MLib.Utl is
----------------- -----------------
procedure Delete_File (Filename : String) is procedure Delete_File (Filename : String) is
File : constant String := Filename & ASCII.Nul; File : constant String := Filename & ASCII.NUL;
Success : Boolean; Success : Boolean;
begin begin
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -458,10 +458,10 @@ package body System.OS_Lib is ...@@ -458,10 +458,10 @@ package body System.OS_Lib is
-- Copy attributes -- Copy attributes
C_From (1 .. Name'Length) := Name; 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 (1 .. To_Name'Length) := To_Name;
C_To (C_To'Last) := ASCII.Nul; C_To (C_To'Last) := ASCII.NUL;
case Preserve is case Preserve is
...@@ -1622,10 +1622,10 @@ package body System.OS_Lib is ...@@ -1622,10 +1622,10 @@ package body System.OS_Lib is
-- If null terminated string, put the quote before -- If null terminated string, put the quote before
if Res (J) = ASCII.Nul then if Res (J) = ASCII.NUL then
Res (J) := '"'; Res (J) := '"';
J := J + 1; J := J + 1;
Res (J) := ASCII.Nul; Res (J) := ASCII.NUL;
-- If argument is terminated by '\', then double it. Otherwise -- If argument is terminated by '\', then double it. Otherwise
-- the ending quote will be taken as-is. This is quite strange -- the ending quote will be taken as-is. This is quite strange
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1986 by University of Toronto. -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1195,7 +1195,7 @@ package body System.Regpat is ...@@ -1195,7 +1195,7 @@ package body System.Regpat is
In_Range : Boolean := False; In_Range : Boolean := False;
Named_Class : Std_Class := ANYOF_NONE; Named_Class : Std_Class := ANYOF_NONE;
Value : Character; Value : Character;
Last_Value : Character := ASCII.Nul; Last_Value : Character := ASCII.NUL;
begin begin
Reset_Class (Bitmap); Reset_Class (Bitmap);
...@@ -2192,7 +2192,7 @@ package body System.Regpat is ...@@ -2192,7 +2192,7 @@ package body System.Regpat is
when ANYOF => null; when ANYOF => null;
declare declare
Bitmap : Character_Class; Bitmap : Character_Class;
Last : Character := ASCII.Nul; Last : Character := ASCII.NUL;
Current : Natural := 0; Current : Natural := 0;
Current_Char : Character; Current_Char : Character;
...@@ -2858,7 +2858,7 @@ package body System.Regpat is ...@@ -2858,7 +2858,7 @@ package body System.Regpat is
Next : Pointer; Next : Pointer;
Greedy : Boolean) return Boolean Greedy : Boolean) return Boolean
is is
Next_Char : Character := ASCII.Nul; Next_Char : Character := ASCII.NUL;
Next_Char_Known : Boolean := False; Next_Char_Known : Boolean := False;
No : Integer; -- Can be negative No : Integer; -- Can be negative
Min : Natural; Min : Natural;
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1986 by University of Toronto. -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -604,7 +604,7 @@ private ...@@ -604,7 +604,7 @@ private
-- compile to execute that permits the execute phase to run lots faster on -- compile to execute that permits the execute phase to run lots faster on
-- simple cases. They are: -- 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 -- Anchored true iff match must start at beginning of line
-- Must_Have pointer to string that match must include or null -- Must_Have pointer to string that match must include or null
-- Must_Have_Length length of Must_Have string -- Must_Have_Length length of Must_Have string
...@@ -621,7 +621,7 @@ private ...@@ -621,7 +621,7 @@ private
-- The initialization is meant to fail-safe in case the user of this -- The initialization is meant to fail-safe in case the user of this
-- package tries to use an uninitialized matcher. This takes advantage -- 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. -- instruction code of the state machine.
No_Flags : constant Regexp_Flags := 0; No_Flags : constant Regexp_Flags := 0;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment