From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 19 Oct 2021 15:31:26 +0000 (+0200)
Subject: [Ada] Update the inactive GMP variant of Big_Integers
X-Git-Tag: basepoints/gcc-13~3632
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8bada6e9751abd00fe9b1bd1d7fcfa073042e4dd;p=thirdparty%2Fgcc.git

[Ada] Update the inactive GMP variant of Big_Integers

gcc/ada/

	* libgnat/a-nbnbin__gmp.adb (From_String): Fix predicate
	mismatch between subprogram declaration and body.
---

diff --git a/gcc/ada/libgnat/a-nbnbin__gmp.adb b/gcc/ada/libgnat/a-nbnbin__gmp.adb
index 880e9a3c53d3..1516f492b0dc 100644
--- a/gcc/ada/libgnat/a-nbnbin__gmp.adb
+++ b/gcc/ada/libgnat/a-nbnbin__gmp.adb
@@ -327,7 +327,7 @@ package body Ada.Numerics.Big_Numbers.Big_Integers is
    -- From_String --
    -----------------
 
-   function From_String (Arg : String) return Big_Integer is
+   function From_String (Arg : String) return Valid_Big_Integer is
       function mpz_set_str
         (this : access mpz_t;
          str  : System.Address;