From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 26 Aug 2021 13:21:22 +0000 (-0400)
Subject: [Ada] PR ada/102073
X-Git-Tag: basepoints/gcc-13~4198
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=43a59d4dc88db02b7e19a1edf73db1b1f9d890b1;p=thirdparty%2Fgcc.git

[Ada] PR ada/102073

gcc/ada/

	PR ada/102073
	* socket.c (__gnat_gethostbyaddr, __gnat_inet_pton): Add missing
	return statements.
---

diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c
index 82e0c5a25e0e..5074c8e474f6 100644
--- a/gcc/ada/socket.c
+++ b/gcc/ada/socket.c
@@ -314,6 +314,7 @@ __gnat_gethostbyaddr (const char *addr, int len, int type,
   ret->h_addrtype  = AF_INET;
   ret->h_length    = 4;
   ret->h_addr_list = &vxw_h_addr_list;
+  return 0;
 }
 
 int
@@ -587,6 +588,9 @@ __gnat_inet_pton (int af, const char *src, void *dst) {
     *(in_addr_t *)dst = addr;
   }
   return rc;
+
+#else
+  return -1;
 #endif
 }
 #endif