svn commit: r347972 - head/net/adasockets/files

[John Marino]

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;