diff options
| author | marino <marino@FreeBSD.org> | 2014-03-12 18:37:40 +0800 |
|---|---|---|
| committer | marino <marino@FreeBSD.org> | 2014-03-12 18:37:40 +0800 |
| commit | 19df22c3284027c6b8c7d8705f88aec67ce44e41 (patch) | |
| tree | 4e50f00d133dd5117b23060aaae479ff1c0f7929 /net/adasockets | |
| parent | 07eeb91e80ba875524ab0e2eabcb0b685e01e97d (diff) | |
| download | freebsd-ports-gnome-19df22c3284027c6b8c7d8705f88aec67ce44e41.tar.gz freebsd-ports-gnome-19df22c3284027c6b8c7d8705f88aec67ce44e41.tar.zst freebsd-ports-gnome-19df22c3284027c6b8c7d8705f88aec67ce44e41.zip | |
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.
Diffstat (limited to 'net/adasockets')
| -rw-r--r-- | net/adasockets/files/patch-src_sockets-utils.adb | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/net/adasockets/files/patch-src_sockets-utils.adb b/net/adasockets/files/patch-src_sockets-utils.adb new file mode 100644 index 000000000000..4033ca11df8a --- /dev/null +++ b/net/adasockets/files/patch-src_sockets-utils.adb @@ -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; |