3psoccon.ads, [...]: Files added.

[thirdparty/gcc.git] / gcc / ada / s-exnint.ads

diff --git a/gcc/ada/s-exnint.ads b/gcc/ada/s-exnint.ads
index c2f3fea8e1c6450bbc507e24c4cbef23cf882c79..d601b86d537bfaa45677058acf3ca207e7bbd71c 100644 (file)
--- a/gcc/ada/s-exnint.ads
+++ b/gcc/ada/s-exnint.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992,1993 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -33,12 +33,12 @@
 
 --  Integer exponentiation (checks off)
 
-with System.Exn_Gen;
-
 package System.Exn_Int is
 pragma Pure (Exn_Int);
 
-   function Exn_Integer is
-     new System.Exn_Gen.Exn_Integer_Type (Integer);
+   function Exn_Integer
+     (Left  : Integer;
+      Right : Natural)
+      return  Integer;
 
 end System.Exn_Int;