From owner-svn-ports-head@FreeBSD.ORG  Wed Mar 12 10:37:40 2014
Return-Path: <owner-svn-ports-head@FreeBSD.ORG>
Delivered-To: svn-ports-head@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org
 [IPv6:2001:1900:2254:206a::19:1])
 (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits))
 (No client certificate requested)
 by hub.freebsd.org (Postfix) with ESMTPS id EB9C957E;
 Wed, 12 Mar 2014 10:37:40 +0000 (UTC)
Received: from svn.freebsd.org (svn.freebsd.org
 [IPv6:2001:1900:2254:2068::e6a:0])
 (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits))
 (No client certificate requested)
 by mx1.freebsd.org (Postfix) with ESMTPS id D86749CA;
 Wed, 12 Mar 2014 10:37:40 +0000 (UTC)
Received: from svn.freebsd.org ([127.0.1.70])
 by svn.freebsd.org (8.14.8/8.14.8) with ESMTP id s2CAbeWa021659;
 Wed, 12 Mar 2014 10:37:40 GMT (envelope-from marino@svn.freebsd.org)
Received: (from marino@localhost)
 by svn.freebsd.org (8.14.8/8.14.8/Submit) id s2CAbers021658;
 Wed, 12 Mar 2014 10:37:40 GMT (envelope-from marino@svn.freebsd.org)
Message-Id: <201403121037.s2CAbers021658@svn.freebsd.org>
From: John Marino <marino@FreeBSD.org>
Date: Wed, 12 Mar 2014 10:37:40 +0000 (UTC)
To: ports-committers@freebsd.org, svn-ports-all@freebsd.org,
 svn-ports-head@freebsd.org
Subject: svn commit: r347972 - head/net/adasockets/files
X-SVN-Group: ports-head
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-ports-head@freebsd.org
X-Mailman-Version: 2.1.17
Precedence: list
List-Id: SVN commit messages for the ports tree for head
 <svn-ports-head.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-ports-head>,
 <mailto:svn-ports-head-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-ports-head/>
List-Post: <mailto:svn-ports-head@freebsd.org>
List-Help: <mailto:svn-ports-head-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-ports-head>,
 <mailto:svn-ports-head-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 12 Mar 2014 10:37:41 -0000

Author: marino
Date: Wed Mar 12 10:37:40 2014
New Revision: 347972
URL: http://svnweb.freebsd.org/changeset/ports/347972
QAT: https://qat.redports.org/buildarchive/r347972/

Log:
  net/adasockets: Fix code style before gcc49 comes in
  
  Part of adasockets is built with -gnatg which invokes style checking.
  The upcoming GNAT compiler has stricter rules regarding the placement
  of the "then" keyword.  Adasockets was failing to build based on style
  errors on gcc49.  Patch this now on gcc47 to prepare for the Ada
  compiler transition.
  
  No bump; the code logic doesn't change.

Added:
  head/net/adasockets/files/patch-src_sockets-utils.adb   (contents, props changed)

Added: head/net/adasockets/files/patch-src_sockets-utils.adb
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/net/adasockets/files/patch-src_sockets-utils.adb	Wed Mar 12 10:37:40 2014	(r347972)
@@ -0,0 +1,17 @@
+--- src/sockets-utils.adb.orig	2012-04-26 14:54:46.000000000 +0000
++++ src/sockets-utils.adb
+@@ -73,10 +73,10 @@ package body Sockets.Utils is
+          declare
+             Current : Character renames Something (Index);
+          begin
+-            if (Current < '0'
+-                or else Current > '9')
+-              and then Current /= '.' then
+-               return False;
++            if Current < '0' or else Current > '9' then
++               if Current /= '.' then
++                  return False;
++               end if;
+             end if;
+          end;
+       end loop;