From 4339f4ca9ed9fe2c58d390e7738a5d2ee7d43545 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Sat, 10 Dec 2005 17:11:30 +0000
Subject: bug fixes

---
 sem_stmts.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'sem_stmts.adb')

diff --git a/sem_stmts.adb b/sem_stmts.adb
index 4357065d1..14fabde95 100644
--- a/sem_stmts.adb
+++ b/sem_stmts.adb
@@ -756,6 +756,7 @@ package body Sem_Stmts is
       if Expr /= Null_Iir then
          Expr := Sem_Expression (Expr, String_Type_Definition);
          Check_Read (Expr);
+         --  Expr := Eval_Expr_If_Static (Expr);
          Set_Report_Expression (Stmt, Expr);
       end if;
 
-- 
cgit v1.2.3