1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21
22 /*
23 * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27 #include <thread.h>
28 #include <pthread.h>
29 #include <stdlib.h>
30 #include <string.h>
31 #include <stdio.h>
32 #include <libelf.h>
33 #include <libintl.h>
34 #include "msg.h"
35 #include "decl.h"
36
37 #define ELFERRSHIFT 16
38 #define SYSERRMASK 0xffff
39
40 /*
41 * _elf_err has two values encoded in it, both the _elf_err # and
42 * the system errno value (if relevant). These values are encoded
43 * in the upper & lower 16 bits of the 4 byte integer.
44 */
45 static int _elf_err = 0;
46
47 static thread_key_t errkey = THR_ONCE_KEY;
48 static thread_key_t bufkey = THR_ONCE_KEY;
49
50 const char *
_libelf_msg(Msg mid)51 _libelf_msg(Msg mid)
52 {
53 return (dgettext(MSG_ORIG(MSG_SUNW_OST_SGS), MSG_ORIG(mid)));
54 }
55
56 void
_elf_seterr(Msg lib_err,int sys_err)57 _elf_seterr(Msg lib_err, int sys_err)
58 {
59 /*LINTED*/
60 intptr_t encerr = ((int)lib_err << ELFERRSHIFT) |
61 (sys_err & SYSERRMASK);
62
63 if (thr_main()) {
64 _elf_err = (int)encerr;
65 return;
66 }
67 (void) thr_keycreate_once(&errkey, 0);
68 (void) thr_setspecific(errkey, (void *)encerr);
69 }
70
71 int
_elf_geterr()72 _elf_geterr() {
73 if (thr_main())
74 return (_elf_err);
75 return ((uintptr_t)pthread_getspecific(errkey));
76 }
77
78 const char *
elf_errmsg(int err)79 elf_errmsg(int err)
80 {
81 char *errno_str;
82 char *elferr_str;
83 char *buffer = 0;
84 int syserr;
85 int elferr;
86 static char intbuf[MAXELFERR];
87
88 if (err == 0) {
89 if ((err = _elf_geterr()) == 0)
90 return (0);
91 } else if (err == -1) {
92 if ((err = _elf_geterr()) == 0)
93 /*LINTED*/ /* MSG_INTL(EINF_NULLERROR) */
94 err = (int)EINF_NULLERROR << ELFERRSHIFT;
95 }
96
97 if (thr_main())
98 buffer = intbuf;
99 else {
100 /*
101 * If this is a threaded APP then we store the
102 * errmsg buffer in Thread Specific Storage.
103 *
104 * Each thread has its own private buffer.
105 */
106 if (thr_keycreate_once(&bufkey, free) != 0)
107 return (MSG_INTL(EBUG_THRDKEY));
108 buffer = pthread_getspecific(bufkey);
109
110 if (!buffer) {
111 if ((buffer = malloc(MAXELFERR)) == 0)
112 return (MSG_INTL(EMEM_ERRMSG));
113 if (thr_setspecific(bufkey, buffer) != 0) {
114 free(buffer);
115 return (MSG_INTL(EBUG_THRDSET));
116 }
117 }
118 }
119
120 elferr = (int)((uint_t)err >> ELFERRSHIFT);
121 syserr = err & SYSERRMASK;
122 /*LINTED*/
123 elferr_str = (char *)MSG_INTL(elferr);
124 if (syserr && (errno_str = strerror(syserr)))
125 (void) snprintf(buffer, MAXELFERR,
126 MSG_ORIG(MSG_FMT_ERR), elferr_str, errno_str);
127 else {
128 (void) strncpy(buffer, elferr_str, MAXELFERR - 1);
129 buffer[MAXELFERR - 1] = '\0';
130 }
131
132 return (buffer);
133 }
134
135 int
elf_errno()136 elf_errno()
137 {
138 int rc = _elf_geterr();
139
140 _elf_seterr(0, 0);
141 return (rc);
142 }
143