From 43a59d4dc88db02b7e19a1edf73db1b1f9d890b1 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 26 Aug 2021 09:21:22 -0400 Subject: [PATCH] [Ada] PR ada/102073 gcc/ada/ PR ada/102073 * socket.c (__gnat_gethostbyaddr, __gnat_inet_pton): Add missing return statements. --- gcc/ada/socket.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c index 82e0c5a..5074c8e 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 -- 2.7.4