U/modified/d_longdbl.U

   1 ?RCS: $Id: d_longdbl.U,v $
   2 ?RCS:
   3 ?RCS: Copyright (c) 1998 Andy Dougherty
   4 ?RCS:
   5 ?RCS: You may distribute under the terms of either the GNU General Public
   6 ?RCS: License or the Artistic License, as specified in the README file.
   7 ?RCS:
   8 ?RCS: $Log: d_longdbl.U,v $
   9 ?RCS:
  10 ?MAKE:d_longdbl longdblsize: Compile Setvar Myread run \
  11         cat rm_try test doublesize
  12 ?MAKE:  -pick add $@ %<
  13 ?S:d_longdbl:
  14 ?S:     This variable conditionally defines HAS_LONG_DOUBLE if
  15 ?S:     the long double type is supported.
  16 ?S:.
  17 ?S:longdblsize:
  18 ?S:     This variable contains the value of the LONG_DOUBLESIZE symbol, which
  19 ?S:     indicates to the C program how many bytes there are in a long double,
  20 ?S:     if this system supports long doubles.
  21 ?S:.
  22 ?C:HAS_LONG_DOUBLE:
  23 ?C:     This symbol will be defined if the C compiler supports long
  24 ?C:     doubles.
  25 ?C:.
  26 ?C:LONG_DOUBLESIZE:
  27 ?C:     This symbol contains the size of a long double, so that the
  28 ?C:     C preprocessor can make decisions based on it.  It is only
  29 ?C:     defined if the system supports long doubles.
  30 ?C:.
  31 ?H:#$d_longdbl HAS_LONG_DOUBLE          /**/
  32 ?H:?LONG_DOUBLESIZE:#ifdef HAS_LONG_DOUBLE
  33 ?H:?LONG_DOUBLESIZE:#define LONG_DOUBLESIZE $longdblsize                /**/
  34 ?H:?LONG_DOUBLESIZE:#endif
  35 ?H:.
  36 ?F:!try
  37 ?LINT:set d_longdbl
  38 : check for long doubles
  39 echo " "
  40 echo "Checking to see if you have long double..." >&4
  41 echo 'int main() { long double x = 7.0; }' > try.c
  42 set try
  43 if eval $compile; then
  44         val="$define"
  45         echo "You have long double."
  46 else
  47         val="$undef"
  48         echo "You do not have long double."
  49 fi
  50 $rm_try
  51 set d_longdbl
  52 eval $setvar
  53
  54 @if LONG_DOUBLESIZE || longdblsize
  55 : check for length of long double
  56 ?X:  Check only if d_longdbl and if longdblsize is not already set.
  57 case "${d_longdbl}${longdblsize}" in
  58 $define)
  59         echo " "
  60         echo "Checking to see how big your long doubles are..." >&4
  61         $cat >try.c <<'EOCP'
  62 #include <stdio.h>
  63 int main()
  64 {
  65         printf("%d\n", sizeof(long double));
  66 }
  67 EOCP
  68         set try
  69 ?X:     Don't use compile_ok because some compilers warn you that they have
  70 ?X:     'long double' as just 'double'.
  71         set try
  72         if eval $compile; then
  73                 longdblsize=`$run ./try`
  74                 echo "Your long doubles are $longdblsize bytes long."
  75         else
  76                 dflt='8'
  77                 echo " "
  78                 echo "(I can't seem to compile the test program.  Guessing...)" >&4
  79                 rp="What is the size of a long double (in bytes)?"
  80                 . ./myread
  81                 longdblsize="$ans"
  82         fi
  83         if $test "X$doublesize" = "X$longdblsize"; then
  84                 echo "That isn't any different from an ordinary double."
  85                 echo "I'll keep your setting anyway, but you may see some"
  86                 echo "harmless compilation warnings."
  87         fi
  88         ;;
  89 esac
  90 $rm_try
  91 @end
  92