From 4168dec01d69b644c59858be3af8d56b055fbbc2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 19 Jul 2014 07:32:39 +0200
Subject: Handle character literals like simple names.

---
 translate/translation.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'translate')

diff --git a/translate/translation.adb b/translate/translation.adb
index 8836281f6..a949692ca 100644
--- a/translate/translation.adb
+++ b/translate/translation.adb
@@ -16884,6 +16884,7 @@ package body Translation is
                Res := Chap14.Translate_Path_Instance_Name_Attribute (Expr);
 
             when Iir_Kind_Simple_Name
+              | Iir_Kind_Character_Literal
               | Iir_Kind_Selected_Name =>
                return Translate_Expression (Get_Named_Entity (Expr), Rtype);
 
-- 
cgit v1.2.3