Date: Wed, 12 Mar 2014 10:37:40 +0000 (UTC) From: John Marino <marino@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r347972 - head/net/adasockets/files Message-ID: <201403121037.s2CAbers021658@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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;
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201403121037.s2CAbers021658>