handle universal real div integer evaluation,

more optimizations added,
multi-thread ready grt,
bug fixes

1 files changed, 0 insertions, 6 deletions

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");