From eef83a5f38709f860ffab53641e7dc181f2379ab Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 11 Dec 2017 18:43:37 +0100
Subject: simul: fix crash while calling foreign subprogram.

---
 src/vhdl/simulate/simul-annotations.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/vhdl/simulate/simul-annotations.adb b/src/vhdl/simulate/simul-annotations.adb
index 6a21d3382..21ab0a034 100644
--- a/src/vhdl/simulate/simul-annotations.adb
+++ b/src/vhdl/simulate/simul-annotations.adb
@@ -508,13 +508,13 @@ package body Simul.Annotations is
       Spec : constant Iir := Get_Subprogram_Specification (Subprg);
       Subprg_Info : constant Sim_Info_Acc := Get_Info (Spec);
    begin
+      Set_Info (Subprg, Subprg_Info);
+
       --  Do not annotate body of foreign subprograms.
       if Get_Foreign_Flag (Spec) then
          return;
       end if;
 
-      Set_Info (Subprg, Subprg_Info);
-
       Annotate_Declaration_List
         (Subprg_Info, Get_Declaration_Chain (Subprg));
 
-- 
cgit v1.2.3