U/perl/usemorebits.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 1999 Jarkko Hietaniemi
   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 ?MAKE:usemorebits: Setvar
   9 ?MAKE:  -pick add $@ %<
  10 ?Y:TOP
  11 ?S:usemorebits:
  12 ?S:     This variable conditionally defines the USE_MORE_BITS symbol,
  13 ?S:     and indicates that explicit 64-bit interfaces and long doubles
  14 ?S:     should be used when available.
  15 ?S:.
  16 ?C:USE_MORE_BITS:
  17 ?C:     This symbol, if defined, indicates that 64-bit interfaces and
  18 ?C:     long doubles should be used when available.
  19 ?C:.
  20 ?H:?%<:#ifndef USE_MORE_BITS
  21 ?H:?%<:#$usemorebits    USE_MORE_BITS           /**/
  22 ?H:?%<:#endif
  23 ?H:.
  24 ?LINT:extern use64bitint
  25 ?LINT:change use64bitint
  26 ?LINT:extern uselongdouble
  27 ?LINT:change uselongdouble
  28
  29 case "$usemorebits" in
  30 "$define"|true|[yY]*)
  31         use64bitint="$define"
  32         uselongdouble="$define"
  33         usemorebits="$define"
  34         ;;
  35 *)      usemorebits="$undef"
  36         ;;
  37 esac
  38