Skip to content

R
riscv-gcc-1
Commit 43c6e0cb by Thomas Quinot Committed by Arnaud Charlet
Options

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
Showing with 73 additions and 73 deletions
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
-------------------------------
......
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
-------------------------------
......
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
-------------------------------
......
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;
......
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;
......
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;
......
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;
---------------------------
......
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.
......
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
......
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;
......
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
......
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 =>
......
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;
......
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
......
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;
--
......
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);
......
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
......
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
......
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;
......
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;
......
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