U/perl/usebacktrace.U

   1 ?RCS: $Id: usecbacktrace.U,v $
   2 ?RCS:
   3 ?RCS: Copyright (c) 2014 H.Merijn Brand
   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: usecbacktrace.U,v $
   9 ?RCS:
  10 ?MAKE:usecbacktrace: Myread Oldconfig Setvar Getfile d_backtrace
  11 ?MAKE:  -pick add $@ %<
  12 ?Y:TOP
  13 ?S:usecbacktrace:
  14 ?S:     This variable indicates whether we are compiling with backtrace
  15 ?S:     support.
  16 ?S:.
  17 ?C:USE_CBACKTRACE:
  18 ?C:     This symbol, if defined, indicates that Perl should
  19 ?C:     be built with support for backtrace.
  20 ?C:.
  21 ?H:#$usecbacktrace USE_CBACKTRACE               /**/
  22 ?H:.
  23 ?LINT:extern ccflags
  24 ?LINT:change ccflags
  25 : add flags if using c backtrace
  26 case "$usecbacktrace" in
  27   "") usecbacktrace=$undef ;;
  28   [yY]*|true|$define)
  29     case "$d_backtrace" in
  30       [yY]*|true|$define)
  31         case " $ccflags " in
  32           *" -DUSE_C_BACKTRACE "*) ;; # Already there.
  33           *) ccflags="$ccflags -DUSE_C_BACKTRACE -g" ;;
  34           esac
  35         ;;
  36       *)
  37         echo "This system does not support backtrace" >&4
  38         usecbacktrace=$undef
  39         ;;
  40       esac
  41     ;;
  42   esac
  43