diff options
| author | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-16 01:56:17 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-16 01:56:17 +0100 |
| commit | 226ada7a41dba4d02def08367ed1b66199d6e472 (patch) | |
| tree | 3003511da2454d74ebb9520df6ddedbf1690fdaf /gcc/ada/switch.adb | |
| parent | 9b94bf9e05b0243ad2e5b5b801e00bf3c61261a8 (diff) | |
| download | gcc-226ada7a41dba4d02def08367ed1b66199d6e472.zip gcc-226ada7a41dba4d02def08367ed1b66199d6e472.tar.gz gcc-226ada7a41dba4d02def08367ed1b66199d6e472.tar.bz2 | |
osint.adb (Create_Debug_File): When an object file is specified...
* osint.adb(Create_Debug_File): When an object file is specified,
put the .dg file in the same directory as the object file.
* osint.adb: Minor reformatting
* lib-xref.adb (Output_Instantiation): New procedure to generate
instantiation references.
* lib-xref.ads: Add documentation of handling of generic references.
* ali.adb (Read_Instantiation_Ref): New procedure to read
instantiation references
* ali.ads: Add spec for storing instantiation references
* bindusg.adb: Minor reformatting
* switch.adb: Add entry for Latin-5 (Cyrillic ISO-8859-5)
* usage.adb: Add entry for Latin-5 (Cyrillic ISO-8859-5)
* gnatcmd.adb: Add entry for Latin-5 (Cyrillic ISO-8859-5)
* csets.adb: Add entry for Latin-5 (Cyrillic ISO-8859-5)
* csets.ads:
Fix header format
Add 2001 to copyright date
Add entry for Latin-5 (Cyrillic ISO-8859-5)
* adaint.c: mktemp is a macro on Lynx and can not be used as an
expression.
* misc.c (gnat_expand_constant): Do not strip UNCHECKED_CONVERT_EXPR
if operand is CONSTRUCTOR.
* trans.c (tree_transform, case N_Assignment_Statement): Set lineno
before emiting check on right-hand side, so that exception information
is correct.
* utils.c (create_var_decl): Throw away initializing expression
if just annotating types and non-constant.
* prj-nmsc.adb: (Ada_Check): Migrate drom Ada_Default_... to
Default_Ada_...
* prj.adb: (Ada_Default_Spec_Suffix, Ada_Default_Impl_Suffix):
Remove functions.
(Default_Ada_Spec_Suffix, Default_Ada_Impl_Suffix): Move to spec.
* prj.ads: (Ada_Default_Spec_Suffix, Ada_Default_Impl_Suffix):
Remove functions.
(Default_Ada_Spec_Suffix, Default_Ada_Impl_Suffix): Move from body.
From-SVN: r48052
Diffstat (limited to 'gcc/ada/switch.adb')
| -rw-r--r-- | gcc/ada/switch.adb | 30 |
1 files changed, 12 insertions, 18 deletions
diff --git a/gcc/ada/switch.adb b/gcc/ada/switch.adb index 551f8bd..9b06500 100644 --- a/gcc/ada/switch.adb +++ b/gcc/ada/switch.adb @@ -255,15 +255,12 @@ package body Switch is Ptr := Ptr + 1; C := Switch_Chars (Ptr); - if C = '1' or else - C = '2' or else - C = '3' or else - C = '4' or else - C = '8' or else - C = 'p' or else - C = 'f' or else - C = 'n' or else - C = 'w' + if C in '1' .. '5' + or else C = '8' + or else C = 'p' + or else C = 'f' + or else C = 'n' + or else C = 'w' then Identifier_Character_Set := C; Ptr := Ptr + 1; @@ -681,15 +678,12 @@ package body Switch is Ptr := Ptr + 1; C := Switch_Chars (Ptr); - if C = '1' or else - C = '2' or else - C = '3' or else - C = '4' or else - C = '8' or else - C = 'p' or else - C = 'f' or else - C = 'n' or else - C = 'w' + if C in '1' .. '5' + or else C = '8' + or else C = 'p' + or else C = 'f' + or else C = 'n' + or else C = 'w' then Identifier_Character_Set := C; Ptr := Ptr + 1; |