OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

switch-m.adb (Normalize_Compiler_Switches): Recognize switches -gnat83, -gnat95 and -gnat05. 

2005-03-17  Vincent Celier  <celier@adacore.com>

	* switch-m.adb (Normalize_Compiler_Switches): Recognize switches
	-gnat83, -gnat95 and -gnat05.

From-SVN: r96677
This commit is contained in:
Vincent Celier 2005-03-18 12:53:50 +01:00 committed by Arnaud Charlet
parent 3bc7ffd0c0
commit 8095d0fa91
1 changed files with 45 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
gcc/ada/switch-m.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2001-2004 Free Software Foundation, Inc. --
-- Copyright (C) 2001-2005 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- --
@ -404,6 +404,50 @@ package body Switch.M is
end if;
end loop;
-- -gnat95 -gnat05
when '0' | '9' =>
Last_Stored := First_Stored;
Storing (Last_Stored) := C;
Ptr := Ptr + 1;
if Ptr /= Max or else Switch_Chars (Ptr) /= '5' then
-- Invalid switch
Last := 0;
return;
else
Last_Stored := Last_Stored + 1;
Storing (Last_Stored) := '5';
Add_Switch_Component
(Storing (Storing'First .. Last_Stored));
Ptr := Ptr + 1;
end if;
-- -gnat83
when '8' =>
Last_Stored := First_Stored;
Storing (Last_Stored) := '8';
Ptr := Ptr + 1;
if Ptr /= Max or else Switch_Chars (Ptr) /= '3' then
-- Invalid switch
Last := 0;
return;
else
Last_Stored := Last_Stored + 1;
Storing (Last_Stored) := '3';
Add_Switch_Component
(Storing (Storing'First .. Last_Stored));
Ptr := Ptr + 1;
end if;
-- Not a valid switch
when others =>