Commit | Line | Data |
---|---|---|
74e93a3a MBT |
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:. | |
74e93a3a MBT |
23 | ?LINT:extern ccflags |
24 | ?LINT:change ccflags | |
25 | : add flags if using c backtrace | |
26 | case "$usecbacktrace" in | |
965d5245 | 27 | "") usecbacktrace=$undef ;; |
74e93a3a MBT |
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 |