From 004bd818080a8090ea61bfb9cd656b01fe4541e0 Mon Sep 17 00:00:00 2001
From: gingold
Date: Mon, 7 Nov 2005 23:18:35 +0000
Subject: handle universal real div integer evaluation, more optimizations
 added, multi-thread ready grt, bug fixes

---
 translate/grt/grt-stacks.ads | 6 ------
 1 file changed, 6 deletions(-)

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

diff --git a/translate/grt/grt-stacks.ads b/translate/grt/grt-stacks.ads
index 2624f5c..920012c 100644
--- a/translate/grt/grt-stacks.ads
+++ b/translate/grt/grt-stacks.ads
@@ -21,10 +21,6 @@ package Grt.Stacks is
    type Stack_Type is new Address;
    Null_Stack : constant Stack_Type := Stack_Type (Null_Address);
 
-   --  The main stack.  This is initialized by STACK_INIT.
-   --  The return point.
-   Main_Stack : Stack_Type;
-
    --  Initialize the stacks package.
    --  This may adjust stack sizes.
    --  Must be called after grt.options.decode.
@@ -54,8 +50,6 @@ package Grt.Stacks is
    procedure Error_Null_Access;
    pragma No_Return (Error_Null_Access);
 private
-   pragma Export (C, Main_Stack, "grt_stack_main_stack");
-
    pragma Import (C, Stack_Init, "grt_stack_init");
    pragma Import (C, Stack_Create, "grt_stack_create");
    pragma Import (C, Stack_Switch, "grt_stack_switch");
-- 
cgit