diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 11:06:36 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 11:06:36 +0200 |
| commit | 57eb1cf51ae2a0033b741a5826ccc1b13e5e3e4d (patch) | |
| tree | 33f78edb8321444e489d9a798b126a535a934593 /gcc | |
| parent | bfb110208dd891b1aafd6ccb18451e035b723486 (diff) | |
| download | gcc-57eb1cf51ae2a0033b741a5826ccc1b13e5e3e4d.zip gcc-57eb1cf51ae2a0033b741a5826ccc1b13e5e3e4d.tar.gz gcc-57eb1cf51ae2a0033b741a5826ccc1b13e5e3e4d.tar.bz2 | |
sem_prag.adb (Check_Form_Of_Interface_Name): Fix handling for CLI target.
2008-08-04 Arnaud Charlet <charlet@adacore.com>
* sem_prag.adb (Check_Form_Of_Interface_Name): Fix handling for CLI
target.
From-SVN: r138586
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 84fff32..3ad8ff5 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -3935,19 +3935,16 @@ package body Sem_Prag is if not In_Character_Range (C) - -- Dubious if comma + -- For all cases except external names on CLI target, + -- commas, spaces and slashes are dubious (in CLI, we use + -- spaces and commas in external names to specify assembly + -- version and public key). - or else Get_Character (C) = ',' - - -- For all cases except link names on a CLI target, spaces - -- and slashes are also dubious (in CLI for link names, we - -- use spaces and possibly slashes for special purposes). - - -- Where is this usage documented ??? - - or else ((Ext_Name_Case or else VM_Target /= CLI_Target) + or else ((not Ext_Name_Case or else VM_Target /= CLI_Target) and then (Get_Character (C) = ' ' or else + Get_Character (C) = ',' + or else Get_Character (C) = '/' or else Get_Character (C) = '\')) |