1995-05-02 06:35:55 +00:00
|
|
|
/* Error handling for runtime dynamic linker.
|
|
|
|
Copyright (C) 1995 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 Library General Public License as
|
|
|
|
published by the Free Software Foundation; either version 2 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
|
|
|
|
Library General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU Library General Public
|
|
|
|
License along with the GNU C Library; see the file COPYING.LIB. If
|
|
|
|
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
|
|
|
|
Cambridge, MA 02139, USA. */
|
|
|
|
|
|
|
|
#include <stddef.h>
|
|
|
|
#include <link.h>
|
|
|
|
#include <setjmp.h>
|
|
|
|
|
|
|
|
static jmp_buf catch_env;
|
1995-05-08 09:11:25 +00:00
|
|
|
static const char *signalled_errstring, *signalled_objname;
|
1995-05-02 06:35:55 +00:00
|
|
|
|
|
|
|
void
|
1995-05-08 09:11:25 +00:00
|
|
|
_dl_signal_error (int errcode,
|
|
|
|
const char *objname,
|
|
|
|
const char *errstring)
|
1995-05-02 06:35:55 +00:00
|
|
|
{
|
|
|
|
signalled_errstring = errstring ?: "DYNAMIC LINKER BUG!!!";
|
1995-05-09 07:03:38 +00:00
|
|
|
signalled_objname = objname;
|
1995-05-02 06:35:55 +00:00
|
|
|
longjmp (catch_env, errcode ?: -1);
|
|
|
|
}
|
|
|
|
|
|
|
|
int
|
1995-05-08 09:11:25 +00:00
|
|
|
_dl_catch_error (const char **errstring,
|
|
|
|
const char **objname,
|
|
|
|
void (*operate) (void))
|
1995-05-02 06:35:55 +00:00
|
|
|
{
|
|
|
|
int errcode;
|
|
|
|
|
1995-05-08 09:11:25 +00:00
|
|
|
signalled_errstring = signalled_objname = NULL;
|
1995-05-02 06:35:55 +00:00
|
|
|
errcode = setjmp (catch_env);
|
1995-05-31 13:23:14 +00:00
|
|
|
if (errcode == 0)
|
|
|
|
{
|
|
|
|
(*operate) ();
|
1995-06-08 09:00:23 +00:00
|
|
|
*errstring = *objname = NULL;
|
1995-05-31 13:23:14 +00:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* We get here only if we longjmp'd out of OPERATE. */
|
1995-05-02 06:35:55 +00:00
|
|
|
*errstring = signalled_errstring;
|
1995-05-08 09:11:25 +00:00
|
|
|
*objname = signalled_objname;
|
1995-05-31 13:23:14 +00:00
|
|
|
return errcode == -1 ? 0 : errcode;
|
1995-05-02 06:35:55 +00:00
|
|
|
}
|