From 729ff8c7d5c4c93bc67bd496ef398adfc980df22 Mon Sep 17 00:00:00 2001
From: gingold
Date: Mon, 24 Oct 2005 19:53:59 +0000
Subject: support of ia64 added, more stats added

---
 translate/grt/grt-signals.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'translate/grt/grt-signals.adb')

diff --git a/translate/grt/grt-signals.adb b/translate/grt/grt-signals.adb
index 638c375..fed1788 100644
--- a/translate/grt/grt-signals.adb
+++ b/translate/grt/grt-signals.adb
@@ -235,7 +235,7 @@ package body Grt.Signals is
 
    procedure Ghdl_Process_Add_Driver (Sign : Ghdl_Signal_Ptr)
    is
-      type Size_T is new Integer;
+      type Size_T is mod 2**Standard'Address_Size;
 
       function Malloc (Size : Size_T) return Driver_Arr_Ptr;
       pragma Import (C, Malloc);
@@ -246,7 +246,8 @@ package body Grt.Signals is
 
       function Size (N : Ghdl_Index_Type) return Size_T is
       begin
-         return Size_T (N * Driver_Type'Size / System.Storage_Unit);
+         return Size_T (N * Driver_Fat_Array'Component_Size
+                        / System.Storage_Unit);
       end Size;
 
       Trans : Transaction_Acc;
-- 
cgit