From 014c9caac5151925c7ec3c7243bfc84daf660a31 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Tue, 31 Oct 2006 18:44:38 +0100 Subject: [PATCH] g-socthi-vxworks.adb (C_Gethostbyname): Fix wrong test for returned error status. 2006-10-31 Thomas Quinot * g-socthi-vxworks.adb (C_Gethostbyname): Fix wrong test for returned error status. From-SVN: r118233 --- gcc/ada/g-socthi-vxworks.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/g-socthi-vxworks.adb b/gcc/ada/g-socthi-vxworks.adb index 02a0df3fe33..cb72c9fde86 100644 --- a/gcc/ada/g-socthi-vxworks.adb +++ b/gcc/ada/g-socthi-vxworks.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2005, AdaCore -- +-- Copyright (C) 2002-2006, AdaCore -- -- -- -- 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- -- @@ -302,7 +302,7 @@ package body GNAT.Sockets.Thin is begin Addr := VxWorks_hostGetByName (Name); - if Addr /= Constants.OK then + if Addr = Constants.ERROR then return null; end if; -- 2.30.2