From 051b558dd22246ac72cccf428e4d4f6b4c1992d2 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 8 Apr 2008 06:44:39 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134008 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/g-enblsp-vms-alpha.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/g-enblsp-vms-alpha.adb') 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; -- cgit v1.2.1