From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 7870 invoked by alias); 26 Jul 2007 12:58:35 -0000 Received: (qmail 7856 invoked by uid 22791); 26 Jul 2007 12:58:35 -0000 X-Spam-Check-By: sourceware.org Received: from hall.aurel32.net (HELO hall.aurel32.net) (88.191.38.19) by sourceware.org (qpsmtpd/0.31) with ESMTP; Thu, 26 Jul 2007 12:58:32 +0000 Received: from [2001:618:400::52e8:2fb] (helo=farad.aurel32.net) by hall.aurel32.net with esmtpsa (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.63) (envelope-from ) id 1IE2vF-0006Ju-U7 for gcc-patches@gcc.gnu.org; Thu, 26 Jul 2007 14:58:30 +0200 Received: from kfreebsd-i386.aurel32.net ([2001:618:400:fc13:216:3eff:fe00:3]) by farad.aurel32.net with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.63) (envelope-from ) id 1IE2vE-0007Di-Ot for gcc-patches@gcc.gnu.org; Thu, 26 Jul 2007 14:58:28 +0200 Received: from aurel32 by kfreebsd-i386.aurel32.net with local (Exim 4.67) (envelope-from ) id 1IE2us-000MGJ-LW for gcc-patches@gcc.gnu.org; Thu, 26 Jul 2007 14:58:06 +0200 Date: Thu, 26 Jul 2007 13:08:00 -0000 From: Aurelien Jarno To: gcc-patches@gcc.gnu.org Subject: [PATCH] Fix gnat on GNU/kFreeBSD Message-ID: <20070726125806.GA85569@kfreebsd-i386.aurel32.net> MIME-Version: 1.0 Content-Type: text/plain; charset=iso-8859-15 Content-Disposition: inline X-Mailer: Mutt 1.5.16 (2007-06-11) User-Agent: Mutt/1.5.16 (2007-06-11) Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org X-SW-Source: 2007-07/txt/msg01909.txt.bz2 The patch below fixes gnat on GNU/kFreeBSD. It is the same kind of fixes that the one that has already been applied on other architectures. 2007-07-27 Aurelien Jarno * s-osinte-kfreebsd-gnu.ads ((sigset_t_ptr): Removed, replaced by anonymous access type. (pthread_sigmask): Now take an access sigset_t. --- gcc/ada/s-osinte-kfreebsd-gnu.ads.orig 2007-07-06 20:26:13 +0200 +++ gcc/ada/s-osinte-kfreebsd-gnu.ads 2007-07-26 11:37:00 +0200 @@ -296,12 +296,10 @@ function pthread_kill (thread : pthread_t; sig : Signal) return int; pragma Import (C, pthread_kill, "pthread_kill"); - type sigset_t_ptr is access all sigset_t; - function pthread_sigmask (how : int; - set : sigset_t_ptr; - oset : sigset_t_ptr) return int; + set : access sigset_t; + oset : access sigset_t) return int; pragma Import (C, pthread_sigmask, "pthread_sigmask"); -------------------------- -- .''`. Aurelien Jarno | GPG: 1024D/F1BCDB73 : :' : Debian developer | Electrical Engineer `. `' aurel32@debian.org | aurelien@aurel32.net `- people.debian.org/~aurel32 | www.aurel32.net