From f50257ffb93adf74595428ea24dc9e5cdfe62bdf Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Thu, 6 Mar 2014 21:35:07 +0100
Subject: canon: change profile of Canon_Procedure_Call.

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

(limited to 'translate/ghdldrv/ghdlsimul.adb')

diff --git a/translate/ghdldrv/ghdlsimul.adb b/translate/ghdldrv/ghdlsimul.adb
index 9cc3671..0e8f296 100644
--- a/translate/ghdldrv/ghdlsimul.adb
+++ b/translate/ghdldrv/ghdlsimul.adb
@@ -67,6 +67,7 @@ package body Ghdlsimul is
       Annotations.Annotate (Std_Package.Std_Standard_Unit);
 
       Canon.Canon_Flag_Add_Labels := True;
+      Canon.Canon_Flag_Sequentials_Stmts := True;
    end Compile_Init;
 
    procedure Compile_Elab
-- 
cgit