U/perl/d_fegetround.U

   1 ?RCS: You may distribute under the terms of either the GNU General Public
   2 ?RCS: License or the Artistic License, as specified in the README file.
   3 ?RCS:
   4 ?MAKE:d_fegetround: Inlibc
   5 ?MAKE:  -pick add $@ %<
   6 ?S:d_fegetround:
   7 ?S:     This variable conditionally defines HAS_FEGETROUND if fegetround() is
   8 ?S:     available to get the floating point rounding mode.
   9 ?S:.
  10 ?C:HAS_FEGETROUND:
  11 ?C:     This symbol, if defined, indicates that the fegetround routine is
  12 ?C:     available to return the macro corresponding to the current rounding
  13 ?C:     mode.
  14 ?C:.
  15 ?H:#$d_fegetround HAS_FEGETROUND        /**/
  16 ?H:.
  17 ?LINT:set d_fegetround
  18 : see if fegetround exists
  19 set fegetround d_fegetround
  20 eval $inlibc
  21