-FP_BFD_FLAG

-AC_SUBST([UseLibbfd])

-

-use-lib-bfd       = @UseLibbfd@

-          | UseLibbfd

-            UseLibbfd            -> "use-lib-bfd"

-          , flag UseLibbfd                  `cabalFlag` "libbfd"

-# FP_BFD_SUPPORT()

-# ----------------------

-# Whether to use libbfd for debugging RTS

-#

-# Sets:

-#   UseLibbfd: [YES|NO]

-AC_DEFUN([FP_BFD_FLAG], [

-  UseLibbfd=NO

-  AC_ARG_ENABLE(bfd-debug,

-    [AS_HELP_STRING([--enable-bfd-debug],

-          [Enable symbol resolution for -debug rts ('+RTS -Di') via binutils' libbfd [default=no]])],

-    [UseLibbfd=YES],

-    [UseLibbfd=NO])

-])

-

-# FP_WHEN_ENABLED_BFD

-# ----------------------

-# Checks for libraries in the default way, which will define various

-# `HAVE_*` macros.

-AC_DEFUN([FP_WHEN_ENABLED_BFD], [

-  # don't pollute general LIBS environment

-  save_LIBS="$LIBS"

-  AC_CHECK_HEADERS([bfd.h])

-  dnl ** check whether this machine has BFD and libiberty installed (used for debugging)

-  dnl    the order of these tests matters: bfd needs libiberty

-  AC_CHECK_LIB(iberty, xmalloc)

-  dnl 'bfd_init' is a rare non-macro in libbfd

-  AC_CHECK_LIB(bfd,    bfd_init)

-

-  AC_LINK_IFELSE(

-    [AC_LANG_PROGRAM(

-      [[#include <bfd.h>]],

-      [[

-        /* mimic our rts/Printer.c */

-        bfd* abfd;

-        const char * name;

-        char **matching;

-

-        name = "some.executable";

-        bfd_init();

-        abfd = bfd_openr(name, "default");

-        bfd_check_format_matches (abfd, bfd_object, &matching);

-        {

-            long storage_needed;

-            storage_needed = bfd_get_symtab_upper_bound (abfd);

-        }

-        {

-            asymbol **symbol_table;

-            long number_of_symbols;

-            symbol_info info;

-

-            number_of_symbols = bfd_canonicalize_symtab (abfd, symbol_table);

-            bfd_get_symbol_info(abfd,symbol_table[0],&info);

-        }

-      ]])],

-    [], dnl bfd seems to work

-    [AC_MSG_ERROR([can't use 'bfd' library])])

-  LIBS="$save_LIBS"

-])

-/* Causing linking trouble on Win32 plats, so I'm

-   disabling this for now.

-*/

-#if defined(USING_LIBBFD)

-#    define PACKAGE 1

-#    define PACKAGE_VERSION 1

-/* Those PACKAGE_* defines are workarounds for bfd:

- *     https://sourceware.org/bugzilla/show_bug.cgi?id=14243

- * ghc's build system filter PACKAGE_* values out specifically to avoid clashes

- * with user's autoconf-based Cabal packages.

- * It's a shame <bfd.h> checks for unrelated fields instead of actually used

- * macros.

- */

-#    include <bfd.h>

-

-/* Fairly ad-hoc piece of code that seems to filter out a lot of

- * rubbish like the obj-splitting symbols

- */

-

-static bool isReal( flagword flags STG_UNUSED, const char *name )

-{

-#if 0

-    /* ToDo: make this work on BFD */

-    int tp = type & N_TYPE;

-    if (tp == N_TEXT || tp == N_DATA) {

-        return (name[0] == '_' && name[1] != '_');

-    } else {

-        return false;

-    }

-#else

-    if (*name == '\0'  ||

-        (name[0] == 'g' && name[1] == 'c' && name[2] == 'c') ||

-        (name[0] == 'c' && name[1] == 'c' && name[2] == '.')) {

-        return false;

-    }

-    return true;

-#endif

-}

-

-extern void DEBUG_LoadSymbols( const char *name )

-{

-    bfd* abfd;

-    char **matching;

-

-    bfd_init();

-    abfd = bfd_openr(name, "default");

-    if (abfd == NULL) {

-        barf("can't open executable %s to get symbol table", name);

-    }

-    if (!bfd_check_format_matches (abfd, bfd_object, &matching)) {

-        barf("mismatch");

-    }

-

-    {

-        long storage_needed;

-        asymbol **symbol_table;

-        long number_of_symbols;

-        long num_real_syms = 0;

-        long i;

-

-        storage_needed = bfd_get_symtab_upper_bound (abfd);

-

-        if (storage_needed < 0) {

-            barf("can't read symbol table");

-        }

-        symbol_table = (asymbol **) stgMallocBytes(storage_needed,"DEBUG_LoadSymbols");

-

-        number_of_symbols = bfd_canonicalize_symtab (abfd, symbol_table);

-

-        if (number_of_symbols < 0) {

-            barf("can't canonicalise symbol table");

-        }

-

-        if (add_to_fname_table == NULL)

-            add_to_fname_table = allocHashTable();

-

-        for( i = 0; i != number_of_symbols; ++i ) {

-            symbol_info info;

-            bfd_get_symbol_info(abfd,symbol_table[i],&info);

-            if (isReal(info.type, info.name)) {

-                insertHashTable(add_to_fname_table,

-                                info.value, (void*)info.name);

-                num_real_syms += 1;

-            }

-        }

-

-        IF_DEBUG(interpreter,

-                 debugBelch("Loaded %ld symbols. Of which %ld are real symbols\n",

-                         number_of_symbols, num_real_syms)

-                 );

-

-        stgFree(symbol_table);

-    }

-}

-

-#else /* USING_LIBBFD */

-

-#endif /* USING_LIBBFD */

-

-AS_IF([test "$CABAL_FLAG_libbfd" = 1], [FP_WHEN_ENABLED_BFD])

-

-/*

- * Whether the runtime system will use libbfd for debugging purposes.

- */

-#if defined(DEBUG) && defined(HAVE_BFD_H) && defined(HAVE_LIBBFD) && !defined(_WIN32)

-#define USING_LIBBFD 1

-#endif

-

-

-flag libbfd

-  default: False

-  manual: True

-      if flag(libbfd)

-         -- for debugging

-         extra-libraries: bfd iberty