U/compline/d_casti32.U

   1 ?RCS: $Id: d_casti32.U,v 3.0.1.3 1995/05/12 12:10:45 ram Exp $
   2 ?RCS:
   3 ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
   4 ?RCS:
   5 ?RCS: You may redistribute only under the terms of the Artistic Licence,
   6 ?RCS: as specified in the README file that comes with the distribution.
   7 ?RCS: You may reuse parts of this distribution only within the terms of
   8 ?RCS: that same Artistic Licence; a copy of which may be found at the root
   9 ?RCS: of the source tree for dist 3.0.
  10 ?RCS:
  11 ?RCS: Original Author: Andy Dougherty <doughera@lafcol.lafayette.edu>
  12 ?RCS:
  13 ?RCS: $Log: d_casti32.U,v $
  14 ?RCS: Revision 3.0.1.3  1995/05/12  12:10:45  ram
  15 ?RCS: patch54: made sure cc and ccflags are conditional dependencies
  16 ?RCS:
  17 ?RCS: Revision 3.0.1.2  1994/10/29  16:09:37  ram
  18 ?RCS: patch36: declare signal handler correctly (ADO)
  19 ?RCS:
  20 ?RCS: Revision 3.0.1.1  1994/08/29  16:07:06  ram
  21 ?RCS: patch32: created by ADO
  22 ?RCS:
  23 ?X:
  24 ?X:     Can the compiler cast large floats to 32-bit integers?
  25 ?X:
  26 ?MAKE:d_casti32: cat Compile rm intsize Setvar test signal_t run
  27 ?MAKE:  -pick add $@ %<
  28 ?S:d_casti32:
  29 ?S:     This variable conditionally defines CASTI32, which indicates
  30 ?S:     whether the C compiler can cast large floats to 32-bit ints.
  31 ?S:.
  32 ?C:CASTI32:
  33 ?C:     This symbol is defined if the C compiler can cast negative
  34 ?C:     or large floating point numbers to 32-bit ints.
  35 ?C:.
  36 ?T:xxx yyy
  37 ?H:#$d_casti32  CASTI32         /**/
  38 ?H:.
  39 ?LINT:set d_casti32
  40 : check for ability to cast large floats to 32-bit ints.
  41 echo " "
  42 echo 'Checking whether your C compiler can cast large floats to int32.' >&4
  43 if $test "$intsize" -ge 4; then
  44         xxx=int
  45 else
  46         xxx=long
  47 fi
  48 $cat >try.c <<EOCP
  49 #include <stdio.h>
  50 #include <sys/types.h>
  51 #include <signal.h>
  52 $signal_t blech(s) int s; { exit(3); }
  53 int main()
  54 {
  55         $xxx i32;
  56         double f, g;
  57         int result = 0;
  58         char str[16];
  59         signal(SIGFPE, blech);
  60
  61         /* Don't let compiler optimize the test away.  Store the number
  62            in a writable string for gcc to pass to sscanf under HP/UX.
  63         */
  64         sprintf(str, "2147483647");
  65         sscanf(str, "%lf", &f); /* f = (double) 0x7fffffff; */
  66         g = 10 * f;
  67         i32  = ($xxx) g;
  68
  69         /* x86 processors will probably give 0x8000 0000, which is a
  70        sign change.  We don't want that.  We want to mimic SPARC
  71            behavior here, which is to preserve the sign and give
  72            back 0x7fff ffff.
  73         */
  74         if (i32 != ($xxx) f)
  75                 result |= 1;
  76         exit(result);
  77 }
  78 EOCP
  79 set try
  80 if eval $compile_ok; then
  81         $run ./try
  82         yyy=$?
  83 else
  84         echo "(I can't seem to compile the test program--assuming it can't)"
  85         yyy=1
  86 fi
  87 case "$yyy" in
  88 0)      val="$define"
  89         echo "Yup, it can."
  90         ;;
  91 *)      val="$undef"
  92         echo "Nope, it can't."
  93         ;;
  94 esac
  95 set d_casti32
  96 eval $setvar
  97 $rm -f try try.*
  98