Skip to content

R
riscv-gcc-1
Commit 271ae089 by Vincent Celier Committed by Arnaud Charlet
Options

a-dirval-vms.adb (Invalid_Character): Specify that digits are allowed in file names. 

2006-10-31  Vincent Celier  <celier@adacore.com>

	* a-dirval-vms.adb (Invalid_Character): Specify that digits are allowed
	in file names.

From-SVN: r118321
parent 99f50329
Showing with 2 additions and 1 deletions
gcc/ada/a-dirval-vms.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- B o d y -- -- B o d y --
-- (VMS Version) -- -- (VMS Version) --
-- -- -- --
-- Copyright (C) 2004-2005 Free Software Foundation, Inc. -- -- Copyright (C) 2004-2006 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- --
...@@ -42,6 +42,7 @@ package body Ada.Directories.Validity is ...@@ -42,6 +42,7 @@ package body Ada.Directories.Validity is
Invalid_Character : constant array (Character) of Boolean := Invalid_Character : constant array (Character) of Boolean :=
('a' .. 'z' => False, ('a' .. 'z' => False,
'A' .. 'Z' => False, 'A' .. 'Z' => False,
'0' .. '9' => False,
'_' | '$' | '-' | '.' => False, '_' | '$' | '-' | '.' => False,
others => True); others => True);
......
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