[Chicken-janitors] #645: isinf not available on Solaris

[Chicken Trac]

#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.