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.

---
 simulate/execution.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'simulate')

diff --git a/simulate/execution.adb b/simulate/execution.adb
index a3a29d485..18407ed2a 100644
--- a/simulate/execution.adb
+++ b/simulate/execution.adb
@@ -2854,6 +2854,7 @@ package body Execution is
             return Execute_Name (Block, Expr);
 
          when Iir_Kind_Simple_Name
+           | Iir_Kind_Character_Literal
            | Iir_Kind_Selected_Name =>
             return Execute_Expression (Block, Get_Named_Entity (Expr));
 
-- 
cgit v1.2.3