From ef2a64f7c0527259266a3b022a747b2fa9ea5f84 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 14 Jun 2014 17:17:27 +0200
Subject: grt-types: make access type std_string_ptr general.

---
 translate/grt/grt-types.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'translate/grt')

diff --git a/translate/grt/grt-types.ads b/translate/grt/grt-types.ads
index acefe33..3b86c20 100644
--- a/translate/grt/grt-types.ads
+++ b/translate/grt/grt-types.ads
@@ -89,7 +89,7 @@ package Grt.Types is
    function To_Ghdl_Uc_Array_Acc is new Ada.Unchecked_Conversion
      (Source => Address, Target => Ghdl_Uc_Array_Acc);
 
-   type Std_String_Ptr is access Std_String;
+   type Std_String_Ptr is access all Std_String;
 
    --  Verilog types.
 
-- 
cgit