1/* Error handling in libasm.
2   Copyright (C) 2002, 2004, 2005 Red Hat, Inc.
3   This file is part of Red Hat elfutils.
4   Written by Ulrich Drepper <drepper@redhat.com>, 2002.
5
6   Red Hat elfutils is free software; you can redistribute it and/or modify
7   it under the terms of the GNU General Public License as published by the
8   Free Software Foundation; version 2 of the License.
9
10   Red Hat elfutils is distributed in the hope that it will be useful, but
11   WITHOUT ANY WARRANTY; without even the implied warranty of
12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13   General Public License for more details.
14
15   You should have received a copy of the GNU General Public License along
16   with Red Hat elfutils; if not, write to the Free Software Foundation,
17   Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA.
18
19   Red Hat elfutils is an included package of the Open Invention Network.
20   An included package of the Open Invention Network is a package for which
21   Open Invention Network licensees cross-license their patents.  No patent
22   license is granted, either expressly or impliedly, by designation as an
23   included package.  Should you wish to participate in the Open Invention
24   Network licensing program, please visit www.openinventionnetwork.com
25   <http://www.openinventionnetwork.com>.  */
26
27#ifdef HAVE_CONFIG_H
28# include <config.h>
29#endif
30
31#include <libintl.h>
32#include <stdbool.h>
33#include <stdlib.h>
34
35#include "libasmP.h"
36
37
38/* This is the key for the thread specific memory.  */
39static tls_key_t key;
40
41/* The error number.  Used in non-threaded programs.  */
42static int global_error;
43static bool threaded;
44/* We need to initialize the thread-specific data.  */
45once_define (static, once);
46
47/* The initialization and destruction functions.  */
48static void init (void);
49static void free_key_mem (void *mem);
50
51
52int
53asm_errno (void)
54{
55  int result;
56
57  /* If we have not yet initialized the buffer do it now.  */
58  once_execute (once, init);
59
60  if (threaded)
61    {
62      /* We have a key.  Use it to get the thread-specific buffer.  */
63      int *buffer = getspecific (key);
64      if (buffer == NULL)
65	{
66	  /* No buffer allocated so far.  */
67	  buffer = (int *) malloc (sizeof (int));
68	  if (buffer == NULL)
69	    /* No more memory available.  We use the static buffer.  */
70	    buffer = &global_error;
71
72	  setspecific (key, buffer);
73
74	  *buffer = 0;
75	}
76
77      result = *buffer;
78      *buffer = ASM_E_NOERROR;
79      return result;
80    }
81
82  result = global_error;
83  global_error = ASM_E_NOERROR;
84  return result;
85}
86
87
88void
89__libasm_seterrno (value)
90     int value;
91{
92  /* If we have not yet initialized the buffer do it now.  */
93  once_execute (once, init);
94
95  if (threaded)
96    {
97      /* We have a key.  Use it to get the thread-specific buffer.  */
98      int *buffer = getspecific (key);
99      if (buffer == NULL)
100        {
101          /* No buffer allocated so far.  */
102          buffer = malloc (sizeof (int));
103          if (buffer == NULL)
104            /* No more memory available.  We use the static buffer.  */
105            buffer = &global_error;
106
107          setspecific (key, buffer);
108        }
109
110      *buffer = value;
111    }
112
113  global_error = value;
114}
115
116
117/* Return the appropriate message for the error.  */
118static const char *msgs[ASM_E_NUM] =
119{
120  [ASM_E_NOERROR] = N_("no error"),
121  [ASM_E_NOMEM] = N_("out of memory"),
122  [ASM_E_CANNOT_CREATE] = N_("cannot create output file"),
123  [ASM_E_INVALID] = N_("invalid parameter"),
124  [ASM_E_CANNOT_CHMOD] = N_("cannot change mode of output file"),
125  [ASM_E_CANNOT_RENAME] = N_("cannot rename output file"),
126  [ASM_E_DUPLSYM] = N_("duplicate symbol"),
127  [ASM_E_TYPE] = N_("invalid section type for operation"),
128  [ASM_E_IOERROR] = N_("error during output of data"),
129  [ASM_E_ENOSUP] = N_("no backend support available"),
130};
131
132const char *
133asm_errmsg (error)
134     int error;
135{
136  int last_error;
137
138  /* If we have not yet initialized the buffer do it now.  */
139  once_execute (once, init);
140
141  if ((error == 0 || error == -1) && threaded)
142    {
143      /* We have a key.  Use it to get the thread-specific buffer.  */
144      int *buffer = (int *) getspecific (key);
145      if (buffer == NULL)
146	{
147	  /* No buffer allocated so far.  */
148	  buffer = (int *) malloc (sizeof (int));
149	  if (buffer == NULL)
150	    /* No more memory available.  We use the static buffer.  */
151	    buffer = &global_error;
152
153	  setspecific (key, buffer);
154	  *buffer = 0;
155	}
156
157      last_error = *buffer;
158    }
159  else
160    last_error = global_error;
161
162  if (error < -1)
163    return _("unknown error");
164  if (error == 0 && last_error == 0)
165    /* No error.  */
166    return NULL;
167
168  if (error != -1)
169    last_error = error;
170
171  if (last_error == ASM_E_LIBELF)
172    return elf_errmsg (-1);
173
174  return _(msgs[last_error]);
175}
176
177
178/* Free the thread specific data, this is done if a thread terminates.  */
179static void
180free_key_mem (void *mem)
181{
182  free (mem);
183  setspecific (key, NULL);
184}
185
186
187/* Initialize the key for the global variable.  */
188static void
189init (void)
190{
191  // XXX Screw you, gcc4, the unused function attribute does not work.
192  __asm ("" :: "r" (free_key_mem));
193
194  if (key_create (&key, free_key_mem) == 0)
195    /* Creating the key succeeded.  */
196    threaded = true;
197}
198