From cd9300765e7e3fd43e450777e98a778146f700c2 Mon Sep 17 00:00:00 2001
From: gingold
Date: Sat, 30 Aug 2008 13:30:19 +0000
Subject: Switch to gcc 4.3 Don't use tagged types in grt (not supported by
 recent versions of GNAT) Fix warnings

---
 translate/grt/grt-vital_annotate.ads | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'translate/grt/grt-vital_annotate.ads')

diff --git a/translate/grt/grt-vital_annotate.ads b/translate/grt/grt-vital_annotate.ads
index f1a8b02..6c1d3a6 100644
--- a/translate/grt/grt-vital_annotate.ads
+++ b/translate/grt/grt-vital_annotate.ads
@@ -20,12 +20,12 @@ with Grt.Sdf; use Grt.Sdf;
 package Grt.Vital_Annotate is
    pragma Elaborate_Body (Grt.Vital_Annotate);
 
-   procedure Sdf_Header (Context : in out Sdf_Context_Type);
-   procedure Sdf_Celltype (Context : in out Sdf_Context_Type);
+   procedure Sdf_Header (Context : Sdf_Context_Type);
+   procedure Sdf_Celltype (Context : Sdf_Context_Type);
    procedure Sdf_Instance (Context : in out Sdf_Context_Type;
                            Instance : String;
                            Status : out Boolean);
-   procedure Sdf_Instance_End (Context : in out Sdf_Context_Type;
+   procedure Sdf_Instance_End (Context : Sdf_Context_Type;
                                Status : out Boolean);
    procedure Sdf_Generic (Context : in out Sdf_Context_Type;
                           Name : String;
-- 
cgit