[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-janitors] #645: isinf not available on Solaris
From: |
Chicken Trac |
Subject: |
[Chicken-janitors] #645: isinf not available on Solaris |
Date: |
Sun, 10 Jul 2011 22:04:37 -0000 |
#645: isinf not available on Solaris
-----------------------------------+----------------------------------------
Reporter: felix | Owner: felix
Type: defect | Status: new
Priority: major | Milestone: 4.8.0
Component: core libraries | Version: 4.7.x
Keywords: isinf runtime solaris |
-----------------------------------+----------------------------------------
Claude marinier reported:
{{{
>> Building chicken 4.7.0 on Solaris 10 running on SPARC (M5000) with gcc
>> 3.4.6 from SunFreeware.
>>
>> Linking chicken fails with missing isinf. Added definition to
>> chicken.h after line 954.
#ifndef isinf
# define isinf(x) \
(sizeof (x) == sizeof (long double) ? isinf_ld (x) \
: sizeof (x) == sizeof (double) ? isinf_d (x) \
: isinf_f (x))
static inline int isinf_f (float x)
{ return !isnan (x) && isnan (x - x); }
static inline int isinf_d (double x)
{ return !isnan (x) && isnan (x - x); }
static inline int isinf_ld (long double x)
{ return !isnan (x) && isnan (x - x); }
#endif
}}}
See also:
http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-core/7151
--
Ticket URL: <http://bugs.call-cc.org/ticket/645>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.
- [Chicken-janitors] #645: isinf not available on Solaris,
Chicken Trac <=