From 1c96cc3b3708a3602ae9b99fcd8f462ef985d1bb Mon Sep 17 00:00:00 2001
From: gingold
Date: Fri, 26 Feb 2010 05:47:31 +0000
Subject: Add convention C for entry point.

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

diff --git a/translate/ghdldrv/ghdlrun.adb b/translate/ghdldrv/ghdlrun.adb
index 5191813..edc33e2 100644
--- a/translate/ghdldrv/ghdlrun.adb
+++ b/translate/ghdldrv/ghdlrun.adb
@@ -144,6 +144,7 @@ package body Ghdlrun is
    pragma Export (C, Ghdl_Elaborate, "__ghdl_ELABORATE");
 
    type Elaborate_Acc is access procedure;
+   pragma Convention (C, Elaborate_Acc);
    Elaborate_Proc : Elaborate_Acc := null;
 
    procedure Ghdl_Elaborate is
-- 
cgit