From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "John W. Eaton" Newsgroups: gmane.lisp.guile.devel Subject: DINFINITY alpha not gnu/linux Date: Mon, 16 Feb 2004 16:51:42 -0600 Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: <16433.18814.653327.782668@devzero.bogus.domain> References: <877jymwt2b.fsf@zip.com.au> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1076972040 16895 80.91.224.253 (16 Feb 2004 22:54:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 16 Feb 2004 22:54:00 +0000 (UTC) Cc: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Mon Feb 16 23:53:53 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Asrcf-0002us-00 for ; Mon, 16 Feb 2004 23:53:53 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AsrcS-0001Vn-QP for guile-devel@m.gmane.org; Mon, 16 Feb 2004 17:53:40 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AsrcJ-0001Ud-GH for guile-devel@gnu.org; Mon, 16 Feb 2004 17:53:31 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1Asrbh-0001Nz-HP for guile-devel@gnu.org; Mon, 16 Feb 2004 17:53:24 -0500 Original-Received: from [204.127.203.184] (helo=sccmmhc02.asp.att.net) by monty-python.gnu.org with esmtp (Exim 4.24) id 1Asrbf-00017Z-J5 for guile-devel@gnu.org; Mon, 16 Feb 2004 17:52:51 -0500 Original-Received: from devzero.bogus.domain (12-221-108-64.client.insightbb.com[12.221.108.64]) by sccmmhc02.asp.att.net (sccmmhc02) with ESMTP id <20040216225144mm200iaqobe>; Mon, 16 Feb 2004 22:51:44 +0000 Original-Received: from devzero.bogus.domain (jwe@localhost [127.0.0.1]) by devzero.bogus.domain (8.12.11.Beta0/8.12.11.Beta0/Debian-1) with ESMTP id i1GMphIm001203; Mon, 16 Feb 2004 16:51:43 -0600 Original-Received: (from jwe@localhost) by devzero.bogus.domain (8.12.11.Beta0/8.12.11.Beta0/Debian-1) id i1GMphpD001199; Mon, 16 Feb 2004 16:51:43 -0600 Original-To: Kevin Ryde In-Reply-To: <877jymwt2b.fsf@zip.com.au> X-Mailer: VM 7.17 under Emacs 21.3.1 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Developers list for Guile, the GNU extensibility library List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:3391 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:3391 On 17-Feb-2004, Kevin Ryde wrote: | I see numbers.c guile_ieee_init is setup to use DINFINITY on | | defined (__alpha__) && ! defined (linux) | | DINFINITY is not available on alpha freebsd. I take it it's an | OSF-ism. There really wants to be an autoconf probe for DINFINITY, | rather than cpp defines. I think this code is probably my fault. I took it from Octave, which is what I originally wrote it for. Octave now uses #if defined (SCO) volatile double tmp = 1.0; tmp_inf = 1.0 / (tmp - tmp); #elif defined (__alpha__) && defined (__osf__) extern unsigned int DINFINITY[2]; tmp_inf = (*(X_CAST(double *, DINFINITY))); #else double tmp = 1e+10; tmp_inf = tmp; for (;;) { tmp_inf *= 1e+10; if (tmp_inf == tmp) break; tmp = tmp_inf; } #endif to define Inf, but there may be better ways to do this. If so, please pass the code back to Octave as well as fixing guile. Thanks, jwe -- www.octave.org | www.che.wisc.edu/~jwe | Peace would shock and awe me. _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://mail.gnu.org/mailman/listinfo/guile-devel