From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Greg Troxel Newsgroups: gmane.lisp.guile.devel Subject: Re: Pkgsrc patches: patch-ae Date: Fri, 15 Feb 2008 20:50:10 -0500 Message-ID: References: <87tzketg12.fsf@gnu.org> <87y79puca8.fsf@ossau.uklinux.net> <87prv0sixe.fsf@inbox.ru> <87ejbg0yhj.fsf@ambire.localdomain> <87odajqv8s.fsf@inbox.ru> <87ir0r9yrb.fsf_-_@gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1203126628 5859 80.91.229.12 (16 Feb 2008 01:50:28 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 16 Feb 2008 01:50:28 +0000 (UTC) Cc: guile-devel@gnu.org To: ludo@gnu.org (Ludovic =?iso-8859-1?Q?Court=E8s?=) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Sat Feb 16 02:50:52 2008 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JQCCX-0002hx-PY for guile-devel@m.gmane.org; Sat, 16 Feb 2008 02:50:50 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JQCC3-0004be-OW for guile-devel@m.gmane.org; Fri, 15 Feb 2008 20:50:19 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JQCC0-0004as-7P for guile-devel@gnu.org; Fri, 15 Feb 2008 20:50:16 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JQCBy-0004Z5-Sb for guile-devel@gnu.org; Fri, 15 Feb 2008 20:50:15 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JQCBy-0004Yu-K5 for guile-devel@gnu.org; Fri, 15 Feb 2008 20:50:14 -0500 Original-Received: from fnord.ir.bbn.com ([192.1.100.210]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JQCBu-0004HC-SC; Fri, 15 Feb 2008 20:50:10 -0500 Original-Received: by fnord.ir.bbn.com (Postfix, from userid 10853) id 7B63F52ED; Fri, 15 Feb 2008 20:50:10 -0500 (EST) X-Hashcash: 1:20:080216:ludo@gnu.org::FStPnPwxThcEqOmg:000003NIQ X-Hashcash: 1:20:080216:guile-devel@gnu.org::pnMhXKEilcAxKPxD:0000000000000000000000000000000000000000007clb In-Reply-To: <87ir0r9yrb.fsf_-_@gnu.org> ("Ludovic =?iso-8859-1?Q?Court=E8?= =?iso-8859-1?Q?s=22's?= message of "Thu, 14 Feb 2008 19:30:32 +0100") User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/22.1 (berkeley-unix) X-detected-kernel: by monty-python.gnu.org: Genre and OS details not recognized. X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:7011 Archived-At: This just adds defines for more platforms, plus fixes a comment typo. $NetBSD: patch-ae,v 1.13 2007/07/20 00:09:22 gdt Exp $ support for NetBSD/alpha, NetBSD/sparc64, and NetBSD/x86_64 --- libguile/gc_os_dep.c.orig 2007-05-09 16:22:03.000000000 -0400 +++ libguile/gc_os_dep.c @@ -110,6 +110,11 @@ typedef int GC_bool; # define OPENBSD # define mach_type_known # endif +# if defined(__NetBSD__) && defined(__alpha__) +# define ALPHA +# define NETBSD +# define mach_type_known +# endif # if defined(__NetBSD__) && defined(__powerpc__) # define POWERPC # define NETBSD @@ -127,7 +132,7 @@ typedef int GC_bool; # define NETBSD # define mach_type_known # endif -# if defined(__NetBSD__) && defined(__sparc__) +# if defined(__NetBSD__) && (defined(__sparc__) || defined(__sparc_v9__)) # define SPARC # define NETBSD # define mach_type_known @@ -246,7 +251,7 @@ typedef int GC_bool; # endif # if defined(__alpha) || defined(__alpha__) # define ALPHA -# if !defined(LINUX) +# if !defined(LINUX) && !defined(NETBSD) # define OSF1 /* a.k.a Digital Unix */ # endif # define mach_type_known @@ -299,6 +304,11 @@ typedef int GC_bool; # define NETBSD # define mach_type_known # endif +# if defined(__NetBSD__) && defined(__x86_64__) +# define X86_64 +# define NETBSD +# define mach_type_known +# endif # if defined(bsdi) && defined(i386) # define I386 # define BSDI @@ -439,12 +449,12 @@ scm_get_stack_base () /* * For each architecture and OS, the following need to be defined: * - * CPP_WORD_SZ is a simple integer constant representing the word size. + * CPP_WORDSZ is a simple integer constant representing the word size. * in bits. We assume byte addressibility, where a byte has 8 bits. - * We also assume CPP_WORD_SZ is either 32 or 64. + * We also assume CPP_WORDSZ is either 32 or 64. * (We care about the length of pointers, not hardware * bus widths. Thus a 64 bit processor with a C compiler that uses - * 32 bit pointers should use CPP_WORD_SZ of 32, not 64. Default is 32.) + * 32 bit pointers should use CPP_WORDSZ of 32, not 64. Default is 32.) * * MACH_TYPE is a string representation of the machine type. * OS_TYPE is analogous for the OS. @@ -989,6 +999,21 @@ scm_get_stack_base () # endif # endif +# ifdef X86_64 +# define MACH_TYPE "X86_64" +# define ALIGNMENT 8 +# define ALIGN_DOUBLE +# define CPP_WORDSZ 64 +# ifdef NETBSD +# define OS_TYPE "NETBSD" +# endif +# if defined(NETBSD) +# define HEURISTIC2 + extern char etext; +# define DATASTART ((ptr_t)(&etext)) +# endif +# endif + # ifdef NS32K # define MACH_TYPE "NS32K" # define ALIGNMENT 4