From: Arnaud Charlet Date: Mon, 4 Aug 2008 09:06:36 +0000 (+0200) Subject: sem_prag.adb (Check_Form_Of_Interface_Name): Fix handling for CLI target. X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=57eb1cf51ae2a0033b741a5826ccc1b13e5e3e4d;p=platform%2Fupstream%2Fgcc.git 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 --- 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) = '\'))