From 9cedc4a3a89ebf4e762bee78f6101e3dc514bbe8 Mon Sep 17 00:00:00 2001
From: Pascal Obry <obry@adacore.com>
Date: Sun, 18 Sep 2005 10:27:27 +0000
Subject: [PATCH] Remove redundant with and use of System.Garlic.Units and 
 System.Garlic.Storages. Uncovered by E804-013

Subversion-branch: /importfromcvs/trunk
Subversion-revision: 48196
---
 Garlic/s-parint.adb | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/Garlic/s-parint.adb b/Garlic/s-parint.adb
index 592103d97..428e8938e 100644
--- a/Garlic/s-parint.adb
+++ b/Garlic/s-parint.adb
@@ -52,7 +52,6 @@ with System.Garlic.Startup;
 pragma Elaborate_All (System.Garlic.Startup);
 pragma Warnings (Off, System.Garlic.Startup);
 
-with System.Garlic.Storages;  use System.Garlic.Storages;
 with System.Garlic.Types;     use System.Garlic.Types;
 with System.Garlic.Utils;     use System.Garlic.Utils;
 
@@ -308,8 +307,6 @@ package body System.Partition_Interface is
       Subp_Id       : in  Subprogram_Id;
       Proxy_Address : out Interfaces.Unsigned_64)
    is
-      use System.Garlic.Units;
-
       subtype U64 is Interfaces.Unsigned_64;
 
       Subp_Info : RCI_Subp_Info_Access;