Subversion Repositories openrisc_me

/* Error handling for runtime dynamic linker.

   Copyright (C) 1995,96,97,98,99,2000,2001 Free Software Foundation, Inc.

   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or

   modify it under the terms of the GNU Lesser General Public

   License as published by the Free Software Foundation; either

   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public

   License along with the GNU C Library; if not, write to the Free

   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA

   02111-1307 USA.  */

#include <libintl.h>

#include <setjmp.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include <ldsodefs.h>

#include <sys/libc-tsd.h>

/* This structure communicates state between _dl_catch_error and

   _dl_signal_error.  */

struct catch

  {

    const char *objname;        /* Object/File name.  */

    const char *errstring;      /* Error detail filled in here.  */

    jmp_buf env;                /* longjmp here on error.  */

  };

/* Multiple threads at once can use the `_dl_catch_error' function.  The

   calls can come from `_dl_map_object_deps', `_dlerror_run', or from

   any of the libc functionality which loads dynamic objects (NSS, iconv).

   Therefore we have to be prepared to save the state in thread-local

   memory.  */

__libc_tsd_define (static, DL_ERROR)

#define tsd_getspecific()       __libc_tsd_get (DL_ERROR)

#define tsd_setspecific(data)   __libc_tsd_set (DL_ERROR, (data))

/* This message we return as a last resort.  We define the string in a

   variable since we have to avoid freeing it and so have to enable

   a pointer comparison.  See below and in dlfcn/dlerror.c.  */

const char _dl_out_of_memory[] = "out of memory";

/* This points to a function which is called when an continuable error is

   received.  Unlike the handling of `catch' this function may return.

   The arguments will be the `errstring' and `objname'.

   Since this functionality is not used in normal programs (only in ld.so)

   we do not care about multi-threaded programs here.  We keep this as a

   global variable.  */

static receiver_fct receiver;

void

internal_function

_dl_signal_error (int errcode, const char *objname, const char *occation,

                  const char *errstring)

{

  struct catch *lcatch;

  if (! errstring)

    errstring = N_("DYNAMIC LINKER BUG!!!");

  lcatch = tsd_getspecific ();

  if (objname == NULL)

    objname = "";

  if (lcatch != NULL)

    {

      /* We are inside _dl_catch_error.  Return to it.  We have to

         duplicate the error string since it might be allocated on the

         stack.  The object name is always a string constant.  */

      size_t len_objname = strlen (objname) + 1;

      size_t len_errstring = strlen (errstring) + 1;

      lcatch->errstring = (char *) malloc (len_objname + len_errstring);

      if (lcatch->errstring != NULL)

        {

          char *tmp;

          /* Make a copy of the object file name and the error string.  */

          tmp = memcpy ((char *) lcatch->errstring,

                           errstring, len_errstring);

          tmp += len_errstring;

          lcatch->objname = memcpy (tmp,

                                  objname, len_objname);

        }

      else

        {

          /* This is better than nothing.  */

          lcatch->objname = "";

          lcatch->errstring = _dl_out_of_memory;

        }

      longjmp (lcatch->env, errcode ?: -1);

    }

  else

    {

      /* Lossage while resolving the program's own symbols is always fatal.  */

      char buffer[1024];

      _dl_fatal_printf ("%s: %s: %s%s%s%s%s\n",

                        _dl_argv[0] ?: "<program name unknown>",

                        occation ?: N_("error while loading shared libraries"),

                        objname, *objname ? ": " : "",

                        errstring, errcode ? ": " : "",

                        (errcode

                         ? __strerror_r (errcode, buffer, sizeof buffer)

                         : ""));

    }

}

void

internal_function

_dl_signal_cerror (int errcode, const char *objname, const char *occation,

                   const char *errstring)

{

  if (receiver)

    {

      /* We are inside _dl_receive_error.  Call the user supplied

         handler and resume the work.  The receiver will still be

         installed.  */

      (*receiver) (errcode, objname, errstring);

    }

  else

    _dl_signal_error (errcode, objname, occation, errstring);

}

int

internal_function

_dl_catch_error (const char **objname, const char **errstring,

                 void (*operate) (void *), void *args)

{

  int errcode;

  struct catch *volatile old;

  struct catch c;

  /* We need not handle `receiver' since setting a `catch' is handled

     before it.  */

  /* Some systems (e.g., SPARC) handle constructors to local variables

     inefficient.  So we initialize `c' by hand.  */

  c.errstring = NULL;

  old = tsd_getspecific ();

  errcode = setjmp (c.env);

  if (__builtin_expect (errcode, 0) == 0)

    {

      tsd_setspecific (&c);

      (*operate) (args);

      tsd_setspecific (old);

      *objname = NULL;

      *errstring = NULL;

      return 0;

    }

  /* We get here only if we longjmp'd out of OPERATE.  */

  tsd_setspecific (old);

  *objname = c.objname;

  *errstring = c.errstring;

  return errcode == -1 ? 0 : errcode;

}

void

internal_function

_dl_receive_error (receiver_fct fct, void (*operate) (void *), void *args)

{

  struct catch *old_catch;

  receiver_fct old_receiver;

  old_catch = tsd_getspecific ();

  old_receiver = receiver;

  /* Set the new values.  */

  tsd_setspecific (NULL);

  receiver = fct;

  (*operate) (args);

  tsd_setspecific (old_catch);

  receiver = old_receiver;

}