From 57eb1cf51ae2a0033b741a5826ccc1b13e5e3e4d Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 4 Aug 2008 11:06:36 +0200 Subject: [PATCH] sem_prag.adb (Check_Form_Of_Interface_Name): Fix handling for CLI target. 2008-08-04 Arnaud Charlet * sem_prag.adb (Check_Form_Of_Interface_Name): Fix handling for CLI target. From-SVN: r138586 --- gcc/ada/sem_prag.adb | 17 +++++++---------- 1 file 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) = '\')) -- 2.7.4