From owner-svn-ports-all@FreeBSD.ORG Wed Mar 12 10:04:12 2014 Return-Path: Delivered-To: svn-ports-all@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115]) (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits)) (No client certificate requested) by hub.freebsd.org (Postfix) with ESMTPS id 0686C60D; Wed, 12 Mar 2014 10:04:12 +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 DB578690; Wed, 12 Mar 2014 10:04:11 +0000 (UTC) Received: from svn.freebsd.org ([127.0.1.70]) by svn.freebsd.org (8.14.8/8.14.8) with ESMTP id s2CA4BlU008682; Wed, 12 Mar 2014 10:04:11 GMT (envelope-from marino@svn.freebsd.org) Received: (from marino@localhost) by svn.freebsd.org (8.14.8/8.14.8/Submit) id s2CA4BaQ008681; Wed, 12 Mar 2014 10:04:11 GMT (envelope-from marino@svn.freebsd.org) Message-Id: <201403121004.s2CA4BaQ008681@svn.freebsd.org> From: John Marino Date: Wed, 12 Mar 2014 10:04:11 +0000 (UTC) To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r347967 - head/devel/florist-gpl/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-all@freebsd.org X-Mailman-Version: 2.1.17 Precedence: list List-Id: SVN commit messages for the ports tree List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 12 Mar 2014 10:04:12 -0000 Author: marino Date: Wed Mar 12 10:04:11 2014 New Revision: 347967 URL: http://svnweb.freebsd.org/changeset/ports/347967 QAT: https://qat.redports.org/buildarchive/r347967/ Log: devel/florist-gpl: Fix code style before gcc49 comes in Part of florist is built with -gnatg which invokes style checking. The upcoming GNAT compiler has stricter rules regarding the placement of the "then" keyword. Florist 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/devel/florist-gpl/files/patch-posix-signals.adb (contents, props changed) Added: head/devel/florist-gpl/files/patch-posix-signals.adb ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/devel/florist-gpl/files/patch-posix-signals.adb Wed Mar 12 10:04:11 2014 (r347967) @@ -0,0 +1,96 @@ +--- posix-signals.adb.orig 2012-05-10 13:32:11.000000000 +0000 ++++ posix-signals.adb +@@ -340,16 +340,18 @@ package body POSIX.Signals is + begin + for Sig in Signal loop + if Reserved_Signal (Sig) then +- if Sig /= SIGKILL and then Sig /= SIGSTOP and then +- sigismember (Set.C'Unchecked_Access, int (Sig)) = 1 then +- Raise_POSIX_Error (Invalid_Argument); ++ if Sig /= SIGKILL and then Sig /= SIGSTOP then ++ if sigismember (Set.C'Unchecked_Access, int (Sig)) = 1 then ++ Raise_POSIX_Error (Invalid_Argument); ++ end if; + end if; + else + -- This signal might be attached to a + -- task entry or protected procedure + if sigismember (Set.C'Unchecked_Access, int (Sig)) = 1 +- and then (SI.Is_Entry_Attached (SIID (Sig)) +- or else SI.Is_Handler_Attached (SIID (Sig))) then ++ and then (SI.Is_Entry_Attached (SIID (Sig)) ++ or else SI.Is_Handler_Attached (SIID (Sig))) ++ then + Raise_POSIX_Error (Invalid_Argument); + end if; + end if; +@@ -466,7 +468,8 @@ package body POSIX.Signals is + (Set : Signal_Set; Sig : Signal) return Boolean is + begin + if Sig = Signal_Null +- or else sigismember (Set.C'Unchecked_Access, int (Sig)) = 1 then ++ or else sigismember (Set.C'Unchecked_Access, int (Sig)) = 1 ++ then + return True; + end if; + return False; +@@ -500,8 +503,7 @@ package body POSIX.Signals is + if not Reserved_Signal (Sig) then + -- It is OK to modify this signal's masking, using the + -- interfaces of System.Interrupts. +- if sigismember +- (New_Mask.C'Unchecked_Access, int (Sig)) = 1 then ++ if sigismember (New_Mask.C'Unchecked_Access, int (Sig)) = 1 then + if not SI.Is_Blocked (SIID (Sig)) then + Disposition (Sig) := SI_To_Mask; + end if; +@@ -551,8 +553,7 @@ package body POSIX.Signals is + if not Reserved_Signal (Sig) then + -- It is OK to modify this signal's masking, using the + -- interfaces of System.Interrupts. +- if sigismember +- (Mask_to_Add.C'Unchecked_Access, int (Sig)) = 1 then ++ if sigismember (Mask_to_Add.C'Unchecked_Access, int (Sig)) = 1 then + if not SI.Is_Blocked (SIID (Sig)) then + Disposition (Sig) := SI_To_Mask; + end if; +@@ -602,7 +603,8 @@ package body POSIX.Signals is + -- It is OK to modify this signal's masking, using the + -- interfaces of System.Interrupts. + if sigismember +- (Mask_to_Subtract.C'Unchecked_Access, int (Sig)) = 1 then ++ (Mask_to_Subtract.C'Unchecked_Access, int (Sig)) = 1 ++ then + if SI.Is_Blocked (SIID (Sig)) then + Disposition (Sig) := SI_To_Unmask; + end if; +@@ -639,7 +641,8 @@ package body POSIX.Signals is + -- may be more values in POSIX.Signal + -- than System.Interrupts.Interrupt_ID + if pthread_sigmask +- (SIG_BLOCK, null, Old_Mask.C'Unchecked_Access) = 0 then ++ (SIG_BLOCK, null, Old_Mask.C'Unchecked_Access) = 0 ++ then + null; + end if; + -- Delete any ublocked signals from System.Interrupts. +@@ -1004,8 +1007,7 @@ package body POSIX.Signals is + Result : aliased int; + begin + Check_Awaitable (Set); +- if sigwait +- (Set.C'Unchecked_Access, Result'Unchecked_Access) = -1 then ++ if sigwait (Set.C'Unchecked_Access, Result'Unchecked_Access) = -1 then + Raise_POSIX_Error (Fetch_Errno); + end if; + return Signal (Result); +@@ -1156,7 +1158,8 @@ begin + + if Integer (Sig) <= Integer (SIID'Last) then + if SI.Is_Reserved (SIID (Sig)) and then (Sig /= SIGKILL +- and Sig /= SIGSTOP) then ++ and Sig /= SIGSTOP) ++ then + Reserved_Signal (Sig) := True; + end if; + else