Remove dependency on go loanguage for ros-gcc
[akaros.git] / tools / compilers / gcc-glibc / glibc-2.14.1-riscv.patch
1 diff --git a/glibc-2.14.1/scripts/config.sub b/glibc-2.14.1/scripts/config.sub
2 index 459eb41..46a0794 100755
3 --- a/glibc-2.14.1/scripts/config.sub
4 +++ glibc-2.14.1/scripts/config.sub
5 @@ -290,6 +290,7 @@ case $basic_machine in
6         | pdp10 | pdp11 | pj | pjl \
7         | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \
8         | pyramid \
9 +       | riscv \
10         | rx \
11         | score \
12         | sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \
13 diff --git a/glibc-2.14.1/sysdeps/riscv/Implies b/glibc-2.14.1/sysdeps/riscv/Implies
14 new file mode 100644
15 index 0000000..3c3d8e7
16 --- /dev/null
17 +++ glibc-2.14.1/sysdeps/riscv/Implies
18 @@ -0,0 +1,5 @@
19 +ieee754/flt-32
20 +ieee754/dbl-64
21 +
22 +# This needs to change to support rv32
23 +riscv/rv64
24 diff --git a/glibc-2.14.1/sysdeps/riscv/Makefile b/glibc-2.14.1/sysdeps/riscv/Makefile
25 new file mode 100644
26 index 0000000..b21eb39
27 --- /dev/null
28 +++ glibc-2.14.1/sysdeps/riscv/Makefile
29 @@ -0,0 +1,9 @@
30 +ifeq ($(subdir),misc)
31 +sysdep_headers += sys/asm.h sgidefs.h
32 +endif
33 +
34 +ifeq ($(subdir),rt)
35 +librt-sysdep_routines += rt-sysdep
36 +endif
37 +
38 +ASFLAGS-.os += $(pic-ccflag)
39 diff --git a/glibc-2.14.1/sysdeps/riscv/__longjmp.S b/glibc-2.14.1/sysdeps/riscv/__longjmp.S
40 new file mode 100644
41 index 0000000..7c191b2
42 --- /dev/null
43 +++ glibc-2.14.1/sysdeps/riscv/__longjmp.S
44 @@ -0,0 +1,59 @@
45 +/* Copyright (C) 1996, 1997, 2000, 2002, 2003, 2004
46 +       Free Software Foundation, Inc.
47 +   This file is part of the GNU C Library.
48 +
49 +   The GNU C Library is free software; you can redistribute it and/or
50 +   modify it under the terms of the GNU Lesser General Public
51 +   License as published by the Free Software Foundation; either
52 +   version 2.1 of the License, or (at your option) any later version.
53 +
54 +   The GNU C Library is distributed in the hope that it will be useful,
55 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
56 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
57 +   Lesser General Public License for more details.
58 +
59 +   You should have received a copy of the GNU Lesser General Public
60 +   License along with the GNU C Library; if not, write to the Free
61 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
62 +   02111-1307 USA.  */
63 +
64 +#include <sysdep.h>
65 +#include <sys/asm.h>
66 +
67 +ENTRY (__longjmp)
68 +       REG_L ra,  0*SZREG(a0)
69 +       REG_L sp,  1*SZREG(a0)
70 +       REG_L tp,  2*SZREG(a0)
71 +       REG_L s0,  3*SZREG(a0)
72 +       REG_L s1,  4*SZREG(a0)
73 +       REG_L s2,  5*SZREG(a0)
74 +       REG_L s3,  6*SZREG(a0)
75 +       REG_L s4,  7*SZREG(a0)
76 +       REG_L s5,  8*SZREG(a0)
77 +       REG_L s6,  9*SZREG(a0)
78 +       REG_L s7, 10*SZREG(a0)
79 +       REG_L s8, 11*SZREG(a0)
80 +       REG_L s9, 12*SZREG(a0)
81 +
82 +#ifdef __riscv_hard_float
83 +       REG_L t0, 13*SZREG(a0)
84 +
85 +       fld  fs0, 8*0 + 14*SZREG(a0)
86 +       fld  fs1, 8*1 + 14*SZREG(a0)
87 +       fld  fs2, 8*2 + 14*SZREG(a0)
88 +       fld  fs3, 8*3 + 14*SZREG(a0)
89 +       fld  fs4, 8*4 + 14*SZREG(a0)
90 +       fld  fs5, 8*5 + 14*SZREG(a0)
91 +       fld  fs6, 8*6 + 14*SZREG(a0)
92 +       fld  fs7, 8*7 + 14*SZREG(a0)
93 +       fld  fs8, 8*8 + 14*SZREG(a0)
94 +       fld  fs9, 8*9 + 14*SZREG(a0)
95 +
96 +       mtfsr t0
97 +#endif
98 +
99 +       sltu t0, a1, 1    # t0 = (a1 == 0)
100 +       add  v0, t0, a1   # v0 = (a1 == 0 ? 1 : a1)
101 +       ret
102 +
103 +END(__longjmp)
104 diff --git a/glibc-2.14.1/sysdeps/riscv/abort-instr.h b/glibc-2.14.1/sysdeps/riscv/abort-instr.h
105 new file mode 100644
106 index 0000000..a901452
107 --- /dev/null
108 +++ glibc-2.14.1/sysdeps/riscv/abort-instr.h
109 @@ -0,0 +1,2 @@
110 +/* An instruction which should crash any program is a breakpoint.  */
111 +#define ABORT_INSTRUCTION asm ("unimp")
112 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/atomic.h b/glibc-2.14.1/sysdeps/riscv/bits/atomic.h
113 new file mode 100644
114 index 0000000..6711b84
115 --- /dev/null
116 +++ glibc-2.14.1/sysdeps/riscv/bits/atomic.h
117 @@ -0,0 +1,119 @@
118 +/* Low-level functions for atomic operations. Mips version.
119 +   Copyright (C) 2005 Free Software Foundation, Inc.
120 +   This file is part of the GNU C Library.
121 +
122 +   The GNU C Library is free software; you can redistribute it and/or
123 +   modify it under the terms of the GNU Lesser General Public
124 +   License as published by the Free Software Foundation; either
125 +   version 2.1 of the License, or (at your option) any later version.
126 +
127 +   The GNU C Library is distributed in the hope that it will be useful,
128 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
129 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
130 +   Lesser General Public License for more details.
131 +
132 +   You should have received a copy of the GNU Lesser General Public
133 +   License along with the GNU C Library; if not, write to the Free
134 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
135 +   02111-1307 USA.  */
136 +
137 +#ifndef _MIPS_BITS_ATOMIC_H
138 +#define _MIPS_BITS_ATOMIC_H 1
139 +
140 +#include <inttypes.h>
141 +#include <sgidefs.h>
142 +
143 +typedef int32_t atomic32_t;
144 +typedef uint32_t uatomic32_t;
145 +typedef int_fast32_t atomic_fast32_t;
146 +typedef uint_fast32_t uatomic_fast32_t;
147 +
148 +typedef int64_t atomic64_t;
149 +typedef uint64_t uatomic64_t;
150 +typedef int_fast64_t atomic_fast64_t;
151 +typedef uint_fast64_t uatomic_fast64_t;
152 +
153 +typedef intptr_t atomicptr_t;
154 +typedef uintptr_t uatomicptr_t;
155 +typedef intmax_t atomic_max_t;
156 +typedef uintmax_t uatomic_max_t;
157 +
158 +/* Atomic compare and exchange. */
159 +
160 +#define atomic_compare_and_exchange_val_acq(mem, newval, oldval)         \
161 +  ({ __sync_synchronize();                      \
162 +     __sync_val_compare_and_swap(mem, oldval, newval); })
163 +
164 +#define atomic_compare_and_exchange_val_rel(mem, newval, oldval)         \
165 +  ({ typeof(*mem) __prev;                       \
166 +     __prev = __sync_val_compare_and_swap(mem, value);  \
167 +     __sync_synchronize();                      \
168 +     __prev; })
169 +
170 +/* Atomic exchange (without compare).  */
171 +
172 +#define atomic_exchange_acq(mem, value)         \
173 +  ({ __sync_synchronize();                      \
174 +     __sync_lock_test_and_set(mem, value); })
175 +
176 +#define atomic_exchange_rel(mem, value)         \
177 +  ({ typeof(*mem) __prev;                       \
178 +     __prev = __sync_lock_test_and_set(mem, value);  \
179 +     __sync_synchronize();                      \
180 +     __prev; })
181 +
182 +
183 +/* Atomically add value and return the previous (unincremented) value.  */
184 +
185 +/* ??? Barrier semantics for atomic_exchange_and_add appear to be 
186 +   undefined.  Use full barrier for now, as that's safe.  */
187 +#define atomic_exchange_and_add(mem, value)             \
188 +  ({ typeof(*mem) __prev;                               \
189 +     __sync_synchronize();                              \
190 +     __prev = __sync_fetch_and_add(mem, value);         \
191 +     __sync_synchronize();                              \
192 +     __prev; })
193 +
194 +#define catomic_exchange_and_add(mem, value)           \
195 +  atomic_exchange_and_add(mem, value)
196 +
197 +#define atomic_bit_test_set(mem, bit)                   \
198 +  ({ typeof(*mem) __prev;                               \
199 +     typeof(*mem) __mask = (typeof(*mem))1 << (bit);    \
200 +     __sync_synchronize();                              \
201 +     __prev = __sync_fetch_and_or(mem, __mask);         \
202 +     __sync_synchronize();                              \
203 +     __prev & __mask; })
204 +
205 +#define asm_maxmin(which, size, res, mem, value) \
206 +  asm ("amo" which "." size "\t%0, %1, 0(%2)" : "=r"(res) : "r"(value), "r"(mem) : "memory")
207 +
208 +#define atomic_max(mem, value)                         \
209 +  ({  typeof(*mem) __prev;                             \
210 +      __sync_synchronize();                                    \
211 +      if (sizeof(*mem) == 4)                           \
212 +       asm_maxmin("maxu", "s", __prev, mem, value);    \
213 +      else if(sizeof(*mem) == 8)                       \
214 +       asm_maxmin("maxu", "d", __prev, mem, value);    \
215 +      else                                             \
216 +       abort();                                        \
217 +     __sync_synchronize();                              \
218 +     __prev; })
219 +
220 +#define catomic_max(mem, value) atomic_max(mem, value)
221 +
222 +#define atomic_min(mem, value)                         \
223 +  ({  typeof(*mem) __prev;                             \
224 +      __sync_synchronize();                                    \
225 +      if (sizeof(*mem) == 4)                           \
226 +       asm_maxmin("minu", "s", __prev, mem, value);    \
227 +      else if(sizeof(*mem) == 8)                       \
228 +       asm_maxmin("minu", "d", __prev, mem, value);    \
229 +      else                                             \
230 +       abort();                                        \
231 +     __sync_synchronize();                              \
232 +     __prev; })
233 +
234 +#define atomic_full_barrier() __sync_synchronize()
235 +
236 +#endif /* bits/atomic.h */
237 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/dlfcn.h b/glibc-2.14.1/sysdeps/riscv/bits/dlfcn.h
238 new file mode 100644
239 index 0000000..a5b5bf5
240 --- /dev/null
241 +++ glibc-2.14.1/sysdeps/riscv/bits/dlfcn.h
242 @@ -0,0 +1,66 @@
243 +/* System dependent definitions for run-time dynamic loading.
244 +   Copyright (C) 1996, 1997, 1999, 2000, 2001, 2004
245 +       Free Software Foundation, Inc.
246 +   This file is part of the GNU C Library.
247 +
248 +   The GNU C Library is free software; you can redistribute it and/or
249 +   modify it under the terms of the GNU Lesser General Public
250 +   License as published by the Free Software Foundation; either
251 +   version 2.1 of the License, or (at your option) any later version.
252 +
253 +   The GNU C Library is distributed in the hope that it will be useful,
254 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
255 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
256 +   Lesser General Public License for more details.
257 +
258 +   You should have received a copy of the GNU Lesser General Public
259 +   License along with the GNU C Library; if not, write to the Free
260 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
261 +   02111-1307 USA.  */
262 +
263 +#ifndef _DLFCN_H
264 +# error "Never use <bits/dlfcn.h> directly; include <dlfcn.h> instead."
265 +#endif
266 +
267 +/* The MODE argument to `dlopen' contains one of the following: */
268 +#define RTLD_LAZY      0x0001  /* Lazy function call binding.  */
269 +#define RTLD_NOW       0x0002  /* Immediate function call binding.  */
270 +#define RTLD_BINDING_MASK  0x3 /* Mask of binding time value.  */
271 +#define RTLD_NOLOAD    0x00008 /* Do not load the object.  */
272 +#define RTLD_DEEPBIND  0x00010 /* Use deep binding.  */
273 +
274 +/* If the following bit is set in the MODE argument to `dlopen',
275 +   the symbols of the loaded object and its dependencies are made
276 +   visible as if the object were linked directly into the program.  */
277 +#define RTLD_GLOBAL    0x0004
278 +
279 +/* Unix98 demands the following flag which is the inverse to RTLD_GLOBAL.
280 +   The implementation does this by default and so we can define the
281 +   value to zero.  */
282 +#define RTLD_LOCAL      0
283 +
284 +/* Do not delete object when closed.  */
285 +#define RTLD_NODELETE  0x01000
286 +
287 +#ifdef __USE_GNU
288 +/* To support profiling of shared objects it is a good idea to call
289 +   the function found using `dlsym' using the following macro since
290 +   these calls do not use the PLT.  But this would mean the dynamic
291 +   loader has no chance to find out when the function is called.  The
292 +   macro applies the necessary magic so that profiling is possible.
293 +   Rewrite
294 +       foo = (*fctp) (arg1, arg2);
295 +   into
296 +        foo = DL_CALL_FCT (fctp, (arg1, arg2));
297 +*/
298 +# define DL_CALL_FCT(fctp, args) \
299 +  (_dl_mcount_wrapper_check ((void *) (fctp)), (*(fctp)) args)
300 +
301 +__BEGIN_DECLS
302 +
303 +/* This function calls the profiling functions.  */
304 +extern void _dl_mcount_wrapper_check (void *__selfpc) __THROW;
305 +
306 +__END_DECLS
307 +
308 +#endif
309 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/endian.h b/glibc-2.14.1/sysdeps/riscv/bits/endian.h
310 new file mode 100644
311 index 0000000..0119a54
312 --- /dev/null
313 +++ glibc-2.14.1/sysdeps/riscv/bits/endian.h
314 @@ -0,0 +1,13 @@
315 +/* The MIPS architecture has selectable endianness.
316 +   This file is for a machine using big-endian mode.  */
317 +
318 +#ifndef _ENDIAN_H
319 +# error "Never use <bits/endian.h> directly; include <endian.h> instead."
320 +#endif
321 +
322 +#if __RISCVEB
323 +# define __BYTE_ORDER __BIG_ENDIAN
324 +#endif
325 +#if __RISCVEL
326 +# define __BYTE_ORDER __LITTLE_ENDIAN
327 +#endif
328 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/fenv.h b/glibc-2.14.1/sysdeps/riscv/bits/fenv.h
329 new file mode 100644
330 index 0000000..24e0694
331 --- /dev/null
332 +++ glibc-2.14.1/sysdeps/riscv/bits/fenv.h
333 @@ -0,0 +1,77 @@
334 +/* Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
335 +   This file is part of the GNU C Library.
336 +
337 +   The GNU C Library is free software; you can redistribute it and/or
338 +   modify it under the terms of the GNU Lesser General Public
339 +   License as published by the Free Software Foundation; either
340 +   version 2.1 of the License, or (at your option) any later version.
341 +
342 +   The GNU C Library is distributed in the hope that it will be useful,
343 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
344 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
345 +   Lesser General Public License for more details.
346 +
347 +   You should have received a copy of the GNU Lesser General Public
348 +   License along with the GNU C Library; if not, write to the Free
349 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
350 +   02111-1307 USA.  */
351 +
352 +#ifndef _FENV_H
353 +# error "Never use <bits/fenv.h> directly; include <fenv.h> instead."
354 +#endif
355 +
356 +
357 +/* Define bits representing the exception.  We use the bit positions
358 +   of the appropriate bits in the FPU control word.  */
359 +enum
360 +  {
361 +    FE_INEXACT = 0x04,
362 +#define FE_INEXACT     FE_INEXACT
363 +    FE_UNDERFLOW = 0x08,
364 +#define FE_UNDERFLOW   FE_UNDERFLOW
365 +    FE_OVERFLOW = 0x10,
366 +#define FE_OVERFLOW    FE_OVERFLOW
367 +    FE_DIVBYZERO = 0x20,
368 +#define FE_DIVBYZERO   FE_DIVBYZERO
369 +    FE_INVALID = 0x40,
370 +#define FE_INVALID     FE_INVALID
371 +  };
372 +
373 +#define FE_ALL_EXCEPT \
374 +       (FE_INEXACT | FE_DIVBYZERO | FE_UNDERFLOW | FE_OVERFLOW | FE_INVALID)
375 +
376 +/* The MIPS FPU supports all of the four defined rounding modes.  We
377 +   use again the bit positions in the FPU control word as the values
378 +   for the appropriate macros.  */
379 +enum
380 +  {
381 +    FE_TONEAREST = 0x0,
382 +#define FE_TONEAREST   FE_TONEAREST
383 +    FE_TOWARDZERO = 0x1,
384 +#define FE_TOWARDZERO  FE_TOWARDZERO
385 +    FE_UPWARD = 0x2,
386 +#define FE_UPWARD      FE_UPWARD
387 +    FE_DOWNWARD = 0x3
388 +#define FE_DOWNWARD    FE_DOWNWARD
389 +  };
390 +
391 +
392 +/* Type representing exception flags.  */
393 +typedef unsigned short int fexcept_t;
394 +
395 +
396 +/* Type representing floating-point environment.  This function corresponds
397 +   to the layout of the block written by the `fstenv'.  */
398 +typedef struct
399 +  {
400 +    unsigned int __fp_control_register;
401 +  }
402 +fenv_t;
403 +
404 +/* If the default argument is used we use this value.  */
405 +#define FE_DFL_ENV     ((__const fenv_t *) -1)
406 +
407 +#ifdef __USE_GNU
408 +/* Floating-point environment where none of the exception is masked.  */
409 +# define FE_NOMASK_ENV  ((__const fenv_t *) -2)
410 +#endif
411 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/ipctypes.h b/glibc-2.14.1/sysdeps/riscv/bits/ipctypes.h
412 new file mode 100644
413 index 0000000..0956e7d
414 --- /dev/null
415 +++ glibc-2.14.1/sysdeps/riscv/bits/ipctypes.h
416 @@ -0,0 +1,32 @@
417 +/* bits/ipctypes.h -- Define some types used by SysV IPC/MSG/SHM.  MIPS version
418 +   Copyright (C) 2002 Free Software Foundation, Inc.
419 +   This file is part of the GNU C Library.
420 +
421 +   The GNU C Library is free software; you can redistribute it and/or
422 +   modify it under the terms of the GNU Lesser General Public
423 +   License as published by the Free Software Foundation; either
424 +   version 2.1 of the License, or (at your option) any later version.
425 +
426 +   The GNU C Library is distributed in the hope that it will be useful,
427 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
428 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
429 +   Lesser General Public License for more details.
430 +
431 +   You should have received a copy of the GNU Lesser General Public
432 +   License along with the GNU C Library; if not, write to the Free
433 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
434 +   02111-1307 USA.  */
435 +
436 +/*
437 + * Never include <bits/ipctypes.h> directly.
438 + */
439 +
440 +#ifndef _BITS_IPCTYPES_H
441 +#define _BITS_IPCTYPES_H       1
442 +
443 +#include <bits/types.h>
444 +
445 +typedef __SLONG32_TYPE __ipc_pid_t;
446 +
447 +
448 +#endif /* bits/ipctypes.h */
449 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/link.h b/glibc-2.14.1/sysdeps/riscv/bits/link.h
450 new file mode 100644
451 index 0000000..f216ebd
452 --- /dev/null
453 +++ glibc-2.14.1/sysdeps/riscv/bits/link.h
454 @@ -0,0 +1,76 @@
455 +/* Copyright (C) 2005, 2009 Free Software Foundation, Inc.
456 +   This file is part of the GNU C Library.
457 +
458 +   The GNU C Library is free software; you can redistribute it and/or
459 +   modify it under the terms of the GNU Lesser General Public
460 +   License as published by the Free Software Foundation; either
461 +   version 2.1 of the License, or (at your option) any later version.
462 +
463 +   The GNU C Library is distributed in the hope that it will be useful,
464 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
465 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
466 +   Lesser General Public License for more details.
467 +
468 +   You should have received a copy of the GNU Lesser General Public
469 +   License along with the GNU C Library; if not, write to the Free
470 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
471 +   02111-1307 USA.  */
472 +
473 +#ifndef        _LINK_H
474 +# error "Never include <bits/link.h> directly; use <link.h> instead."
475 +#endif
476 +
477 +typedef struct La_mips_64_regs
478 +{
479 +  unsigned long lr_reg[8]; /* $a0 through $a7 */
480 +  double lr_fpreg[8]; /* $f4 throgh $f11 */
481 +  unsigned long lr_ra;
482 +  unsigned long lr_sp;
483 +} La_mips_64_regs;
484 +
485 +/* Return values for calls from PLT on MIPS.  */
486 +typedef struct La_mips_64_retval
487 +{
488 +  unsigned long lrv_v0;
489 +  unsigned long lrv_v1;
490 +  double lrv_fv0;
491 +  double lrv_fv1;
492 +} La_mips_64_retval;
493 +
494 +__BEGIN_DECLS
495 +
496 +#if _RISCV_SIM == _ABI32
497 +
498 +extern Elf32_Addr la_mips_n32_gnu_pltenter (Elf32_Sym *__sym, unsigned int __ndx,
499 +                                           uintptr_t *__refcook,
500 +                                           uintptr_t *__defcook,
501 +                                           La_mips_64_regs *__regs,
502 +                                           unsigned int *__flags,
503 +                                           const char *__symname,
504 +                                           long int *__framesizep);
505 +extern unsigned int la_mips_n32_gnu_pltexit (Elf32_Sym *__sym, unsigned int __ndx,
506 +                                            uintptr_t *__refcook,
507 +                                            uintptr_t *__defcook,
508 +                                            const La_mips_64_regs *__inregs,
509 +                                            La_mips_64_retval *__outregs,
510 +                                            const char *__symname);
511 +
512 +#else
513 +
514 +extern Elf64_Addr la_mips_n64_gnu_pltenter (Elf64_Sym *__sym, unsigned int __ndx,
515 +                                           uintptr_t *__refcook,
516 +                                           uintptr_t *__defcook,
517 +                                           La_mips_64_regs *__regs,
518 +                                           unsigned int *__flags,
519 +                                           const char *__symname,
520 +                                           long int *__framesizep);
521 +extern unsigned int la_mips_n64_gnu_pltexit (Elf64_Sym *__sym, unsigned int __ndx,
522 +                                            uintptr_t *__refcook,
523 +                                            uintptr_t *__defcook,
524 +                                            const La_mips_64_regs *__inregs,
525 +                                            La_mips_64_retval *__outregs,
526 +                                            const char *__symname);
527 +
528 +#endif
529 +
530 +__END_DECLS
531 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/linkmap.h b/glibc-2.14.1/sysdeps/riscv/bits/linkmap.h
532 new file mode 100644
533 index 0000000..a6df782
534 --- /dev/null
535 +++ glibc-2.14.1/sysdeps/riscv/bits/linkmap.h
536 @@ -0,0 +1,4 @@
537 +struct link_map_machine
538 +  {
539 +    ElfW(Addr) plt; /* Address of .plt */
540 +  };
541 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/mathdef.h b/glibc-2.14.1/sysdeps/riscv/bits/mathdef.h
542 new file mode 100644
543 index 0000000..d718016
544 --- /dev/null
545 +++ glibc-2.14.1/sysdeps/riscv/bits/mathdef.h
546 @@ -0,0 +1,45 @@
547 +/* Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, 2007
548 +       Free Software Foundation, Inc.
549 +   This file is part of the GNU C Library.
550 +
551 +   The GNU C Library is free software; you can redistribute it and/or
552 +   modify it under the terms of the GNU Lesser General Public
553 +   License as published by the Free Software Foundation; either
554 +   version 2.1 of the License, or (at your option) any later version.
555 +
556 +   The GNU C Library is distributed in the hope that it will be useful,
557 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
558 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
559 +   Lesser General Public License for more details.
560 +
561 +   You should have received a copy of the GNU Lesser General Public
562 +   License along with the GNU C Library; if not, write to the Free
563 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
564 +   02111-1307 USA.  */
565 +
566 +#if !defined _MATH_H && !defined _COMPLEX_H
567 +# error "Never use <bits/mathdef.h> directly; include <math.h> instead"
568 +#endif
569 +
570 +#include <sgidefs.h>
571 +
572 +#if defined  __USE_ISOC99 && defined _MATH_H && !defined _MATH_H_MATHDEF
573 +# define _MATH_H_MATHDEF       1
574 +
575 +/* MIPS has `float' and `double' operations.  */
576 +typedef float float_t;         /* `float' expressions are evaluated as
577 +                                  `float'.  */
578 +typedef double double_t;       /* `double' expressions are evaluated as
579 +                                  `double'.  */
580 +
581 +/* The values returned by `ilogb' for 0 and NaN respectively.  */
582 +# define FP_ILOGB0     (-2147483647)
583 +# define FP_ILOGBNAN   2147483647
584 +
585 +#endif /* ISO C99 */
586 +
587 +#if ! defined __NO_LONG_DOUBLE_MATH && _RISCV_SIM == _ABI32
588 +/* Signal that we do not really have a `long double'.  This disables the
589 +   declaration of all the `long double' function variants.  */
590 +# define __NO_LONG_DOUBLE_MATH 1
591 +#endif
592 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/nan.h b/glibc-2.14.1/sysdeps/riscv/bits/nan.h
593 new file mode 100644
594 index 0000000..baaaa55
595 --- /dev/null
596 +++ glibc-2.14.1/sysdeps/riscv/bits/nan.h
597 @@ -0,0 +1,56 @@
598 +/* `NAN' constant for IEEE 754 machines.
599 +   Copyright (C) 1992, 1996, 1997, 1999, 2002, 2004
600 +   Free Software Foundation, Inc.
601 +   This file is part of the GNU C Library.
602 +
603 +   The GNU C Library is free software; you can redistribute it and/or
604 +   modify it under the terms of the GNU Lesser General Public
605 +   License as published by the Free Software Foundation; either
606 +   version 2.1 of the License, or (at your option) any later version.
607 +
608 +   The GNU C Library is distributed in the hope that it will be useful,
609 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
610 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
611 +   Lesser General Public License for more details.
612 +
613 +   You should have received a copy of the GNU Lesser General Public
614 +   License along with the GNU C Library; if not, write to the Free
615 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
616 +   02111-1307 USA.  */
617 +
618 +#ifndef _MATH_H
619 +# error "Never use <bits/nan.h> directly; include <math.h> instead."
620 +#endif
621 +
622 +
623 +/* IEEE Not A Number (QNaN). Note that MIPS has the QNaN and SNaN patterns
624 +   reversed compared to most other architectures. The IEEE spec left
625 +   the definition of this open to implementations, and for MIPS the top
626 +   bit of the mantissa must be SET to indicate a SNaN.  */
627 +
628 +#if __GNUC_PREREQ(3,3)
629 +
630 +# define NAN   (__builtin_nanf(""))
631 +
632 +#elif defined __GNUC__
633 +
634 +# define NAN \
635 +  (__extension__                                                            \
636 +   ((union { unsigned __l __attribute__((__mode__(__SI__))); float __d; })  \
637 +    { __l: 0x7fbfffffUL }).__d)
638 +
639 +#else
640 +
641 +# include <endian.h>
642 +
643 +# if __BYTE_ORDER == __BIG_ENDIAN
644 +#  define __nan_bytes          { 0x7f, 0xbf, 0xff, 0xff }
645 +# endif
646 +# if __BYTE_ORDER == __LITTLE_ENDIAN
647 +#  define __nan_bytes          { 0xff, 0xff, 0xbf, 0x7f }
648 +# endif
649 +
650 +static union { unsigned char __c[4]; float __d; } __nan_union = { __nan_bytes };
651 +# define NAN   (__nan_union.__d)
652 +
653 +#endif /* GCC.  */
654 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/setjmp.h b/glibc-2.14.1/sysdeps/riscv/bits/setjmp.h
655 new file mode 100644
656 index 0000000..40d6295
657 --- /dev/null
658 +++ glibc-2.14.1/sysdeps/riscv/bits/setjmp.h
659 @@ -0,0 +1,47 @@
660 +/* Define the machine-dependent type `jmp_buf'.  RISC-V version.
661 +   Copyright (C) 1992,1993,1995,1997,2000,2002,2003,2004,2005,2006
662 +       Free Software Foundation, Inc.
663 +   This file is part of the GNU C Library.
664 +
665 +   The GNU C Library is free software; you can redistribute it and/or
666 +   modify it under the terms of the GNU Lesser General Public
667 +   License as published by the Free Software Foundation; either
668 +   version 2.1 of the License, or (at your option) any later version.
669 +
670 +   The GNU C Library is distributed in the hope that it will be useful,
671 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
672 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
673 +   Lesser General Public License for more details.
674 +
675 +   You should have received a copy of the GNU Lesser General Public
676 +   License along with the GNU C Library; if not, write to the Free
677 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
678 +   02111-1307 USA.  */
679 +
680 +#ifndef _RISCV_BITS_SETJMP_H
681 +#define _RISCV_BITS_SETJMP_H
682 +
683 +typedef struct __jmp_buf_internal_tag
684 +  {
685 +    /* Program counter.  */
686 +    long __pc;
687 +
688 +    /* Stack pointer.  */
689 +    long __sp;
690 +
691 +    /* Thread pointer. */
692 +    long __tp;
693 +
694 +    /* Callee-saved registers s0 through s9.  */
695 +    long __regs[10];
696 +
697 +    /* Floating point status register.  */
698 +    long __fsr;
699 +
700 +    /* Callee-saved floating point registers.
701 +       Note that there are an even number of preceding words in this struct,
702 +       so no padding will be inserted before __fpregs, even for RV32. */
703 +    double __fpregs[10];
704 +  } __jmp_buf[1];
705 +
706 +#endif /* _RISCV_BITS_SETJMP_H */
707 diff --git a/glibc-2.14.1/sysdeps/riscv/bits/wordsize.h b/glibc-2.14.1/sysdeps/riscv/bits/wordsize.h
708 new file mode 100644
709 index 0000000..f956c87
710 --- /dev/null
711 +++ glibc-2.14.1/sysdeps/riscv/bits/wordsize.h
712 @@ -0,0 +1,22 @@
713 +/* Copyright (C) 2002, 2003 Free Software Foundation, Inc.
714 +   This file is part of the GNU C Library.
715 +
716 +   The GNU C Library is free software; you can redistribute it and/or
717 +   modify it under the terms of the GNU Lesser General Public
718 +   License as published by the Free Software Foundation; either
719 +   version 2.1 of the License, or (at your option) any later version.
720 +
721 +   The GNU C Library is distributed in the hope that it will be useful,
722 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
723 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
724 +   Lesser General Public License for more details.
725 +
726 +   You should have received a copy of the GNU Lesser General Public
727 +   License along with the GNU C Library; if not, write to the Free
728 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
729 +   02111-1307 USA.  */
730 +
731 +#define __WORDSIZE     _RISCV_SZPTR
732 +#if _RISCV_SIM == _ABI64
733 +# define __WORDSIZE_COMPAT32   1
734 +#endif
735 diff --git a/glibc-2.14.1/sysdeps/riscv/bsd-_setjmp.c b/glibc-2.14.1/sysdeps/riscv/bsd-_setjmp.c
736 new file mode 100644
737 index 0000000..0d41310
738 --- /dev/null
739 +++ glibc-2.14.1/sysdeps/riscv/bsd-_setjmp.c
740 @@ -0,0 +1 @@
741 +/* _setjmp is implemented in setjmp.S */
742 diff --git a/glibc-2.14.1/sysdeps/riscv/bsd-setjmp.c b/glibc-2.14.1/sysdeps/riscv/bsd-setjmp.c
743 new file mode 100644
744 index 0000000..ee7c5e3
745 --- /dev/null
746 +++ glibc-2.14.1/sysdeps/riscv/bsd-setjmp.c
747 @@ -0,0 +1 @@
748 +/* setjmp is implemented in setjmp.S */
749 diff --git a/glibc-2.14.1/sysdeps/riscv/dl-dtprocnum.h b/glibc-2.14.1/sysdeps/riscv/dl-dtprocnum.h
750 new file mode 100644
751 index 0000000..dfd03ba
752 --- /dev/null
753 +++ glibc-2.14.1/sysdeps/riscv/dl-dtprocnum.h
754 @@ -0,0 +1,22 @@
755 +/* Configuration of lookup functions.  MIPS version.
756 +   Copyright (C) 2000 Free Software Foundation, Inc.
757 +   This file is part of the GNU C Library.
758 +
759 +   The GNU C Library is free software; you can redistribute it and/or
760 +   modify it under the terms of the GNU Lesser General Public
761 +   License as published by the Free Software Foundation; either
762 +   version 2.1 of the License, or (at your option) any later version.
763 +
764 +   The GNU C Library is distributed in the hope that it will be useful,
765 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
766 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
767 +   Lesser General Public License for more details.
768 +
769 +   You should have received a copy of the GNU Lesser General Public
770 +   License along with the GNU C Library; if not, write to the Free
771 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
772 +   02111-1307 USA.  */
773 +
774 +/* Number of extra dynamic section entries for this architecture.  By
775 +   default there are none.  */
776 +#define DT_THISPROCNUM DT_MIPS_NUM
777 diff --git a/glibc-2.14.1/sysdeps/riscv/dl-lookup.c b/glibc-2.14.1/sysdeps/riscv/dl-lookup.c
778 new file mode 100644
779 index 0000000..4090efe
780 --- /dev/null
781 +++ glibc-2.14.1/sysdeps/riscv/dl-lookup.c
782 @@ -0,0 +1,1033 @@
783 +/* Look up a symbol in the loaded objects.
784 +   MIPS/Linux version - special handling of non-PIC undefined symbol rules.
785 +   Copyright (C) 1995-2005, 2006, 2007, 2009, 2010
786 +   Free Software Foundation, Inc.
787 +   This file is part of the GNU C Library.
788 +
789 +   The GNU C Library is free software; you can redistribute it and/or
790 +   modify it under the terms of the GNU Lesser General Public
791 +   License as published by the Free Software Foundation; either
792 +   version 2.1 of the License, or (at your option) any later version.
793 +
794 +   The GNU C Library is distributed in the hope that it will be useful,
795 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
796 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
797 +   Lesser General Public License for more details.
798 +
799 +   You should have received a copy of the GNU Lesser General Public
800 +   License along with the GNU C Library; if not, write to the Free
801 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
802 +   02111-1307 USA.  */
803 +
804 +#include <alloca.h>
805 +#include <libintl.h>
806 +#include <stdlib.h>
807 +#include <string.h>
808 +#include <unistd.h>
809 +#include <ldsodefs.h>
810 +#include <dl-hash.h>
811 +#include <dl-machine.h>
812 +#include <sysdep-cancel.h>
813 +#include <bits/libc-lock.h>
814 +#include <tls.h>
815 +
816 +#include <assert.h>
817 +
818 +#define VERSTAG(tag)   (DT_NUM + DT_THISPROCNUM + DT_VERSIONTAGIDX (tag))
819 +
820 +/* We need this string more than once.  */
821 +static const char undefined_msg[] = "undefined symbol: ";
822 +
823 +
824 +struct sym_val
825 +  {
826 +    const ElfW(Sym) *s;
827 +    struct link_map *m;
828 +  };
829 +
830 +
831 +#define make_string(string, rest...) \
832 +  ({                                                                         \
833 +    const char *all[] = { string, ## rest };                                 \
834 +    size_t len, cnt;                                                         \
835 +    char *result, *cp;                                                       \
836 +                                                                             \
837 +    len = 1;                                                                 \
838 +    for (cnt = 0; cnt < sizeof (all) / sizeof (all[0]); ++cnt)               \
839 +      len += strlen (all[cnt]);                                                      \
840 +                                                                             \
841 +    cp = result = alloca (len);                                                      \
842 +    for (cnt = 0; cnt < sizeof (all) / sizeof (all[0]); ++cnt)               \
843 +      cp = __stpcpy (cp, all[cnt]);                                          \
844 +                                                                             \
845 +    result;                                                                  \
846 +  })
847 +
848 +/* Statistics function.  */
849 +#ifdef SHARED
850 +# define bump_num_relocations() ++GL(dl_num_relocations)
851 +#else
852 +# define bump_num_relocations() ((void) 0)
853 +#endif
854 +
855 +
856 +/* Inner part of the lookup functions.  We return a value > 0 if we
857 +   found the symbol, the value 0 if nothing is found and < 0 if
858 +   something bad happened.  */
859 +static int
860 +__attribute_noinline__
861 +do_lookup_x (const char *undef_name, uint_fast32_t new_hash,
862 +            unsigned long int *old_hash, const ElfW(Sym) *ref,
863 +            struct sym_val *result, struct r_scope_elem *scope, size_t i,
864 +            const struct r_found_version *const version, int flags,
865 +            struct link_map *skip, int type_class, struct link_map *undef_map)
866 +{
867 +  size_t n = scope->r_nlist;
868 +  /* Make sure we read the value before proceeding.  Otherwise we
869 +     might use r_list pointing to the initial scope and r_nlist being
870 +     the value after a resize.  That is the only path in dl-open.c not
871 +     protected by GSCOPE.  A read barrier here might be to expensive.  */
872 +  __asm volatile ("" : "+r" (n), "+m" (scope->r_list));
873 +  struct link_map **list = scope->r_list;
874 +
875 +  do
876 +    {
877 +      /* These variables are used in the nested function.  */
878 +      Elf_Symndx symidx;
879 +      int num_versions = 0;
880 +      const ElfW(Sym) *versioned_sym = NULL;
881 +
882 +      const struct link_map *map = list[i]->l_real;
883 +
884 +      /* Here come the extra test needed for `_dl_lookup_symbol_skip'.  */
885 +      if (map == skip)
886 +       continue;
887 +
888 +      /* Don't search the executable when resolving a copy reloc.  */
889 +      if ((type_class & ELF_RTYPE_CLASS_COPY) && map->l_type == lt_executable)
890 +       continue;
891 +
892 +      /* Do not look into objects which are going to be removed.  */
893 +      if (map->l_removed)
894 +       continue;
895 +
896 +      /* Print some debugging info if wanted.  */
897 +      if (__builtin_expect (GLRO(dl_debug_mask) & DL_DEBUG_SYMBOLS, 0))
898 +       _dl_debug_printf ("symbol=%s;  lookup in file=%s [%lu]\n",
899 +                         undef_name,
900 +                         map->l_name[0] ? map->l_name : rtld_progname,
901 +                         map->l_ns);
902 +
903 +      /* If the hash table is empty there is nothing to do here.  */
904 +      if (map->l_nbuckets == 0)
905 +       continue;
906 +
907 +      /* The tables for this map.  */
908 +      const ElfW(Sym) *symtab = (const void *) D_PTR (map, l_info[DT_SYMTAB]);
909 +      const char *strtab = (const void *) D_PTR (map, l_info[DT_STRTAB]);
910 +
911 +
912 +      /* Nested routine to check whether the symbol matches.  */
913 +      const ElfW(Sym) *
914 +      __attribute_noinline__
915 +      check_match (const ElfW(Sym) *sym)
916 +      {
917 +       unsigned int stt = ELFW(ST_TYPE) (sym->st_info);
918 +       assert (ELF_RTYPE_CLASS_PLT == 1);
919 +       /* The semantics of zero/non-zero values of undefined symbols
920 +          differs depending on whether the non-PIC ABI is in use.
921 +          Under the non-PIC ABI, a non-zero value indicates that
922 +          there is an address reference to the symbol and thus it
923 +          must always be resolved (except when resolving a jump slot
924 +          relocation) to the PLT entry whose address is provided as
925 +          the symbol's value; a zero value indicates that this
926 +          canonical-address behaviour is not required.  Yet under the
927 +          classic MIPS psABI, a zero value indicates that there is an
928 +          address reference to the function and the dynamic linker
929 +          must resolve the symbol immediately upon loading.  To avoid
930 +          conflict, symbols for which the dynamic linker must assume
931 +          the non-PIC ABI semantics are marked with the STO_MIPS_PLT
932 +          flag.  */
933 +       if (__builtin_expect ((sym->st_value == 0 /* No value.  */
934 +                              && stt != STT_TLS)
935 +                             || (sym->st_shndx == SHN_UNDEF
936 +                                 && !(sym->st_other & STO_MIPS_PLT))
937 +                             || (type_class & (sym->st_shndx == SHN_UNDEF)),
938 +                             0))
939 +         return NULL;
940 +
941 +       /* Ignore all but STT_NOTYPE, STT_OBJECT, STT_FUNC,
942 +          STT_COMMON, STT_TLS, and STT_GNU_IFUNC since these are no
943 +          code/data definitions.  */
944 +#define ALLOWED_STT \
945 +       ((1 << STT_NOTYPE) | (1 << STT_OBJECT) | (1 << STT_FUNC) \
946 +        | (1 << STT_COMMON) | (1 << STT_TLS) | (1 << STT_GNU_IFUNC))
947 +       if (__builtin_expect (((1 << stt) & ALLOWED_STT) == 0, 0))
948 +         return NULL;
949 +
950 +       if (sym != ref && strcmp (strtab + sym->st_name, undef_name))
951 +         /* Not the symbol we are looking for.  */
952 +         return NULL;
953 +
954 +       const ElfW(Half) *verstab = map->l_versyms;
955 +       if (version != NULL)
956 +         {
957 +           if (__builtin_expect (verstab == NULL, 0))
958 +             {
959 +               /* We need a versioned symbol but haven't found any.  If
960 +                  this is the object which is referenced in the verneed
961 +                  entry it is a bug in the library since a symbol must
962 +                  not simply disappear.
963 +
964 +                  It would also be a bug in the object since it means that
965 +                  the list of required versions is incomplete and so the
966 +                  tests in dl-version.c haven't found a problem.*/
967 +               assert (version->filename == NULL
968 +                       || ! _dl_name_match_p (version->filename, map));
969 +
970 +               /* Otherwise we accept the symbol.  */
971 +             }
972 +           else
973 +             {
974 +               /* We can match the version information or use the
975 +                  default one if it is not hidden.  */
976 +               ElfW(Half) ndx = verstab[symidx] & 0x7fff;
977 +               if ((map->l_versions[ndx].hash != version->hash
978 +                    || strcmp (map->l_versions[ndx].name, version->name))
979 +                   && (version->hidden || map->l_versions[ndx].hash
980 +                       || (verstab[symidx] & 0x8000)))
981 +                 /* It's not the version we want.  */
982 +                 return NULL;
983 +             }
984 +         }
985 +       else
986 +         {
987 +           /* No specific version is selected.  There are two ways we
988 +              can got here:
989 +
990 +              - a binary which does not include versioning information
991 +              is loaded
992 +
993 +              - dlsym() instead of dlvsym() is used to get a symbol which
994 +              might exist in more than one form
995 +
996 +              If the library does not provide symbol version information
997 +              there is no problem at at: we simply use the symbol if it
998 +              is defined.
999 +
1000 +              These two lookups need to be handled differently if the
1001 +              library defines versions.  In the case of the old
1002 +              unversioned application the oldest (default) version
1003 +              should be used.  In case of a dlsym() call the latest and
1004 +              public interface should be returned.  */
1005 +           if (verstab != NULL)
1006 +             {
1007 +               if ((verstab[symidx] & 0x7fff)
1008 +                   >= ((flags & DL_LOOKUP_RETURN_NEWEST) ? 2 : 3))
1009 +                 {
1010 +                   /* Don't accept hidden symbols.  */
1011 +                   if ((verstab[symidx] & 0x8000) == 0
1012 +                       && num_versions++ == 0)
1013 +                     /* No version so far.  */
1014 +                     versioned_sym = sym;
1015 +
1016 +                   return NULL;
1017 +                 }
1018 +             }
1019 +         }
1020 +
1021 +       /* There cannot be another entry for this symbol so stop here.  */
1022 +       return sym;
1023 +      }
1024 +
1025 +      const ElfW(Sym) *sym;
1026 +      const ElfW(Addr) *bitmask = map->l_gnu_bitmask;
1027 +      if (__builtin_expect (bitmask != NULL, 1))
1028 +       {
1029 +         ElfW(Addr) bitmask_word
1030 +           = bitmask[(new_hash / __ELF_NATIVE_CLASS)
1031 +                     & map->l_gnu_bitmask_idxbits];
1032 +
1033 +         unsigned int hashbit1 = new_hash & (__ELF_NATIVE_CLASS - 1);
1034 +         unsigned int hashbit2 = ((new_hash >> map->l_gnu_shift)
1035 +                                  & (__ELF_NATIVE_CLASS - 1));
1036 +
1037 +         if (__builtin_expect ((bitmask_word >> hashbit1)
1038 +                               & (bitmask_word >> hashbit2) & 1, 0))
1039 +           {
1040 +             Elf32_Word bucket = map->l_gnu_buckets[new_hash
1041 +                                                    % map->l_nbuckets];
1042 +             if (bucket != 0)
1043 +               {
1044 +                 const Elf32_Word *hasharr = &map->l_gnu_chain_zero[bucket];
1045 +
1046 +                 do
1047 +                   if (((*hasharr ^ new_hash) >> 1) == 0)
1048 +                     {
1049 +                       symidx = hasharr - map->l_gnu_chain_zero;
1050 +                       sym = check_match (&symtab[symidx]);
1051 +                       if (sym != NULL)
1052 +                         goto found_it;
1053 +                     }
1054 +                 while ((*hasharr++ & 1u) == 0);
1055 +               }
1056 +           }
1057 +         /* No symbol found.  */
1058 +         symidx = SHN_UNDEF;
1059 +       }
1060 +      else
1061 +       {
1062 +         if (*old_hash == 0xffffffff)
1063 +           *old_hash = _dl_elf_hash (undef_name);
1064 +
1065 +         /* Use the old SysV-style hash table.  Search the appropriate
1066 +            hash bucket in this object's symbol table for a definition
1067 +            for the same symbol name.  */
1068 +         for (symidx = map->l_buckets[*old_hash % map->l_nbuckets];
1069 +              symidx != STN_UNDEF;
1070 +              symidx = map->l_chain[symidx])
1071 +           {
1072 +             sym = check_match (&symtab[symidx]);
1073 +             if (sym != NULL)
1074 +               goto found_it;
1075 +           }
1076 +       }
1077 +
1078 +      /* If we have seen exactly one versioned symbol while we are
1079 +        looking for an unversioned symbol and the version is not the
1080 +        default version we still accept this symbol since there are
1081 +        no possible ambiguities.  */
1082 +      sym = num_versions == 1 ? versioned_sym : NULL;
1083 +
1084 +      if (sym != NULL)
1085 +       {
1086 +       found_it:
1087 +         switch (__builtin_expect (ELFW(ST_BIND) (sym->st_info), STB_GLOBAL))
1088 +           {
1089 +           case STB_WEAK:
1090 +             /* Weak definition.  Use this value if we don't find another.  */
1091 +             if (__builtin_expect (GLRO(dl_dynamic_weak), 0))
1092 +               {
1093 +                 if (! result->s)
1094 +                   {
1095 +                     result->s = sym;
1096 +                     result->m = (struct link_map *) map;
1097 +                   }
1098 +                 break;
1099 +               }
1100 +             /* FALLTHROUGH */
1101 +           case STB_GLOBAL:
1102 +           success:
1103 +             /* Global definition.  Just what we need.  */
1104 +             result->s = sym;
1105 +             result->m = (struct link_map *) map;
1106 +             return 1;
1107 +
1108 +           case STB_GNU_UNIQUE:;
1109 +             /* We have to determine whether we already found a
1110 +                symbol with this name before.  If not then we have to
1111 +                add it to the search table.  If we already found a
1112 +                definition we have to use it.  */
1113 +             void enter (struct unique_sym *table, size_t size,
1114 +                         unsigned int hash, const char *name,
1115 +                         const ElfW(Sym) *sym, struct link_map *map)
1116 +             {
1117 +               size_t idx = hash % size;
1118 +               size_t hash2 = 1 + hash % (size - 2);
1119 +               while (1)
1120 +                 {
1121 +                   if (table[idx].name == NULL)
1122 +                     {
1123 +                       table[idx].hashval = hash;
1124 +                       table[idx].name = name;
1125 +                       if ((type_class & ELF_RTYPE_CLASS_COPY) != 0)
1126 +                         {
1127 +                           table[idx].sym = ref;
1128 +                           table[idx].map = undef_map;
1129 +                         }
1130 +                       else
1131 +                         {
1132 +                           table[idx].sym = sym;
1133 +                           table[idx].map = map;
1134 +
1135 +                           if (map->l_type == lt_loaded)
1136 +                             /* Make sure we don't unload this object by
1137 +                                setting the appropriate flag.  */
1138 +                             map->l_flags_1 |= DF_1_NODELETE;
1139 +                         }
1140 +
1141 +                       return;
1142 +                     }
1143 +
1144 +                   idx += hash2;
1145 +                   if (idx >= size)
1146 +                     idx -= size;
1147 +                 }
1148 +             }
1149 +
1150 +             struct unique_sym_table *tab
1151 +               = &GL(dl_ns)[map->l_ns]._ns_unique_sym_table;
1152 +
1153 +             __rtld_lock_lock_recursive (tab->lock);
1154 +
1155 +             struct unique_sym *entries = tab->entries;
1156 +             size_t size = tab->size;
1157 +             if (entries != NULL)
1158 +               {
1159 +                 size_t idx = new_hash % size;
1160 +                 size_t hash2 = 1 + new_hash % (size - 2);
1161 +                 while (1)
1162 +                   {
1163 +                     if (entries[idx].hashval == new_hash
1164 +                         && strcmp (entries[idx].name, undef_name) == 0)
1165 +                       {
1166 +                         result->s = entries[idx].sym;
1167 +                         result->m = (struct link_map *) entries[idx].map;
1168 +                         __rtld_lock_unlock_recursive (tab->lock);
1169 +                         return 1;
1170 +                       }
1171 +
1172 +                     if (entries[idx].name == NULL)
1173 +                       break;
1174 +
1175 +                     idx += hash2;
1176 +                     if (idx >= size)
1177 +                       idx -= size;
1178 +                   }
1179 +
1180 +                 if (size * 3 <= tab->n_elements * 4)
1181 +                   {
1182 +                     /* Expand the table.  */
1183 +#ifdef RTLD_CHECK_FOREIGN_CALL
1184 +                     /* This must not happen during runtime relocations.  */
1185 +                     assert (!RTLD_CHECK_FOREIGN_CALL);
1186 +#endif
1187 +                     size_t newsize = _dl_higher_prime_number (size + 1);
1188 +                     struct unique_sym *newentries
1189 +                       = calloc (sizeof (struct unique_sym), newsize);
1190 +                     if (newentries == NULL)
1191 +                       {
1192 +                       nomem:
1193 +                         __rtld_lock_unlock_recursive (tab->lock);
1194 +                         _dl_fatal_printf ("out of memory\n");
1195 +                       }
1196 +
1197 +                     for (idx = 0; idx < size; ++idx)
1198 +                       if (entries[idx].name != NULL)
1199 +                         enter (newentries, newsize, entries[idx].hashval,
1200 +                                entries[idx].name, entries[idx].sym,
1201 +                                entries[idx].map);
1202 +
1203 +                     tab->free (entries);
1204 +                     tab->size = newsize;
1205 +                     size = newsize;
1206 +                     entries = tab->entries = newentries;
1207 +                     tab->free = free;
1208 +                   }
1209 +               }
1210 +             else
1211 +               {
1212 +#ifdef RTLD_CHECK_FOREIGN_CALL
1213 +                 /* This must not happen during runtime relocations.  */
1214 +                 assert (!RTLD_CHECK_FOREIGN_CALL);
1215 +#endif
1216 +
1217 +#ifdef SHARED
1218 +                 /* If tab->entries is NULL, but tab->size is not, it means
1219 +                    this is the second, conflict finding, lookup for
1220 +                    LD_TRACE_PRELINKING in _dl_debug_bindings.  Don't
1221 +                    allocate anything and don't enter anything into the
1222 +                    hash table.  */
1223 +                 if (__builtin_expect (tab->size, 0))
1224 +                   {
1225 +                     assert (GLRO(dl_debug_mask) & DL_DEBUG_PRELINK);
1226 +                     __rtld_lock_unlock_recursive (tab->lock);
1227 +                     goto success;
1228 +                   }
1229 +#endif
1230 +
1231 +#define INITIAL_NUNIQUE_SYM_TABLE 31
1232 +                 size = INITIAL_NUNIQUE_SYM_TABLE;
1233 +                 entries = calloc (sizeof (struct unique_sym), size);
1234 +                 if (entries == NULL)
1235 +                   goto nomem;
1236 +
1237 +                 tab->entries = entries;
1238 +                 tab->size = size;
1239 +                 tab->free = free;
1240 +               }
1241 +
1242 +             enter (entries, size, new_hash, strtab + sym->st_name, sym,
1243 +                    (struct link_map *) map);
1244 +             ++tab->n_elements;
1245 +
1246 +             __rtld_lock_unlock_recursive (tab->lock);
1247 +
1248 +             goto success;
1249 +
1250 +           default:
1251 +             /* Local symbols are ignored.  */
1252 +             break;
1253 +           }
1254 +       }
1255 +
1256 +      /* If this current map is the one mentioned in the verneed entry
1257 +        and we have not found a weak entry, it is a bug.  */
1258 +      if (symidx == STN_UNDEF && version != NULL && version->filename != NULL
1259 +         && __builtin_expect (_dl_name_match_p (version->filename, map), 0))
1260 +       return -1;
1261 +    }
1262 +  while (++i < n);
1263 +
1264 +  /* We have not found anything until now.  */
1265 +  return 0;
1266 +}
1267 +
1268 +
1269 +static uint_fast32_t
1270 +dl_new_hash (const char *s)
1271 +{
1272 +  uint_fast32_t h = 5381;
1273 +  for (unsigned char c = *s; c != '\0'; c = *++s)
1274 +    h = h * 33 + c;
1275 +  return h & 0xffffffff;
1276 +}
1277 +
1278 +
1279 +/* Add extra dependency on MAP to UNDEF_MAP.  */
1280 +static int
1281 +internal_function
1282 +add_dependency (struct link_map *undef_map, struct link_map *map, int flags)
1283 +{
1284 +  struct link_map *runp;
1285 +  unsigned int i;
1286 +  int result = 0;
1287 +
1288 +  /* Avoid self-references and references to objects which cannot be
1289 +     unloaded anyway.  */
1290 +  if (undef_map == map)
1291 +    return 0;
1292 +
1293 +  /* Avoid references to objects which cannot be unloaded anyway.  */
1294 +  assert (map->l_type == lt_loaded);
1295 +  if ((map->l_flags_1 & DF_1_NODELETE) != 0)
1296 +    return 0;
1297 +
1298 +  struct link_map_reldeps *l_reldeps
1299 +    = atomic_forced_read (undef_map->l_reldeps);
1300 +
1301 +  /* Make sure l_reldeps is read before l_initfini.  */
1302 +  atomic_read_barrier ();
1303 +
1304 +  /* Determine whether UNDEF_MAP already has a reference to MAP.  First
1305 +     look in the normal dependencies.  */
1306 +  struct link_map **l_initfini = atomic_forced_read (undef_map->l_initfini);
1307 +  if (l_initfini != NULL)
1308 +    {
1309 +      for (i = 0; l_initfini[i] != NULL; ++i)
1310 +       if (l_initfini[i] == map)
1311 +         return 0;
1312 +    }
1313 +
1314 +  /* No normal dependency.  See whether we already had to add it
1315 +     to the special list of dynamic dependencies.  */
1316 +  unsigned int l_reldepsact = 0;
1317 +  if (l_reldeps != NULL)
1318 +    {
1319 +      struct link_map **list = &l_reldeps->list[0];
1320 +      l_reldepsact = l_reldeps->act;
1321 +      for (i = 0; i < l_reldepsact; ++i)
1322 +       if (list[i] == map)
1323 +         return 0;
1324 +    }
1325 +
1326 +  /* Save serial number of the target MAP.  */
1327 +  unsigned long long serial = map->l_serial;
1328 +
1329 +  /* Make sure nobody can unload the object while we are at it.  */
1330 +  if (__builtin_expect (flags & DL_LOOKUP_GSCOPE_LOCK, 0))
1331 +    {
1332 +      /* We can't just call __rtld_lock_lock_recursive (GL(dl_load_lock))
1333 +        here, that can result in ABBA deadlock.  */
1334 +      THREAD_GSCOPE_RESET_FLAG ();
1335 +      __rtld_lock_lock_recursive (GL(dl_load_lock));
1336 +      /* While MAP value won't change, after THREAD_GSCOPE_RESET_FLAG ()
1337 +        it can e.g. point to unallocated memory.  So avoid the optimizer
1338 +        treating the above read from MAP->l_serial as ensurance it
1339 +        can safely dereference it.  */
1340 +      map = atomic_forced_read (map);
1341 +
1342 +      /* From this point on it is unsafe to dereference MAP, until it
1343 +        has been found in one of the lists.  */
1344 +
1345 +      /* Redo the l_initfini check in case undef_map's l_initfini
1346 +        changed in the mean time.  */
1347 +      if (undef_map->l_initfini != l_initfini
1348 +         && undef_map->l_initfini != NULL)
1349 +       {
1350 +         l_initfini = undef_map->l_initfini;
1351 +         for (i = 0; l_initfini[i] != NULL; ++i)
1352 +           if (l_initfini[i] == map)
1353 +             goto out_check;
1354 +       }
1355 +
1356 +      /* Redo the l_reldeps check if undef_map's l_reldeps changed in
1357 +        the mean time.  */
1358 +      if (undef_map->l_reldeps != NULL)
1359 +       {
1360 +         if (undef_map->l_reldeps != l_reldeps)
1361 +           {
1362 +             struct link_map **list = &undef_map->l_reldeps->list[0];
1363 +             l_reldepsact = undef_map->l_reldeps->act;
1364 +             for (i = 0; i < l_reldepsact; ++i)
1365 +               if (list[i] == map)
1366 +                 goto out_check;
1367 +           }
1368 +         else if (undef_map->l_reldeps->act > l_reldepsact)
1369 +           {
1370 +             struct link_map **list
1371 +               = &undef_map->l_reldeps->list[0];
1372 +             i = l_reldepsact;
1373 +             l_reldepsact = undef_map->l_reldeps->act;
1374 +             for (; i < l_reldepsact; ++i)
1375 +               if (list[i] == map)
1376 +                 goto out_check;
1377 +           }
1378 +       }
1379 +    }
1380 +  else
1381 +    __rtld_lock_lock_recursive (GL(dl_load_lock));
1382 +
1383 +  /* The object is not yet in the dependency list.  Before we add
1384 +     it make sure just one more time the object we are about to
1385 +     reference is still available.  There is a brief period in
1386 +     which the object could have been removed since we found the
1387 +     definition.  */
1388 +  runp = GL(dl_ns)[undef_map->l_ns]._ns_loaded;
1389 +  while (runp != NULL && runp != map)
1390 +    runp = runp->l_next;
1391 +
1392 +  if (runp != NULL)
1393 +    {
1394 +      /* The object is still available.  */
1395 +
1396 +      /* MAP could have been dlclosed, freed and then some other dlopened
1397 +        library could have the same link_map pointer.  */
1398 +      if (map->l_serial != serial)
1399 +       goto out_check;
1400 +
1401 +      /* Redo the NODELETE check, as when dl_load_lock wasn't held
1402 +        yet this could have changed.  */
1403 +      if ((map->l_flags_1 & DF_1_NODELETE) != 0)
1404 +       goto out;
1405 +
1406 +      /* If the object with the undefined reference cannot be removed ever
1407 +        just make sure the same is true for the object which contains the
1408 +        definition.  */
1409 +      if (undef_map->l_type != lt_loaded
1410 +         || (undef_map->l_flags_1 & DF_1_NODELETE) != 0)
1411 +       {
1412 +         map->l_flags_1 |= DF_1_NODELETE;
1413 +         goto out;
1414 +       }
1415 +
1416 +      /* Add the reference now.  */
1417 +      if (__builtin_expect (l_reldepsact >= undef_map->l_reldepsmax, 0))
1418 +       {
1419 +         /* Allocate more memory for the dependency list.  Since this
1420 +            can never happen during the startup phase we can use
1421 +            `realloc'.  */
1422 +         struct link_map_reldeps *newp;
1423 +         unsigned int max
1424 +           = undef_map->l_reldepsmax ? undef_map->l_reldepsmax * 2 : 10;
1425 +
1426 +#ifdef RTLD_PREPARE_FOREIGN_CALL
1427 +         RTLD_PREPARE_FOREIGN_CALL;
1428 +#endif
1429 +
1430 +         newp = malloc (sizeof (*newp) + max * sizeof (struct link_map *));
1431 +         if (newp == NULL)
1432 +           {
1433 +             /* If we didn't manage to allocate memory for the list this is
1434 +                no fatal problem.  We simply make sure the referenced object
1435 +                cannot be unloaded.  This is semantically the correct
1436 +                behavior.  */
1437 +             map->l_flags_1 |= DF_1_NODELETE;
1438 +             goto out;
1439 +           }
1440 +         else
1441 +           {
1442 +             if (l_reldepsact)
1443 +               memcpy (&newp->list[0], &undef_map->l_reldeps->list[0],
1444 +                       l_reldepsact * sizeof (struct link_map *));
1445 +             newp->list[l_reldepsact] = map;
1446 +             newp->act = l_reldepsact + 1;
1447 +             atomic_write_barrier ();
1448 +             void *old = undef_map->l_reldeps;
1449 +             undef_map->l_reldeps = newp;
1450 +             undef_map->l_reldepsmax = max;
1451 +             if (old)
1452 +               _dl_scope_free (old);
1453 +           }
1454 +       }
1455 +      else
1456 +       {
1457 +         undef_map->l_reldeps->list[l_reldepsact] = map;
1458 +         atomic_write_barrier ();
1459 +         undef_map->l_reldeps->act = l_reldepsact + 1;
1460 +       }
1461 +
1462 +      /* Display information if we are debugging.  */
1463 +      if (__builtin_expect (GLRO(dl_debug_mask) & DL_DEBUG_FILES, 0))
1464 +       _dl_debug_printf ("\
1465 +\nfile=%s [%lu];  needed by %s [%lu] (relocation dependency)\n\n",
1466 +                         map->l_name[0] ? map->l_name : rtld_progname,
1467 +                         map->l_ns,
1468 +                         undef_map->l_name[0]
1469 +                         ? undef_map->l_name : rtld_progname,
1470 +                         undef_map->l_ns);
1471 +    }
1472 +  else
1473 +    /* Whoa, that was bad luck.  We have to search again.  */
1474 +    result = -1;
1475 +
1476 + out:
1477 +  /* Release the lock.  */
1478 +  __rtld_lock_unlock_recursive (GL(dl_load_lock));
1479 +
1480 +  if (__builtin_expect (flags & DL_LOOKUP_GSCOPE_LOCK, 0))
1481 +    THREAD_GSCOPE_SET_FLAG ();
1482 +
1483 +  return result;
1484 +
1485 + out_check:
1486 +  if (map->l_serial != serial)
1487 +    result = -1;
1488 +  goto out;
1489 +}
1490 +
1491 +static void
1492 +internal_function
1493 +_dl_debug_bindings (const char *undef_name, struct link_map *undef_map,
1494 +                   const ElfW(Sym) **ref, struct sym_val *value,
1495 +                   const struct r_found_version *version, int type_class,
1496 +                   int protected);
1497 +
1498 +
1499 +/* Search loaded objects' symbol tables for a definition of the symbol
1500 +   UNDEF_NAME, perhaps with a requested version for the symbol.
1501 +
1502 +   We must never have calls to the audit functions inside this function
1503 +   or in any function which gets called.  If this would happen the audit
1504 +   code might create a thread which can throw off all the scope locking.  */
1505 +lookup_t
1506 +internal_function
1507 +_dl_lookup_symbol_x (const char *undef_name, struct link_map *undef_map,
1508 +                    const ElfW(Sym) **ref,
1509 +                    struct r_scope_elem *symbol_scope[],
1510 +                    const struct r_found_version *version,
1511 +                    int type_class, int flags, struct link_map *skip_map)
1512 +{
1513 +  const uint_fast32_t new_hash = dl_new_hash (undef_name);
1514 +  unsigned long int old_hash = 0xffffffff;
1515 +  struct sym_val current_value = { NULL, NULL };
1516 +  struct r_scope_elem **scope = symbol_scope;
1517 +
1518 +  bump_num_relocations ();
1519 +
1520 +  /* No other flag than DL_LOOKUP_ADD_DEPENDENCY or DL_LOOKUP_GSCOPE_LOCK
1521 +     is allowed if we look up a versioned symbol.  */
1522 +  assert (version == NULL
1523 +         || (flags & ~(DL_LOOKUP_ADD_DEPENDENCY | DL_LOOKUP_GSCOPE_LOCK))
1524 +            == 0);
1525 +
1526 +  size_t i = 0;
1527 +  if (__builtin_expect (skip_map != NULL, 0))
1528 +    /* Search the relevant loaded objects for a definition.  */
1529 +    while ((*scope)->r_list[i] != skip_map)
1530 +      ++i;
1531 +
1532 +  /* Search the relevant loaded objects for a definition.  */
1533 +  for (size_t start = i; *scope != NULL; start = 0, ++scope)
1534 +    {
1535 +      int res = do_lookup_x (undef_name, new_hash, &old_hash, *ref,
1536 +                            &current_value, *scope, start, version, flags,
1537 +                            skip_map, type_class, undef_map);
1538 +      if (res > 0)
1539 +       break;
1540 +
1541 +      if (__builtin_expect (res, 0) < 0 && skip_map == NULL)
1542 +       {
1543 +         /* Oh, oh.  The file named in the relocation entry does not
1544 +            contain the needed symbol.  This code is never reached
1545 +            for unversioned lookups.  */
1546 +         assert (version != NULL);
1547 +         const char *reference_name = undef_map ? undef_map->l_name : NULL;
1548 +
1549 +         /* XXX We cannot translate the message.  */
1550 +         _dl_signal_cerror (0, (reference_name[0]
1551 +                                ? reference_name
1552 +                                : (rtld_progname ?: "<main program>")),
1553 +                            N_("relocation error"),
1554 +                            make_string ("symbol ", undef_name, ", version ",
1555 +                                         version->name,
1556 +                                         " not defined in file ",
1557 +                                         version->filename,
1558 +                                         " with link time reference",
1559 +                                         res == -2
1560 +                                         ? " (no version symbols)" : ""));
1561 +         *ref = NULL;
1562 +         return 0;
1563 +       }
1564 +    }
1565 +
1566 +  if (__builtin_expect (current_value.s == NULL, 0))
1567 +    {
1568 +      if ((*ref == NULL || ELFW(ST_BIND) ((*ref)->st_info) != STB_WEAK)
1569 +         && skip_map == NULL)
1570 +       {
1571 +         /* We could find no value for a strong reference.  */
1572 +         const char *reference_name = undef_map ? undef_map->l_name : "";
1573 +         const char *versionstr = version ? ", version " : "";
1574 +         const char *versionname = (version && version->name
1575 +                                    ? version->name : "");
1576 +
1577 +         /* XXX We cannot translate the message.  */
1578 +         _dl_signal_cerror (0, (reference_name[0]
1579 +                                ? reference_name
1580 +                                : (rtld_progname ?: "<main program>")),
1581 +                            N_("symbol lookup error"),
1582 +                            make_string (undefined_msg, undef_name,
1583 +                                         versionstr, versionname));
1584 +       }
1585 +      *ref = NULL;
1586 +      return 0;
1587 +    }
1588 +
1589 +  int protected = (*ref
1590 +                  && ELFW(ST_VISIBILITY) ((*ref)->st_other) == STV_PROTECTED);
1591 +  if (__builtin_expect (protected != 0, 0))
1592 +    {
1593 +      /* It is very tricky.  We need to figure out what value to
1594 +        return for the protected symbol.  */
1595 +      if (type_class == ELF_RTYPE_CLASS_PLT)
1596 +       {
1597 +         if (current_value.s != NULL && current_value.m != undef_map)
1598 +           {
1599 +             current_value.s = *ref;
1600 +             current_value.m = undef_map;
1601 +           }
1602 +       }
1603 +      else
1604 +       {
1605 +         struct sym_val protected_value = { NULL, NULL };
1606 +
1607 +         for (scope = symbol_scope; *scope != NULL; i = 0, ++scope)
1608 +           if (do_lookup_x (undef_name, new_hash, &old_hash, *ref,
1609 +                            &protected_value, *scope, i, version, flags,
1610 +                            skip_map, ELF_RTYPE_CLASS_PLT, NULL) != 0)
1611 +             break;
1612 +
1613 +         if (protected_value.s != NULL && protected_value.m != undef_map)
1614 +           {
1615 +             current_value.s = *ref;
1616 +             current_value.m = undef_map;
1617 +           }
1618 +       }
1619 +    }
1620 +
1621 +  /* We have to check whether this would bind UNDEF_MAP to an object
1622 +     in the global scope which was dynamically loaded.  In this case
1623 +     we have to prevent the latter from being unloaded unless the
1624 +     UNDEF_MAP object is also unloaded.  */
1625 +  if (__builtin_expect (current_value.m->l_type == lt_loaded, 0)
1626 +      /* Don't do this for explicit lookups as opposed to implicit
1627 +        runtime lookups.  */
1628 +      && (flags & DL_LOOKUP_ADD_DEPENDENCY) != 0
1629 +      /* Add UNDEF_MAP to the dependencies.  */
1630 +      && add_dependency (undef_map, current_value.m, flags) < 0)
1631 +      /* Something went wrong.  Perhaps the object we tried to reference
1632 +        was just removed.  Try finding another definition.  */
1633 +      return _dl_lookup_symbol_x (undef_name, undef_map, ref,
1634 +                                 (flags & DL_LOOKUP_GSCOPE_LOCK)
1635 +                                 ? undef_map->l_scope : symbol_scope,
1636 +                                 version, type_class, flags, skip_map);
1637 +
1638 +  /* The object is used.  */
1639 +  if (__builtin_expect (current_value.m->l_used == 0, 0))
1640 +    current_value.m->l_used = 1;
1641 +
1642 +  if (__builtin_expect (GLRO(dl_debug_mask)
1643 +                       & (DL_DEBUG_BINDINGS|DL_DEBUG_PRELINK), 0))
1644 +    _dl_debug_bindings (undef_name, undef_map, ref,
1645 +                       &current_value, version, type_class, protected);
1646 +
1647 +  *ref = current_value.s;
1648 +  return LOOKUP_VALUE (current_value.m);
1649 +}
1650 +
1651 +
1652 +/* Cache the location of MAP's hash table.  */
1653 +
1654 +void
1655 +internal_function
1656 +_dl_setup_hash (struct link_map *map)
1657 +{
1658 +  Elf_Symndx *hash;
1659 +  Elf_Symndx nchain;
1660 +
1661 +  if (__builtin_expect (map->l_info[DT_ADDRTAGIDX (DT_GNU_HASH) + DT_NUM
1662 +                                   + DT_THISPROCNUM + DT_VERSIONTAGNUM
1663 +                                   + DT_EXTRANUM + DT_VALNUM] != NULL, 1))
1664 +    {
1665 +      Elf32_Word *hash32
1666 +       = (void *) D_PTR (map, l_info[DT_ADDRTAGIDX (DT_GNU_HASH) + DT_NUM
1667 +                                     + DT_THISPROCNUM + DT_VERSIONTAGNUM
1668 +                                     + DT_EXTRANUM + DT_VALNUM]);
1669 +      map->l_nbuckets = *hash32++;
1670 +      Elf32_Word symbias = *hash32++;
1671 +      Elf32_Word bitmask_nwords = *hash32++;
1672 +      /* Must be a power of two.  */
1673 +      assert ((bitmask_nwords & (bitmask_nwords - 1)) == 0);
1674 +      map->l_gnu_bitmask_idxbits = bitmask_nwords - 1;
1675 +      map->l_gnu_shift = *hash32++;
1676 +
1677 +      map->l_gnu_bitmask = (ElfW(Addr) *) hash32;
1678 +      hash32 += __ELF_NATIVE_CLASS / 32 * bitmask_nwords;
1679 +
1680 +      map->l_gnu_buckets = hash32;
1681 +      hash32 += map->l_nbuckets;
1682 +      map->l_gnu_chain_zero = hash32 - symbias;
1683 +      return;
1684 +    }
1685 +
1686 +  if (!map->l_info[DT_HASH])
1687 +    return;
1688 +  hash = (void *) D_PTR (map, l_info[DT_HASH]);
1689 +
1690 +  map->l_nbuckets = *hash++;
1691 +  nchain = *hash++;
1692 +  map->l_buckets = hash;
1693 +  hash += map->l_nbuckets;
1694 +  map->l_chain = hash;
1695 +}
1696 +
1697 +
1698 +static void
1699 +internal_function
1700 +_dl_debug_bindings (const char *undef_name, struct link_map *undef_map,
1701 +                   const ElfW(Sym) **ref, struct sym_val *value,
1702 +                   const struct r_found_version *version, int type_class,
1703 +                   int protected)
1704 +{
1705 +  const char *reference_name = undef_map->l_name;
1706 +
1707 +  if (GLRO(dl_debug_mask) & DL_DEBUG_BINDINGS)
1708 +    {
1709 +      _dl_debug_printf ("binding file %s [%lu] to %s [%lu]: %s symbol `%s'",
1710 +                       (reference_name[0]
1711 +                        ? reference_name
1712 +                        : (rtld_progname ?: "<main program>")),
1713 +                       undef_map->l_ns,
1714 +                       value->m->l_name[0] ? value->m->l_name : rtld_progname,
1715 +                       value->m->l_ns,
1716 +                       protected ? "protected" : "normal", undef_name);
1717 +      if (version)
1718 +       _dl_debug_printf_c (" [%s]\n", version->name);
1719 +      else
1720 +       _dl_debug_printf_c ("\n");
1721 +    }
1722 +#ifdef SHARED
1723 +  if (GLRO(dl_debug_mask) & DL_DEBUG_PRELINK)
1724 +    {
1725 +      int conflict = 0;
1726 +      struct sym_val val = { NULL, NULL };
1727 +
1728 +      if ((GLRO(dl_trace_prelink_map) == NULL
1729 +          || GLRO(dl_trace_prelink_map) == GL(dl_ns)[LM_ID_BASE]._ns_loaded)
1730 +         && undef_map != GL(dl_ns)[LM_ID_BASE]._ns_loaded)
1731 +       {
1732 +         const uint_fast32_t new_hash = dl_new_hash (undef_name);
1733 +         unsigned long int old_hash = 0xffffffff;
1734 +         struct unique_sym *saved_entries
1735 +           = GL(dl_ns)[LM_ID_BASE]._ns_unique_sym_table.entries;
1736 +
1737 +         GL(dl_ns)[LM_ID_BASE]._ns_unique_sym_table.entries = NULL;
1738 +         do_lookup_x (undef_name, new_hash, &old_hash, *ref, &val,
1739 +                      undef_map->l_local_scope[0], 0, version, 0, NULL,
1740 +                      type_class, undef_map);
1741 +         if (val.s != value->s || val.m != value->m)
1742 +           conflict = 1;
1743 +         else if (__builtin_expect (undef_map->l_symbolic_in_local_scope, 0)
1744 +                  && val.s
1745 +                  && __builtin_expect (ELFW(ST_BIND) (val.s->st_info),
1746 +                                       STB_GLOBAL) == STB_GNU_UNIQUE)
1747 +           {
1748 +             /* If it is STB_GNU_UNIQUE and undef_map's l_local_scope
1749 +                contains any DT_SYMBOLIC libraries, unfortunately there
1750 +                can be conflicts even if the above is equal.  As symbol
1751 +                resolution goes from the last library to the first and
1752 +                if a STB_GNU_UNIQUE symbol is found in some late DT_SYMBOLIC
1753 +                library, it would be the one that is looked up.  */
1754 +             struct sym_val val2 = { NULL, NULL };
1755 +             size_t n;
1756 +             struct r_scope_elem *scope = undef_map->l_local_scope[0];
1757 +
1758 +             for (n = 0; n < scope->r_nlist; n++)
1759 +               if (scope->r_list[n] == val.m)
1760 +                 break;
1761 +
1762 +             for (n++; n < scope->r_nlist; n++)
1763 +               if (scope->r_list[n]->l_info[DT_SYMBOLIC] != NULL
1764 +                   && do_lookup_x (undef_name, new_hash, &old_hash, *ref,
1765 +                                   &val2,
1766 +                                   &scope->r_list[n]->l_symbolic_searchlist,
1767 +                                   0, version, 0, NULL, type_class,
1768 +                                   undef_map) > 0)
1769 +                 {
1770 +                   conflict = 1;
1771 +                   val = val2;
1772 +                   break;
1773 +                 }
1774 +           }
1775 +         GL(dl_ns)[LM_ID_BASE]._ns_unique_sym_table.entries = saved_entries;
1776 +       }
1777 +
1778 +      if (value->s)
1779 +       {
1780 +         if (__builtin_expect (ELFW(ST_TYPE) (value->s->st_info)
1781 +                               == STT_TLS, 0))
1782 +           type_class = 4;
1783 +         else if (__builtin_expect (ELFW(ST_TYPE) (value->s->st_info)
1784 +                                    == STT_GNU_IFUNC, 0))
1785 +           type_class |= 8;
1786 +       }
1787 +
1788 +      if (conflict
1789 +         || GLRO(dl_trace_prelink_map) == undef_map
1790 +         || GLRO(dl_trace_prelink_map) == NULL
1791 +         || type_class >= 4)
1792 +       {
1793 +         _dl_printf ("%s 0x%0*Zx 0x%0*Zx -> 0x%0*Zx 0x%0*Zx ",
1794 +                     conflict ? "conflict" : "lookup",
1795 +                     (int) sizeof (ElfW(Addr)) * 2,
1796 +                     (size_t) undef_map->l_map_start,
1797 +                     (int) sizeof (ElfW(Addr)) * 2,
1798 +                     (size_t) (((ElfW(Addr)) *ref) - undef_map->l_map_start),
1799 +                     (int) sizeof (ElfW(Addr)) * 2,
1800 +                     (size_t) (value->s ? value->m->l_map_start : 0),
1801 +                     (int) sizeof (ElfW(Addr)) * 2,
1802 +                     (size_t) (value->s ? value->s->st_value : 0));
1803 +
1804 +         if (conflict)
1805 +           _dl_printf ("x 0x%0*Zx 0x%0*Zx ",
1806 +                       (int) sizeof (ElfW(Addr)) * 2,
1807 +                       (size_t) (val.s ? val.m->l_map_start : 0),
1808 +                       (int) sizeof (ElfW(Addr)) * 2,
1809 +                       (size_t) (val.s ? val.s->st_value : 0));
1810 +
1811 +         _dl_printf ("/%x %s\n", type_class, undef_name);
1812 +       }
1813 +    }
1814 +#endif
1815 +}
1816 diff --git a/glibc-2.14.1/sysdeps/riscv/dl-machine.h b/glibc-2.14.1/sysdeps/riscv/dl-machine.h
1817 new file mode 100644
1818 index 0000000..e442496
1819 --- /dev/null
1820 +++ glibc-2.14.1/sysdeps/riscv/dl-machine.h
1821 @@ -0,0 +1,733 @@
1822 +/* Machine-dependent ELF dynamic relocation inline functions.  MIPS version.
1823 +   Copyright (C) 1996-2001, 2002, 2003, 2004, 2005, 2006, 2007
1824 +   Free Software Foundation, Inc.
1825 +   This file is part of the GNU C Library.
1826 +   Contributed by Kazumoto Kojima <kkojima@info.kanagawa-u.ac.jp>.
1827 +
1828 +   The GNU C Library is free software; you can redistribute it and/or
1829 +   modify it under the terms of the GNU Lesser General Public
1830 +   License as published by the Free Software Foundation; either
1831 +   version 2.1 of the License, or (at your option) any later version.
1832 +
1833 +   The GNU C Library is distributed in the hope that it will be useful,
1834 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
1835 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
1836 +   Lesser General Public License for more details.
1837 +
1838 +   You should have received a copy of the GNU Lesser General Public
1839 +   License along with the GNU C Library; if not, write to the Free
1840 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
1841 +   02111-1307 USA.  */
1842 +
1843 +/*  FIXME: Profiling of shared libraries is not implemented yet.  */
1844 +#ifndef dl_machine_h
1845 +#define dl_machine_h
1846 +
1847 +#define ELF_MACHINE_NAME "RISC-V"
1848 +
1849 +#include <entry.h>
1850 +
1851 +#ifndef ENTRY_POINT
1852 +#error ENTRY_POINT needs to be defined for MIPS.
1853 +#endif
1854 +
1855 +#include <sys/asm.h>
1856 +#include <dl-tls.h>
1857 +
1858 +#ifndef _RTLD_PROLOGUE
1859 +# define _RTLD_PROLOGUE(entry)                                         \
1860 +       ".globl\t" __STRING(entry) "\n\t"                               \
1861 +       ".type\t" __STRING(entry) ", @function\n"                       \
1862 +       __STRING(entry) ":\n\t"
1863 +#endif
1864 +
1865 +#ifndef _RTLD_EPILOGUE
1866 +# define _RTLD_EPILOGUE(entry)                                         \
1867 +       ".size\t" __STRING(entry) ", . - " __STRING(entry) "\n\t"
1868 +#endif
1869 +
1870 +/* A reloc type used for ld.so cmdline arg lookups to reject PLT entries.
1871 +   This only makes sense on MIPS when using PLTs, so choose the
1872 +   PLT relocation (not encountered when not using PLTs).  */
1873 +#define ELF_MACHINE_JMP_SLOT                   R_MIPS_JUMP_SLOT
1874 +#define elf_machine_type_class(type) \
1875 +  ((((type) == ELF_MACHINE_JMP_SLOT) * ELF_RTYPE_CLASS_PLT)    \
1876 +   | (((type) == R_MIPS_COPY) * ELF_RTYPE_CLASS_COPY))
1877 +
1878 +#define ELF_MACHINE_PLT_REL 1
1879 +
1880 +/* Translate a processor specific dynamic tag to the index
1881 +   in l_info array.  */
1882 +#define DT_MIPS(x) (DT_MIPS_##x - DT_LOPROC + DT_NUM)
1883 +
1884 +/* If there is a DT_MIPS_RLD_MAP entry in the dynamic section, fill it in
1885 +   with the run-time address of the r_debug structure  */
1886 +#define ELF_MACHINE_DEBUG_SETUP(l,r) \
1887 +do { if ((l)->l_info[DT_MIPS (RLD_MAP)]) \
1888 +       *(ElfW(Addr) *)((l)->l_info[DT_MIPS (RLD_MAP)]->d_un.d_ptr) = \
1889 +       (ElfW(Addr)) (r); \
1890 +   } while (0)
1891 +
1892 +/* Return nonzero iff ELF header is compatible with the running host.  */
1893 +static inline int __attribute_used__
1894 +elf_machine_matches_host (const ElfW(Ehdr) *ehdr)
1895 +{
1896 +  return 1;
1897 +}
1898 +
1899 +static inline ElfW(Addr) *
1900 +elf_mips_got_from_gpreg (ElfW(Addr) gpreg)
1901 +{
1902 +  return (ElfW(Addr) *) gpreg;
1903 +}
1904 +
1905 +/* Return the link-time address of _DYNAMIC.  Conveniently, this is the
1906 +   first element of the GOT.  This must be inlined in a function which
1907 +   uses global data.  */
1908 +static inline ElfW(Addr)
1909 +elf_machine_dynamic (void)
1910 +{
1911 +  ElfW(Addr) tmp, gp;
1912 +  asm ("   rdnpc %0\n"
1913 +       "1: lui   %1, %%hi(%%neg(%%gp_rel(1b)))\n"
1914 +       "   add   %1, %1, %0\n"
1915 +       "   addi  %1, %1, %%lo(%%neg(%%gp_rel(1b)))\n"
1916 +       : "=r"(tmp), "=r"(gp));
1917 +
1918 +  return *elf_mips_got_from_gpreg (gp);
1919 +}
1920 +
1921 +#define STRINGXP(X) __STRING(X)
1922 +#define STRINGXV(X) STRINGV_(X)
1923 +#define STRINGV_(...) # __VA_ARGS__
1924 +
1925 +/* Return the run-time load address of the shared object.  */
1926 +static inline ElfW(Addr)
1927 +elf_machine_load_address (void)
1928 +{
1929 +  ElfW(Addr) load, link, tmp;
1930 +  asm ("   rdnpc %0\n"
1931 +       "1: lui   %1, %%hi(%%neg(%%gp_rel(1b)))\n"
1932 +       "   add   %1, %1, %0\n"
1933 +       "   addi  %1, %1, %%lo(%%neg(%%gp_rel(1b)))\n"
1934 +       "   lui   %2, %%got_hi(1b)\n"
1935 +       "   add   %2, %2, %1\n"
1936 +       STRINGXP(REG_L) " %1, %%got_lo(1b)(%2)"
1937 +       : "=r"(load), "=r"(link), "=r"(tmp));
1938 +
1939 +  return load - link;
1940 +}
1941 +
1942 +/* The MSB of got[1] of a gnu object is set to identify gnu objects.  */
1943 +#ifdef __riscv64
1944 +# define ELF_MIPS_GNU_GOT1_MASK        0x8000000000000000L
1945 +#else
1946 +# define ELF_MIPS_GNU_GOT1_MASK        0x80000000L
1947 +#endif
1948 +
1949 +/* We can't rely on elf_machine_got_rel because _dl_object_relocation_scope
1950 +   fiddles with global data.  */
1951 +#define ELF_MACHINE_BEFORE_RTLD_RELOC(dynamic_info)                    \
1952 +do {                                                                   \
1953 +  struct link_map *map = &bootstrap_map;                               \
1954 +  ElfW(Sym) *sym;                                                      \
1955 +  ElfW(Addr) *got;                                                     \
1956 +  int i, n;                                                            \
1957 +                                                                       \
1958 +  got = (ElfW(Addr) *) D_PTR (map, l_info[DT_PLTGOT]);                 \
1959 +                                                                       \
1960 +  if (__builtin_expect (map->l_addr == 0, 1))                          \
1961 +    break;                                                             \
1962 +                                                                       \
1963 +  /* got[0] is reserved. got[1] is also reserved for the dynamic object        \
1964 +     generated by gnu ld. Skip these reserved entries from             \
1965 +     relocation.  */                                                   \
1966 +  i = (got[1] & ELF_MIPS_GNU_GOT1_MASK)? 2 : 1;                                \
1967 +  n = map->l_info[DT_MIPS (LOCAL_GOTNO)]->d_un.d_val;                  \
1968 +                                                                       \
1969 +  /* Add the run-time displacement to all local got entries. */                \
1970 +  while (i < n)                                                                \
1971 +    got[i++] += map->l_addr;                                           \
1972 +                                                                       \
1973 +  /* Handle global got entries. */                                     \
1974 +  got += n;                                                            \
1975 +  sym = (ElfW(Sym) *) D_PTR(map, l_info[DT_SYMTAB])                    \
1976 +       + map->l_info[DT_MIPS (GOTSYM)]->d_un.d_val;                    \
1977 +  i = (map->l_info[DT_MIPS (SYMTABNO)]->d_un.d_val                     \
1978 +       - map->l_info[DT_MIPS (GOTSYM)]->d_un.d_val);                   \
1979 +                                                                       \
1980 +  while (i--)                                                          \
1981 +    {                                                                  \
1982 +      if (sym->st_shndx == SHN_UNDEF || sym->st_shndx == SHN_COMMON)   \
1983 +       *got = map->l_addr + sym->st_value;                             \
1984 +      else if (ELFW(ST_TYPE) (sym->st_info) == STT_FUNC                        \
1985 +              && *got != sym->st_value)                                \
1986 +       *got += map->l_addr;                                            \
1987 +      else if (ELFW(ST_TYPE) (sym->st_info) == STT_SECTION)            \
1988 +       {                                                               \
1989 +         if (sym->st_other == 0)                                       \
1990 +           *got += map->l_addr;                                        \
1991 +       }                                                               \
1992 +      else                                                             \
1993 +       *got = map->l_addr + sym->st_value;                             \
1994 +                                                                       \
1995 +      got++;                                                           \
1996 +      sym++;                                                           \
1997 +    }                                                                  \
1998 +} while(0)
1999 +
2000 +
2001 +/* Mask identifying addresses reserved for the user program,
2002 +   where the dynamic linker should not map anything.  */
2003 +#define ELF_MACHINE_USER_ADDRESS_MASK  0x80000000UL
2004 +
2005 +
2006 +/* Initial entry point code for the dynamic linker.
2007 +   The C function `_dl_start' is the real entry point;
2008 +   its return value is the user program's entry point. */
2009 +
2010 +#define RTLD_START asm (\
2011 +       ".text\n\
2012 +       " _RTLD_PROLOGUE(ENTRY_POINT) "\
2013 +       " STRINGXV(SETUP_GPX64(gp, t7)) "\n\
2014 +       # i386 ABI book says that the first entry of GOT holds\n\
2015 +       # the address of the dynamic structure. Though MIPS ABI\n\
2016 +       # doesn't say nothing about this, I emulate this here.\n\
2017 +       " STRINGXV(PIC_LA(a0, gp, _DYNAMIC)) "\n\
2018 +       " STRINGXP(REG_S) " a0, 0(gp)\n\
2019 +       move a0, sp\n\
2020 +       rdnpc t0\n\
2021 +.Lcoff: \n\
2022 +       " STRINGXV(PIC_LA(t1, gp, .Lcoff)) "\n\
2023 +       " STRINGXV(PIC_LA(t7, gp, _dl_start)) "\n\
2024 +       sub  t0, t0, t1\n\
2025 +       add  t7, t7, t0\n\
2026 +       jalr t7\n\
2027 +       # Fall through to _dl_start_user \
2028 +       " _RTLD_EPILOGUE(ENTRY_POINT) "\
2029 +       \n\
2030 +       \n\
2031 +       " _RTLD_PROLOGUE(_dl_start_user) "\
2032 +       " STRINGXV(SETUP_GPX64(gp, t7)) "\n\
2033 +       # Save the user entry point address in a saved register.\n\
2034 +       move s0, v0\n\
2035 +       # See if we were run as a command with the executable file\n\
2036 +       # name as an extra leading argument.\n\
2037 +       " STRINGXV(PIC_LA(v0, gp, _dl_skip_args)) "\n\
2038 +       lw v0, 0(v0)\n\
2039 +       beqz v0, 1f\n\
2040 +       # Load the original argument count.\n\
2041 +       " STRINGXP(REG_L) " a0, 0(sp)\n\
2042 +       # Subtract _dl_skip_args from it.\n\
2043 +       sub a0, a0, v0\n\
2044 +       # Adjust the stack pointer to skip _dl_skip_args words.\n\
2045 +       sll v0, v0, " STRINGXP (PTRLOG) "\n\
2046 +       add sp, sp, v0\n\
2047 +       # Save back the modified argument count.\n\
2048 +       " STRINGXP(REG_S) " a0, 0(sp)\n\
2049 +1:     # Call _dl_init (struct link_map *main_map, int argc, char **argv, char **env) \n\
2050 +       " STRINGXV(PIC_LA(a0, gp, _rtld_local)) "\n\
2051 +       " STRINGXP(REG_L) " a0, 0(a0)\n\
2052 +       " STRINGXP(REG_L) " a1, 0(sp)\n\
2053 +       add a2, sp, " STRINGXP (PTRSIZE) "\n\
2054 +       sll a3, a1, " STRINGXP (PTRLOG) "\n\
2055 +       add a3, a3, a2\n\
2056 +       add a3, a3, " STRINGXP (PTRSIZE) "\n\
2057 +       # Make sure the stack pointer is aligned for _dl_init_internal.\n\
2058 +       and v0, sp, -2 * " STRINGXP(SZREG) "\n\
2059 +       move s3, sp\n\
2060 +       add sp, v0, -32\n\
2061 +       # Call the function to run the initializers.\n\
2062 +       " STRINGXV(PIC_LA(t7, gp, _dl_init_internal)) "\n\
2063 +       jalr t7\n\
2064 +       # Restore the stack pointer for _start.\n\
2065 +       move sp, s3\n\
2066 +       # Pass our finalizer function to the user in v0 as per ELF ABI.\n\
2067 +       " STRINGXV(PIC_LA(v0, gp, _dl_fini)) "\n\
2068 +       # Jump to the user entry point.\n\
2069 +       move t7, s0\n\
2070 +       jr t7\n\t"\
2071 +       _RTLD_EPILOGUE(_dl_start_user)\
2072 +       ".previous"\
2073 +);
2074 +
2075 +/* Names of the architecture-specific auditing callback functions.  */
2076 +# ifdef __riscv64
2077 +#  define ARCH_LA_PLTENTER mips_n64_gnu_pltenter
2078 +#  define ARCH_LA_PLTEXIT mips_n64_gnu_pltexit
2079 +# else
2080 +#  define ARCH_LA_PLTENTER mips_n32_gnu_pltenter
2081 +#  define ARCH_LA_PLTEXIT mips_n32_gnu_pltexit
2082 +# endif
2083 +
2084 +/* For a non-writable PLT, rewrite the .got.plt entry at RELOC_ADDR to
2085 +   point at the symbol with address VALUE.  For a writable PLT, rewrite
2086 +   the corresponding PLT entry instead.  */
2087 +static inline ElfW(Addr)
2088 +elf_machine_fixup_plt (struct link_map *map, lookup_t t,
2089 +                      const ElfW(Rel) *reloc,
2090 +                      ElfW(Addr) *reloc_addr, ElfW(Addr) value)
2091 +{
2092 +  return *reloc_addr = value;
2093 +}
2094 +
2095 +static inline ElfW(Addr)
2096 +elf_machine_plt_value (struct link_map *map, const ElfW(Rel) *reloc,
2097 +                      ElfW(Addr) value)
2098 +{
2099 +  return value;
2100 +}
2101 +
2102 +#endif /* !dl_machine_h */
2103 +
2104 +#ifdef RESOLVE_MAP
2105 +
2106 +/* Perform a relocation described by R_INFO at the location pointed to
2107 +   by RELOC_ADDR.  SYM is the relocation symbol specified by R_INFO and
2108 +   MAP is the object containing the reloc.  */
2109 +
2110 +auto inline void
2111 +__attribute__ ((always_inline))
2112 +elf_machine_reloc (struct link_map *map, ElfW(Addr) r_info,
2113 +                  const ElfW(Sym) *sym, const struct r_found_version *version,
2114 +                  void *reloc_addr, ElfW(Addr) r_addend, int inplace_p)
2115 +{
2116 +  const unsigned long int r_type = ELFW(R_TYPE) (r_info);
2117 +  ElfW(Addr) *addr_field = (ElfW(Addr) *) reloc_addr;
2118 +
2119 +#if !defined RTLD_BOOTSTRAP && !defined SHARED
2120 +  /* This is defined in rtld.c, but nowhere in the static libc.a;
2121 +     make the reference weak so static programs can still link.  This
2122 +     declaration cannot be done when compiling rtld.c (i.e.  #ifdef
2123 +     RTLD_BOOTSTRAP) because rtld.c contains the common defn for
2124 +     _dl_rtld_map, which is incompatible with a weak decl in the same
2125 +     file.  */
2126 +  weak_extern (GL(dl_rtld_map));
2127 +#endif
2128 +
2129 +  switch (r_type)
2130 +    {
2131 +#if defined (USE_TLS) && !defined (RTLD_BOOTSTRAP)
2132 +# if _RISCV_SIM == _ABI64
2133 +    case R_MIPS_TLS_DTPMOD64:
2134 +    case R_MIPS_TLS_DTPREL64:
2135 +    case R_MIPS_TLS_TPREL64:
2136 +# else
2137 +    case R_MIPS_TLS_DTPMOD32:
2138 +    case R_MIPS_TLS_DTPREL32:
2139 +    case R_MIPS_TLS_TPREL32:
2140 +# endif
2141 +      {
2142 +       struct link_map *sym_map = RESOLVE_MAP (&sym, version, r_type);
2143 +
2144 +       switch (r_type)
2145 +         {
2146 +         case R_MIPS_TLS_DTPMOD64:
2147 +         case R_MIPS_TLS_DTPMOD32:
2148 +           if (sym_map)
2149 +             *addr_field = sym_map->l_tls_modid;
2150 +           break;
2151 +
2152 +         case R_MIPS_TLS_DTPREL64:
2153 +         case R_MIPS_TLS_DTPREL32:
2154 +           if (sym)
2155 +             {
2156 +               if (inplace_p)
2157 +                 r_addend = *addr_field;
2158 +               *addr_field = r_addend + TLS_DTPREL_VALUE (sym);
2159 +             }
2160 +           break;
2161 +
2162 +         case R_MIPS_TLS_TPREL32:
2163 +         case R_MIPS_TLS_TPREL64:
2164 +           if (sym)
2165 +             {
2166 +               CHECK_STATIC_TLS (map, sym_map);
2167 +               if (inplace_p)
2168 +                 r_addend = *addr_field;
2169 +               *addr_field = r_addend + TLS_TPREL_VALUE (sym_map, sym);
2170 +             }
2171 +           break;
2172 +         }
2173 +
2174 +       break;
2175 +      }
2176 +#endif
2177 +
2178 +#if _RISCV_SIM == _ABI64
2179 +    case (R_MIPS_64 << 8) | R_MIPS_REL32:
2180 +#else
2181 +    case R_MIPS_REL32:
2182 +#endif
2183 +      {
2184 +       int symidx = ELFW(R_SYM) (r_info);
2185 +       ElfW(Addr) reloc_value;
2186 +
2187 +       if (inplace_p)
2188 +         /* Support relocations on mis-aligned offsets.  */
2189 +         __builtin_memcpy (&reloc_value, reloc_addr, sizeof (reloc_value));
2190 +       else
2191 +         reloc_value = r_addend;
2192 +
2193 +       if (symidx)
2194 +         {
2195 +           const ElfW(Word) gotsym
2196 +             = (const ElfW(Word)) map->l_info[DT_MIPS (GOTSYM)]->d_un.d_val;
2197 +
2198 +           if ((ElfW(Word))symidx < gotsym)
2199 +             {
2200 +               /* This wouldn't work for a symbol imported from other
2201 +                  libraries for which there's no GOT entry, but MIPS
2202 +                  requires every symbol referenced in a dynamic
2203 +                  relocation to have a GOT entry in the primary GOT,
2204 +                  so we only get here for locally-defined symbols.
2205 +                  For section symbols, we should *NOT* be adding
2206 +                  sym->st_value (per the definition of the meaning of
2207 +                  S in reloc expressions in the ELF64 MIPS ABI),
2208 +                  since it should have already been added to
2209 +                  reloc_value by the linker, but older versions of
2210 +                  GNU ld didn't add it, and newer versions don't emit
2211 +                  useless relocations to section symbols any more, so
2212 +                  it is safe to keep on adding sym->st_value, even
2213 +                  though it's not ABI compliant.  Some day we should
2214 +                  bite the bullet and stop doing this.  */
2215 +#ifndef RTLD_BOOTSTRAP
2216 +               if (map != &GL(dl_rtld_map))
2217 +#endif
2218 +                 reloc_value += sym->st_value + map->l_addr;
2219 +             }
2220 +           else
2221 +             {
2222 +#ifndef RTLD_BOOTSTRAP
2223 +               const ElfW(Addr) *got
2224 +                 = (const ElfW(Addr) *) D_PTR (map, l_info[DT_PLTGOT]);
2225 +               const ElfW(Word) local_gotno
2226 +                 = (const ElfW(Word))
2227 +                   map->l_info[DT_MIPS (LOCAL_GOTNO)]->d_un.d_val;
2228 +
2229 +               reloc_value += got[symidx + local_gotno - gotsym];
2230 +#endif
2231 +             }
2232 +         }
2233 +       else
2234 +#ifndef RTLD_BOOTSTRAP
2235 +         if (map != &GL(dl_rtld_map))
2236 +#endif
2237 +           reloc_value += map->l_addr;
2238 +
2239 +       __builtin_memcpy (reloc_addr, &reloc_value, sizeof (reloc_value));
2240 +      }
2241 +      break;
2242 +#ifndef RTLD_BOOTSTRAP
2243 +#if _RISCV_SIM == _ABI64
2244 +    case (R_MIPS_64 << 8) | R_MIPS_GLOB_DAT:
2245 +#else
2246 +    case R_MIPS_GLOB_DAT:
2247 +#endif
2248 +      {
2249 +       int symidx = ELFW(R_SYM) (r_info);
2250 +       const ElfW(Word) gotsym
2251 +         = (const ElfW(Word)) map->l_info[DT_MIPS (GOTSYM)]->d_un.d_val;
2252 +
2253 +       if (__builtin_expect ((ElfW(Word)) symidx >= gotsym, 1))
2254 +         {
2255 +           const ElfW(Addr) *got
2256 +             = (const ElfW(Addr) *) D_PTR (map, l_info[DT_PLTGOT]);
2257 +           const ElfW(Word) local_gotno
2258 +             = ((const ElfW(Word))
2259 +                map->l_info[DT_MIPS (LOCAL_GOTNO)]->d_un.d_val);
2260 +
2261 +           ElfW(Addr) reloc_value = got[symidx + local_gotno - gotsym];
2262 +           __builtin_memcpy (reloc_addr, &reloc_value, sizeof (reloc_value));
2263 +         }
2264 +      }
2265 +      break;
2266 +#endif
2267 +    case R_MIPS_NONE:          /* Alright, Wilbur.  */
2268 +      break;
2269 +
2270 +    case R_MIPS_JUMP_SLOT:
2271 +      {
2272 +       struct link_map *sym_map;
2273 +       ElfW(Addr) value;
2274 +
2275 +       /* The addend for a jump slot relocation must always be zero:
2276 +          calls via the PLT always branch to the symbol's address and
2277 +          not to the address plus a non-zero offset.  */
2278 +       if (r_addend != 0)
2279 +         _dl_signal_error (0, map->l_name, NULL,
2280 +                           "found jump slot relocation with non-zero addend");
2281 +
2282 +       sym_map = RESOLVE_MAP (&sym, version, r_type);
2283 +       value = sym_map == NULL ? 0 : sym_map->l_addr + sym->st_value;
2284 +       *addr_field = value;
2285 +
2286 +       break;
2287 +      }
2288 +
2289 +    case R_MIPS_COPY:
2290 +      {
2291 +       const ElfW(Sym) *const refsym = sym;
2292 +       struct link_map *sym_map;
2293 +       ElfW(Addr) value;
2294 +
2295 +       /* Calculate the address of the symbol.  */
2296 +       sym_map = RESOLVE_MAP (&sym, version, r_type);
2297 +       value = sym_map == NULL ? 0 : sym_map->l_addr + sym->st_value;
2298 +
2299 +       if (__builtin_expect (sym == NULL, 0))
2300 +         /* This can happen in trace mode if an object could not be
2301 +            found.  */
2302 +         break;
2303 +       if (__builtin_expect (sym->st_size > refsym->st_size, 0)
2304 +           || (__builtin_expect (sym->st_size < refsym->st_size, 0)
2305 +               && GLRO(dl_verbose)))
2306 +         {
2307 +           const char *strtab;
2308 +
2309 +           strtab = (const void *) D_PTR (map, l_info[DT_STRTAB]);
2310 +           _dl_error_printf ("\
2311 +  %s: Symbol `%s' has different size in shared object, consider re-linking\n",
2312 +                             rtld_progname ?: "<program name unknown>",
2313 +                             strtab + refsym->st_name);
2314 +         }
2315 +       memcpy (reloc_addr, (void *) value,
2316 +               MIN (sym->st_size, refsym->st_size));
2317 +       break;
2318 +      }
2319 +
2320 +#if _RISCV_SIM == _ABI64
2321 +    case R_MIPS_64:
2322 +      /* For full compliance with the ELF64 ABI, one must precede the
2323 +        _REL32/_64 pair of relocations with a _64 relocation, such
2324 +        that the in-place addend is read as a 64-bit value.  IRIX
2325 +        didn't pick up on this requirement, so we treat the
2326 +        _REL32/_64 relocation as a 64-bit relocation even if it's by
2327 +        itself.  For ABI compliance, we ignore such _64 dummy
2328 +        relocations.  For RELA, this may be simply removed, since
2329 +        it's totally unnecessary.  */
2330 +      if (ELFW(R_SYM) (r_info) == 0)
2331 +       break;
2332 +      /* Fall through.  */
2333 +#endif
2334 +    default:
2335 +      _dl_reloc_bad_type (map, r_type, 0);
2336 +      break;
2337 +    }
2338 +}
2339 +
2340 +/* Perform the relocation specified by RELOC and SYM (which is fully resolved).
2341 +   MAP is the object containing the reloc.  */
2342 +
2343 +auto inline void
2344 +__attribute__ ((always_inline))
2345 +elf_machine_rel (struct link_map *map, const ElfW(Rel) *reloc,
2346 +                const ElfW(Sym) *sym, const struct r_found_version *version,
2347 +                void *const reloc_addr)
2348 +{
2349 +  elf_machine_reloc (map, reloc->r_info, sym, version, reloc_addr, 0, 1);
2350 +}
2351 +
2352 +auto inline void
2353 +__attribute__((always_inline))
2354 +elf_machine_rel_relative (ElfW(Addr) l_addr, const ElfW(Rel) *reloc,
2355 +                         void *const reloc_addr)
2356 +{
2357 +  /* XXX Nothing to do.  There is no relative relocation, right?  */
2358 +}
2359 +
2360 +auto inline void
2361 +__attribute__((always_inline))
2362 +elf_machine_lazy_rel (struct link_map *map,
2363 +                     ElfW(Addr) l_addr, const ElfW(Rel) *reloc)
2364 +{
2365 +  ElfW(Addr) *const reloc_addr = (void *) (l_addr + reloc->r_offset);
2366 +  const unsigned int r_type = ELFW(R_TYPE) (reloc->r_info);
2367 +  /* Check for unexpected PLT reloc type.  */
2368 +  if (__builtin_expect (r_type == R_MIPS_JUMP_SLOT, 1))
2369 +    {
2370 +      if (__builtin_expect (map->l_mach.plt, 0) == 0)
2371 +       {
2372 +         /* Nothing is required here since we only support lazy
2373 +            relocation in executables.  */
2374 +       }
2375 +      else
2376 +       *reloc_addr = map->l_mach.plt;
2377 +    }
2378 +  else
2379 +    _dl_reloc_bad_type (map, r_type, 1);
2380 +}
2381 +
2382 +auto inline void
2383 +__attribute__ ((always_inline))
2384 +elf_machine_rela (struct link_map *map, const ElfW(Rela) *reloc,
2385 +                 const ElfW(Sym) *sym, const struct r_found_version *version,
2386 +                void *const reloc_addr)
2387 +{
2388 +  elf_machine_reloc (map, reloc->r_info, sym, version, reloc_addr,
2389 +                    reloc->r_addend, 0);
2390 +}
2391 +
2392 +auto inline void
2393 +__attribute__((always_inline))
2394 +elf_machine_rela_relative (ElfW(Addr) l_addr, const ElfW(Rela) *reloc,
2395 +                          void *const reloc_addr)
2396 +{
2397 +}
2398 +
2399 +#ifndef RTLD_BOOTSTRAP
2400 +/* Relocate GOT. */
2401 +auto inline void
2402 +__attribute__((always_inline))
2403 +elf_machine_got_rel (struct link_map *map, int lazy)
2404 +{
2405 +  ElfW(Addr) *got;
2406 +  ElfW(Sym) *sym;
2407 +  const ElfW(Half) *vernum;
2408 +  int i, n, symidx;
2409 +
2410 +#define RESOLVE_GOTSYM(sym,vernum,sym_index,reloc)                       \
2411 +    ({                                                                   \
2412 +      const ElfW(Sym) *ref = sym;                                        \
2413 +      const struct r_found_version *version                              \
2414 +        = vernum ? &map->l_versions[vernum[sym_index] & 0x7fff] : NULL;          \
2415 +      struct link_map *sym_map;                                                  \
2416 +      sym_map = RESOLVE_MAP (&ref, version, reloc);                      \
2417 +      ref ? sym_map->l_addr + ref->st_value : 0;                         \
2418 +    })
2419 +
2420 +  if (map->l_info[VERSYMIDX (DT_VERSYM)] != NULL)
2421 +    vernum = (const void *) D_PTR (map, l_info[VERSYMIDX (DT_VERSYM)]);
2422 +  else
2423 +    vernum = NULL;
2424 +
2425 +  got = (ElfW(Addr) *) D_PTR (map, l_info[DT_PLTGOT]);
2426 +
2427 +  n = map->l_info[DT_MIPS (LOCAL_GOTNO)]->d_un.d_val;
2428 +  /* The dynamic linker's local got entries have already been relocated.  */
2429 +  if (map != &GL(dl_rtld_map))
2430 +    {
2431 +      /* got[0] is reserved. got[1] is also reserved for the dynamic object
2432 +        generated by gnu ld. Skip these reserved entries from relocation.  */
2433 +      i = (got[1] & ELF_MIPS_GNU_GOT1_MASK)? 2 : 1;
2434 +
2435 +      /* Add the run-time displacement to all local got entries if
2436 +         needed.  */
2437 +      if (__builtin_expect (map->l_addr != 0, 0))
2438 +       {
2439 +         while (i < n)
2440 +           got[i++] += map->l_addr;
2441 +       }
2442 +    }
2443 +
2444 +  /* Handle global got entries. */
2445 +  got += n;
2446 +  /* Keep track of the symbol index.  */
2447 +  symidx = map->l_info[DT_MIPS (GOTSYM)]->d_un.d_val;
2448 +  sym = (ElfW(Sym) *) D_PTR (map, l_info[DT_SYMTAB]) + symidx;
2449 +  i = (map->l_info[DT_MIPS (SYMTABNO)]->d_un.d_val
2450 +       - map->l_info[DT_MIPS (GOTSYM)]->d_un.d_val);
2451 +
2452 +  /* This loop doesn't handle Quickstart.  */
2453 +  while (i--)
2454 +    {
2455 +      if (sym->st_shndx == SHN_UNDEF)
2456 +       {
2457 +         if (ELFW(ST_TYPE) (sym->st_info) == STT_FUNC && sym->st_value
2458 +             && !(sym->st_other & STO_MIPS_PLT))
2459 +           {
2460 +             if (lazy)
2461 +               *got = sym->st_value + map->l_addr;
2462 +             else
2463 +               /* This is a lazy-binding stub, so we don't need the
2464 +                  canonical address.  */
2465 +               *got = RESOLVE_GOTSYM (sym, vernum, symidx, R_MIPS_JUMP_SLOT);
2466 +           }
2467 +         else
2468 +           *got = RESOLVE_GOTSYM (sym, vernum, symidx, R_MIPS_32);
2469 +       }
2470 +      else if (sym->st_shndx == SHN_COMMON)
2471 +       *got = RESOLVE_GOTSYM (sym, vernum, symidx, R_MIPS_32);
2472 +      else if (ELFW(ST_TYPE) (sym->st_info) == STT_FUNC
2473 +              && *got != sym->st_value)
2474 +       {
2475 +         if (lazy)
2476 +           *got += map->l_addr;
2477 +         else
2478 +           /* This is a lazy-binding stub, so we don't need the
2479 +              canonical address.  */
2480 +           *got = RESOLVE_GOTSYM (sym, vernum, symidx, R_MIPS_JUMP_SLOT);
2481 +       }
2482 +      else if (ELFW(ST_TYPE) (sym->st_info) == STT_SECTION)
2483 +       {
2484 +         if (sym->st_other == 0)
2485 +           *got += map->l_addr;
2486 +       }
2487 +      else
2488 +       *got = RESOLVE_GOTSYM (sym, vernum, symidx, R_MIPS_32);
2489 +
2490 +      ++got;
2491 +      ++sym;
2492 +      ++symidx;
2493 +    }
2494 +
2495 +#undef RESOLVE_GOTSYM
2496 +}
2497 +#endif
2498 +
2499 +/* Set up the loaded object described by L so its stub function
2500 +   will jump to the on-demand fixup code __dl_runtime_resolve.  */
2501 +
2502 +auto inline int
2503 +__attribute__((always_inline))
2504 +elf_machine_runtime_setup (struct link_map *l, int lazy, int profile)
2505 +{
2506 +# ifndef RTLD_BOOTSTRAP
2507 +  ElfW(Addr) *got;
2508 +  extern void _dl_runtime_resolve (ElfW(Word));
2509 +  extern void _dl_runtime_pltresolve (void);
2510 +  extern int _dl_mips_gnu_objects;
2511 +
2512 +  if (lazy)
2513 +    {
2514 +      /* The GOT entries for functions have not yet been filled in.
2515 +        Their initial contents will arrange when called to put an
2516 +        offset into the .dynsym section in t8, the return address
2517 +        in t7 and then jump to _GLOBAL_OFFSET_TABLE[0].  */
2518 +      got = (ElfW(Addr) *) D_PTR (l, l_info[DT_PLTGOT]);
2519 +
2520 +      /* This function will get called to fix up the GOT entry indicated by
2521 +        the register t8, and then jump to the resolved address.  */
2522 +      got[0] = (ElfW(Addr)) &_dl_runtime_resolve;
2523 +
2524 +      /* Store l to _GLOBAL_OFFSET_TABLE[1] for gnu object. The MSB
2525 +        of got[1] of a gnu object is set to identify gnu objects.
2526 +        Where we can store l for non gnu objects? XXX  */
2527 +      if ((got[1] & ELF_MIPS_GNU_GOT1_MASK) != 0)
2528 +       got[1] = ((ElfW(Addr)) l | ELF_MIPS_GNU_GOT1_MASK);
2529 +      else
2530 +       _dl_mips_gnu_objects = 0;
2531 +    }
2532 +
2533 +  /* Relocate global offset table.  */
2534 +  elf_machine_got_rel (l, lazy);
2535 +
2536 +  /* If using PLTs, fill in the first two entries of .got.plt.  */
2537 +  if (l->l_info[DT_JMPREL] && lazy)
2538 +    {
2539 +      ElfW(Addr) *gotplt;
2540 +      gotplt = (ElfW(Addr) *) D_PTR (l, l_info[DT_MIPS (PLTGOT)]);
2541 +      /* If a library is prelinked but we have to relocate anyway,
2542 +        we have to be able to undo the prelinking of .got.plt.
2543 +        The prelinker saved the address of .plt for us here.  */
2544 +      if (gotplt[1])
2545 +       l->l_mach.plt = gotplt[1] + l->l_addr;
2546 +      gotplt[0] = (ElfW(Addr)) &_dl_runtime_pltresolve;
2547 +      gotplt[1] = (ElfW(Addr)) l;
2548 +    }
2549 +
2550 +# endif
2551 +  return lazy;
2552 +}
2553 +
2554 +#endif /* RESOLVE_MAP */
2555 diff --git a/glibc-2.14.1/sysdeps/riscv/dl-tls.h b/glibc-2.14.1/sysdeps/riscv/dl-tls.h
2556 new file mode 100644
2557 index 0000000..69d3893
2558 --- /dev/null
2559 +++ glibc-2.14.1/sysdeps/riscv/dl-tls.h
2560 @@ -0,0 +1,49 @@
2561 +/* Thread-local storage handling in the ELF dynamic linker.  MIPS version.
2562 +   Copyright (C) 2005 Free Software Foundation, Inc.
2563 +   This file is part of the GNU C Library.
2564 +
2565 +   The GNU C Library is free software; you can redistribute it and/or
2566 +   modify it under the terms of the GNU Lesser General Public
2567 +   License as published by the Free Software Foundation; either
2568 +   version 2.1 of the License, or (at your option) any later version.
2569 +
2570 +   The GNU C Library is distributed in the hope that it will be useful,
2571 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
2572 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
2573 +   Lesser General Public License for more details.
2574 +
2575 +   You should have received a copy of the GNU Lesser General Public
2576 +   License along with the GNU C Library; if not, write to the Free
2577 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
2578 +   02111-1307 USA.  */
2579 +
2580 +
2581 +/* Type used for the representation of TLS information in the GOT.  */
2582 +typedef struct
2583 +{
2584 +  unsigned long int ti_module;
2585 +  unsigned long int ti_offset;
2586 +} tls_index;
2587 +
2588 +/* The thread pointer points 0x7000 past the first static TLS block.  */
2589 +#define TLS_TP_OFFSET          0x7000
2590 +
2591 +/* Dynamic thread vector pointers point 0x8000 past the start of each
2592 +   TLS block.  */
2593 +#define TLS_DTV_OFFSET         0x8000
2594 +
2595 +/* Compute the value for a GOTTPREL reloc.  */
2596 +#define TLS_TPREL_VALUE(sym_map, sym) \
2597 +  ((sym_map)->l_tls_offset + (sym)->st_value - TLS_TP_OFFSET)
2598 +
2599 +/* Compute the value for a DTPREL reloc.  */
2600 +#define TLS_DTPREL_VALUE(sym) \
2601 +  ((sym)->st_value - TLS_DTV_OFFSET)
2602 +
2603 +extern void *__tls_get_addr (tls_index *ti);
2604 +
2605 +# define GET_ADDR_OFFSET       (ti->ti_offset + TLS_DTV_OFFSET)
2606 +# define __TLS_GET_ADDR(__ti)  (__tls_get_addr (__ti) - TLS_DTV_OFFSET)
2607 +
2608 +/* Value used for dtv entries for which the allocation is delayed.  */
2609 +#define TLS_DTV_UNALLOCATED    ((void *) -1l)
2610 diff --git a/glibc-2.14.1/sysdeps/riscv/dl-trampoline.c b/glibc-2.14.1/sysdeps/riscv/dl-trampoline.c
2611 new file mode 100644
2612 index 0000000..136a116
2613 --- /dev/null
2614 +++ glibc-2.14.1/sysdeps/riscv/dl-trampoline.c
2615 @@ -0,0 +1,289 @@
2616 +/* PLT trampoline.  MIPS version.
2617 +   Copyright (C) 1996-2001, 2002, 2003, 2004, 2005
2618 +   Free Software Foundation, Inc.
2619 +   This file is part of the GNU C Library.
2620 +   Contributed by Kazumoto Kojima <kkojima@info.kanagawa-u.ac.jp>.
2621 +
2622 +   The GNU C Library is free software; you can redistribute it and/or
2623 +   modify it under the terms of the GNU Lesser General Public
2624 +   License as published by the Free Software Foundation; either
2625 +   version 2.1 of the License, or (at your option) any later version.
2626 +
2627 +   The GNU C Library is distributed in the hope that it will be useful,
2628 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
2629 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
2630 +   Lesser General Public License for more details.
2631 +
2632 +   You should have received a copy of the GNU Lesser General Public
2633 +   License along with the GNU C Library; if not, write to the Free
2634 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
2635 +   02111-1307 USA.  */
2636 +
2637 +/*  FIXME: Profiling of shared libraries is not implemented yet.  */
2638 +
2639 +#include <sysdep.h>
2640 +#include <link.h>
2641 +#include <elf.h>
2642 +#include <ldsodefs.h>
2643 +#include <dl-machine.h>
2644 +
2645 +/* Get link map for callers object containing STUB_PC.  */
2646 +static inline struct link_map *
2647 +elf_machine_runtime_link_map (ElfW(Addr) gpreg, ElfW(Addr) stub_pc)
2648 +{
2649 +  extern int _dl_mips_gnu_objects;
2650 +
2651 +  /* got[1] is reserved to keep its link map address for the shared
2652 +     object generated by the gnu linker.  If all are such objects, we
2653 +     can find the link map from current GPREG simply.  If not so, get
2654 +     the link map for caller's object containing STUB_PC.  */
2655 +
2656 +  if (_dl_mips_gnu_objects)
2657 +    {
2658 +      ElfW(Addr) *got = elf_mips_got_from_gpreg (gpreg);
2659 +      ElfW(Word) g1;
2660 +
2661 +      g1 = ((ElfW(Word) *) got)[1];
2662 +
2663 +      if ((g1 & ELF_MIPS_GNU_GOT1_MASK) != 0)
2664 +       {
2665 +         struct link_map *l =
2666 +           (struct link_map *) (g1 & ~ELF_MIPS_GNU_GOT1_MASK);
2667 +         ElfW(Addr) base, limit;
2668 +         const ElfW(Phdr) *p = l->l_phdr;
2669 +         ElfW(Half) this, nent = l->l_phnum;
2670 +
2671 +         /* For the common case of a stub being called from the containing
2672 +            object, STUB_PC will point to somewhere within the object that
2673 +            is described by the link map fetched via got[1].  Otherwise we
2674 +            have to scan all maps.  */
2675 +         for (this = 0; this < nent; this++)
2676 +           {
2677 +             if (p[this].p_type == PT_LOAD)
2678 +               {
2679 +                 base = p[this].p_vaddr + l->l_addr;
2680 +                 limit = base + p[this].p_memsz;
2681 +                 if (stub_pc >= base && stub_pc < limit)
2682 +                   return l;
2683 +               }
2684 +           }
2685 +       }
2686 +    }
2687 +
2688 +    struct link_map *l;
2689 +    Lmid_t nsid;
2690 +
2691 +    for (nsid = 0; nsid < DL_NNS; ++nsid)
2692 +      for (l = GL(dl_ns)[nsid]._ns_loaded; l != NULL; l = l->l_next)
2693 +       {
2694 +         ElfW(Addr) base, limit;
2695 +         const ElfW(Phdr) *p = l->l_phdr;
2696 +         ElfW(Half) this, nent = l->l_phnum;
2697 +
2698 +         for (this = 0; this < nent; ++this)
2699 +           {
2700 +             if (p[this].p_type == PT_LOAD)
2701 +               {
2702 +                 base = p[this].p_vaddr + l->l_addr;
2703 +                 limit = base + p[this].p_memsz;
2704 +                 if (stub_pc >= base && stub_pc < limit)
2705 +                   return l;
2706 +               }
2707 +           }
2708 +       }
2709 +
2710 +  _dl_signal_error (0, NULL, NULL, "cannot find runtime link map");
2711 +  return NULL;
2712 +}
2713 +
2714 +/* Define mips specific runtime resolver. The function __dl_runtime_resolve
2715 +   is called from assembler function _dl_runtime_resolve which converts
2716 +   special argument registers t5 (x17) and t6 (x18):
2717 +     t5  address to return to the caller of the function
2718 +     t6  index for this function symbol in .dynsym
2719 +   to usual c arguments.
2720 +
2721 +   Other architectures call fixup from dl-runtime.c in
2722 +   _dl_runtime_resolve.  MIPS instead calls __dl_runtime_resolve.  We
2723 +   have to use our own version because of the way the got section is
2724 +   treated on MIPS (we've also got ELF_MACHINE_PLT defined).  */
2725 +
2726 +/* The flag _dl_mips_gnu_objects is set if all dynamic objects are
2727 +   generated by the gnu linker. */
2728 +int _dl_mips_gnu_objects = 1;
2729 +
2730 +#define VERSYMIDX(sym)  (DT_NUM + DT_THISPROCNUM + DT_VERSIONTAGIDX (sym))
2731 +
2732 +/* This is called from assembly stubs below which the compiler can't see.  */
2733 +static ElfW(Addr)
2734 +__dl_runtime_resolve (ElfW(Word), ElfW(Word), ElfW(Addr), ElfW(Addr))
2735 +                 __attribute_used__;
2736 +
2737 +static ElfW(Addr)
2738 +__dl_runtime_resolve (ElfW(Word) sym_index,
2739 +                     ElfW(Word) return_address,
2740 +                     ElfW(Addr) old_gpreg,
2741 +                     ElfW(Addr) stub_pc)
2742 +{
2743 +  struct link_map *l = elf_machine_runtime_link_map (old_gpreg, stub_pc);
2744 +  const ElfW(Sym) *const symtab
2745 +    = (const ElfW(Sym) *) D_PTR (l, l_info[DT_SYMTAB]);
2746 +  const char *strtab = (const void *) D_PTR (l, l_info[DT_STRTAB]);
2747 +  ElfW(Addr) *got
2748 +    = (ElfW(Addr) *) D_PTR (l, l_info[DT_PLTGOT]);
2749 +  const ElfW(Word) local_gotno
2750 +    = (const ElfW(Word)) l->l_info[DT_MIPS (LOCAL_GOTNO)]->d_un.d_val;
2751 +  const ElfW(Word) gotsym
2752 +    = (const ElfW(Word)) l->l_info[DT_MIPS (GOTSYM)]->d_un.d_val;
2753 +  const ElfW(Sym) *sym = &symtab[sym_index];
2754 +  struct link_map *sym_map;
2755 +  ElfW(Addr) value;
2756 +
2757 +  /* FIXME: The symbol versioning stuff is not tested yet.  */
2758 +  if (__builtin_expect (ELFW(ST_VISIBILITY) (sym->st_other), 0) == 0)
2759 +    {
2760 +      switch (l->l_info[VERSYMIDX (DT_VERSYM)] != NULL)
2761 +       {
2762 +       default:
2763 +         {
2764 +           const ElfW(Half) *vernum =
2765 +             (const void *) D_PTR (l, l_info[VERSYMIDX (DT_VERSYM)]);
2766 +           ElfW(Half) ndx = vernum[sym_index] & 0x7fff;
2767 +           const struct r_found_version *version = &l->l_versions[ndx];
2768 +
2769 +           if (version->hash != 0)
2770 +             {
2771 +               sym_map = _dl_lookup_symbol_x (strtab + sym->st_name, l,
2772 +                                              &sym, l->l_scope, version,
2773 +                                              ELF_RTYPE_CLASS_PLT, 0, 0);
2774 +               break;
2775 +             }
2776 +           /* Fall through.  */
2777 +         }
2778 +       case 0:
2779 +         sym_map = _dl_lookup_symbol_x (strtab + sym->st_name, l, &sym,
2780 +                                        l->l_scope, 0, ELF_RTYPE_CLASS_PLT,
2781 +                                        DL_LOOKUP_ADD_DEPENDENCY, 0);
2782 +       }
2783 +
2784 +      /* Currently value contains the base load address of the object
2785 +        that defines sym.  Now add in the symbol offset.  */
2786 +      value = (sym ? sym_map->l_addr + sym->st_value : 0);
2787 +    }
2788 +  else
2789 +    /* We already found the symbol.  The module (and therefore its load
2790 +       address) is also known.  */
2791 +    value = l->l_addr + sym->st_value;
2792 +
2793 +  /* Apply the relocation with that value.  */
2794 +  *(got + local_gotno + sym_index - gotsym) = value;
2795 +
2796 +  return value;
2797 +}
2798 +
2799 +#define ELF_DL_FRAME_SIZE (10*SZREG)
2800 +
2801 +#define ELF_DL_SAVE_ARG_REGS "\
2802 +       " STRINGXP(REG_S) " t5, 9*" STRINGXP(SZREG) "(sp)\n                                                   \
2803 +       " STRINGXP(REG_S) " a0, 1*" STRINGXP(SZREG) "(sp)\n                                                   \
2804 +       " STRINGXP(REG_S) " a1, 2*" STRINGXP(SZREG) "(sp)\n                                                   \
2805 +       " STRINGXP(REG_S) " a2, 3*" STRINGXP(SZREG) "(sp)\n                                                   \
2806 +       " STRINGXP(REG_S) " a3, 4*" STRINGXP(SZREG) "(sp)\n                                                   \
2807 +       " STRINGXP(REG_S) " a4, 5*" STRINGXP(SZREG) "(sp)\n                                                   \
2808 +       " STRINGXP(REG_S) " a5, 6*" STRINGXP(SZREG) "(sp)\n                                                   \
2809 +       " STRINGXP(REG_S) " a6, 7*" STRINGXP(SZREG) "(sp)\n                                                   \
2810 +       " STRINGXP(REG_S) " a7, 8*" STRINGXP(SZREG) "(sp)\n                                                   \
2811 +"
2812 +
2813 +#define ELF_DL_RESTORE_ARG_REGS "\
2814 +       " STRINGXP(REG_L) " ra, 9*" STRINGXP(SZREG) "(sp)\n                                                   \
2815 +       " STRINGXP(REG_L) " a0, 1*" STRINGXP(SZREG) "(sp)\n                                                   \
2816 +       " STRINGXP(REG_L) " a1, 2*" STRINGXP(SZREG) "(sp)\n                                                   \
2817 +       " STRINGXP(REG_L) " a2, 3*" STRINGXP(SZREG) "(sp)\n                                                   \
2818 +       " STRINGXP(REG_L) " a3, 4*" STRINGXP(SZREG) "(sp)\n                                                   \
2819 +       " STRINGXP(REG_L) " a4, 5*" STRINGXP(SZREG) "(sp)\n                                                   \
2820 +       " STRINGXP(REG_L) " a5, 6*" STRINGXP(SZREG) "(sp)\n                                                   \
2821 +       " STRINGXP(REG_L) " a6, 7*" STRINGXP(SZREG) "(sp)\n                                                   \
2822 +       " STRINGXP(REG_L) " a7, 8*" STRINGXP(SZREG) "(sp)\n                                                   \
2823 +"
2824 +
2825 +/* The PLT resolver should also save and restore $2 and $3, which are used
2826 +   as arguments to MIPS16 stub functions.  */
2827 +#define ELF_DL_PLT_FRAME_SIZE (12*SZREG)
2828 +
2829 +#define ELF_DL_PLT_SAVE_ARG_REGS \
2830 +       ELF_DL_SAVE_ARG_REGS "\
2831 +       " STRINGXP(REG_S) " v0, 10*" STRINGXP(SZREG) "(sp)\n                                                  \
2832 +       " STRINGXP(REG_S) " v1, 11*" STRINGXP(SZREG) "(sp)\n                                                  \
2833 +"
2834 +
2835 +#define ELF_DL_PLT_RESTORE_ARG_REGS \
2836 +       ELF_DL_RESTORE_ARG_REGS "\
2837 +       " STRINGXP(REG_L) " v0, 10*" STRINGXP(SZREG) "(sp)\n                                                  \
2838 +       " STRINGXP(REG_L) " v1, 11*" STRINGXP(SZREG) "(sp)\n                                                  \
2839 +"
2840 +
2841 +asm ("\n\
2842 +       .text\n\
2843 +       .align  2\n\
2844 +       .globl  _dl_runtime_resolve\n\
2845 +       .type   _dl_runtime_resolve,@function\n\
2846 +_dl_runtime_resolve:\n\
2847 +       " STRINGXV(SETUP_GP64(t4, _dl_runtime_resolve)) "\n\
2848 +       # Save arguments and sp value in stack.\n\
2849 +       addi  sp, sp, " STRINGXP(-ELF_DL_FRAME_SIZE) "\n\
2850 +       # Save slot call pc.\n\
2851 +       move    v0, ra\n\
2852 +       " ELF_DL_SAVE_ARG_REGS "\
2853 +       move    a0, t6\n\
2854 +       move    a1, t5\n\
2855 +       move    a2, v1\n\
2856 +       move    a3, v0\n\
2857 +       " STRINGXV(PIC_JAL(t4, __dl_runtime_resolve)) "\n\
2858 +       " ELF_DL_RESTORE_ARG_REGS "\
2859 +       move    t7, v0\n\
2860 +       addi    sp, sp, " STRINGXP(ELF_DL_FRAME_SIZE) "\n\
2861 +       jr      t7\n\
2862 +       .previous\n\
2863 +");
2864 +
2865 +/* Assembler veneer called from the PLT header code when using PLTs.
2866 +
2867 +   Code in each PLT entry and the PLT header fills in the arguments to
2868 +   this function:
2869 +
2870 +   - x17 (t5) - caller's return address
2871 +   - x18 (t6) - PLT entry index
2872 +   - x19 (t7) - address of _dl_runtime_pltresolve
2873 +   - x14 (t2) - address of .got.plt
2874 +
2875 +   Different registers are used for .got.plt because the ABI was
2876 +   originally designed for o32, where gp was available (call
2877 +   clobbered).  On n32/n64 gp is call saved.
2878 +
2879 +   _dl_fixup needs:
2880 +
2881 +   - x4 (a0) - link map address
2882 +   - x5 (a1) - .rel.plt offset (== PLT entry index * 8)  */
2883 +
2884 +asm ("\n\
2885 +       .text\n\
2886 +       .align  2\n\
2887 +       .globl  _dl_runtime_pltresolve\n\
2888 +       .type   _dl_runtime_pltresolve,@function\n\
2889 +_dl_runtime_pltresolve:\n\
2890 +       " STRINGXV(SETUP_GP64(t4, _dl_runtime_pltresolve)) "\n\
2891 +       # Save arguments and sp value in stack.\n\
2892 +1:     addi    sp, sp, " STRINGXP(-ELF_DL_PLT_FRAME_SIZE) "\n\
2893 +       " STRINGXP(REG_L) "     t1, " STRINGXP(PTRSIZE) "(t2)" "\n\
2894 +       " ELF_DL_PLT_SAVE_ARG_REGS "\
2895 +       move    a0, t1\n\
2896 +       sll     a1, t6, " STRINGXP(PTRLOG) " + 1\n\
2897 +       " STRINGXV(PIC_JAL(t4, _dl_fixup)) "\n\
2898 +       move    t7, v0\n\
2899 +       " ELF_DL_PLT_RESTORE_ARG_REGS "\
2900 +       addi    sp, sp, " STRINGXP(ELF_DL_PLT_FRAME_SIZE) "\n\
2901 +       jr      t7\n\
2902 +       .previous\n\
2903 +");
2904 +
2905 diff --git a/glibc-2.14.1/sysdeps/riscv/elf/configure b/glibc-2.14.1/sysdeps/riscv/elf/configure
2906 new file mode 100644
2907 index 0000000..196f24f
2908 --- /dev/null
2909 +++ glibc-2.14.1/sysdeps/riscv/elf/configure
2910 @@ -0,0 +1,46 @@
2911 +# This file is generated from configure.in by Autoconf.  DO NOT EDIT!
2912 + # Local configure fragment for sysdeps/mips/elf.
2913 +
2914 +if test "$usetls" != no; then
2915 +# Check for support of thread-local storage handling in assembler and
2916 +# linker.
2917 +echo "$as_me:$LINENO: checking for MIPS TLS support" >&5
2918 +echo $ECHO_N "checking for MIPS TLS support... $ECHO_C" >&6
2919 +if test "${libc_cv_mips_tls+set}" = set; then
2920 +  echo $ECHO_N "(cached) $ECHO_C" >&6
2921 +else
2922 +  cat > conftest.s <<\EOF
2923 +       .section ".tdata", "awT", %progbits
2924 +       .globl foo
2925 +foo:   .long   1
2926 +       .section ".tbss", "awT", %nobits
2927 +       .globl bar
2928 +bar:   .skip   4
2929 +       .text
2930 +
2931 +       lw      t7, %call16(__tls_get_addr)(gp)
2932 +       add     a0, gp, %tlsgd(x) 
2933 +       jalr    t7
2934 +EOF
2935 +if { ac_try='${CC-cc} -c $CFLAGS conftest.s 1>&5'
2936 +  { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
2937 +  (eval $ac_try) 2>&5
2938 +  ac_status=$?
2939 +  echo "$as_me:$LINENO: \$? = $ac_status" >&5
2940 +  (exit $ac_status); }; }; then
2941 +  libc_cv_mips_tls=yes
2942 +else
2943 +  libc_cv_mips_tls=no
2944 +fi
2945 +rm -f conftest*
2946 +fi
2947 +echo "$as_me:$LINENO: result: $libc_cv_mips_tls" >&5
2948 +echo "${ECHO_T}$libc_cv_mips_tls" >&6
2949 +if test $libc_cv_mips_tls = yes; then
2950 +  cat >>confdefs.h <<\_ACEOF
2951 +#define HAVE_TLS_SUPPORT 1
2952 +_ACEOF
2953 +
2954 +fi
2955 +fi
2956 +
2957 diff --git a/glibc-2.14.1/sysdeps/riscv/elf/configure.in b/glibc-2.14.1/sysdeps/riscv/elf/configure.in
2958 new file mode 100644
2959 index 0000000..8af2fa0
2960 --- /dev/null
2961 +++ glibc-2.14.1/sysdeps/riscv/elf/configure.in
2962 @@ -0,0 +1,35 @@
2963 +GLIBC_PROVIDES dnl See aclocal.m4 in the top level source directory.
2964 +# Local configure fragment for sysdeps/mips/elf.
2965 +
2966 +if test "$usetls" != no; then
2967 +# Check for support of thread-local storage handling in assembler and
2968 +# linker.
2969 +AC_CACHE_CHECK(for MIPS TLS support, libc_cv_mips_tls, [dnl
2970 +cat > conftest.s <<\EOF
2971 +       .section ".tdata", "awT", %progbits
2972 +       .globl foo
2973 +foo:   .long   1
2974 +       .section ".tbss", "awT", %nobits
2975 +       .globl bar
2976 +bar:   .skip   4
2977 +       .text
2978 +
2979 +       lw      t7, %call16(__tls_get_addr)(gp)
2980 +       add     a0, gp, %tlsgd(x) 
2981 +       jalr    t7
2982 +EOF
2983 +dnl
2984 +if AC_TRY_COMMAND(${CC-cc} -c $CFLAGS conftest.s 1>&AS_MESSAGE_LOG_FD); then
2985 +  libc_cv_mips_tls=yes
2986 +else
2987 +  libc_cv_mips_tls=no
2988 +fi
2989 +rm -f conftest*])
2990 +if test $libc_cv_mips_tls = yes; then
2991 +  AC_DEFINE(HAVE_TLS_SUPPORT)
2992 +fi
2993 +fi
2994 +
2995 +dnl No MIPS GCC supports accessing static and hidden symbols in an
2996 +dnl position independent way.
2997 +dnl AC_DEFINE(PI_STATIC_AND_HIDDEN)
2998 diff --git a/glibc-2.14.1/sysdeps/riscv/elf/start.S b/glibc-2.14.1/sysdeps/riscv/elf/start.S
2999 new file mode 100644
3000 index 0000000..d0ed80c
3001 --- /dev/null
3002 +++ glibc-2.14.1/sysdeps/riscv/elf/start.S
3003 @@ -0,0 +1,105 @@
3004 +/* Startup code compliant to the ELF Mips ABI.
3005 +   Copyright (C) 1995, 1997, 2000, 2001, 2002, 2003, 2004
3006 +       Free Software Foundation, Inc.
3007 +   This file is part of the GNU C Library.
3008 +
3009 +   The GNU C Library is free software; you can redistribute it and/or
3010 +   modify it under the terms of the GNU Lesser General Public
3011 +   License as published by the Free Software Foundation; either
3012 +   version 2.1 of the License, or (at your option) any later version.
3013 +
3014 +   In addition to the permissions in the GNU Lesser General Public
3015 +   License, the Free Software Foundation gives you unlimited
3016 +   permission to link the compiled version of this file with other
3017 +   programs, and to distribute those programs without any restriction
3018 +   coming from the use of this file. (The GNU Lesser General Public
3019 +   License restrictions do apply in other respects; for example, they
3020 +   cover modification of the file, and distribution when not linked
3021 +   into another program.)
3022 +
3023 +   Note that people who make modified versions of this file are not
3024 +   obligated to grant this special exception for their modified
3025 +   versions; it is their choice whether to do so. The GNU Lesser
3026 +   General Public License gives permission to release a modified
3027 +   version without this exception; this exception also makes it
3028 +   possible to release a modified version which carries forward this
3029 +   exception.
3030 +
3031 +   The GNU C Library is distributed in the hope that it will be useful,
3032 +   but WITHOUT ANY WARRANTY; without even the implied warranty of
3033 +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
3034 +   Lesser General Public License for more details.
3035 +
3036 +   You should have received a copy of the GNU Lesser General Public
3037 +   License along with the GNU C Library; if not, write to the Free
3038 +   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
3039 +   02111-1307 USA.  */
3040 +
3041 +#define __ASSEMBLY__ 1
3042 +#include <entry.h>
3043 +#include <sgidefs.h>
3044 +#include <sys/asm.h>
3045 +
3046 +#ifndef ENTRY_POINT
3047 +#error ENTRY_POINT needs to be defined for start.S on MIPS/ELF.
3048 +#endif
3049 +
3050 +/* This is the canonical entry point, usually the first thing in the text
3051 +   segment.  The SVR4/Mips ABI (pages 3-31, 3-32) says that when the entry
3052 +   point runs, most registers' values are unspecified, except for:
3053 +
3054 +   v0 ($2)     Contains a function pointer to be registered with `atexit'.
3055 +               This is how the dynamic linker arranges to have DT_FINI
3056 +               functions called for shared libraries that have been loaded
3057 +               before this code runs.
3058 +
3059 +   sp ($29)    The stack contains the arguments and environment:
3060 +               0(%esp)                 argc
3061 +               4(%esp)                 argv[0]
3062 +               ...
3063 +               (4*argc)(%esp)          NULL
3064 +               (4*(argc+1))(%esp)      envp[0]
3065 +               ...
3066 +                                       NULL
3067 +   ra ($31)    The return address register is set to zero so that programs
3068 +               that search backword through stack frames recognize the last
3069 +               stack frame.
3070 +*/
3071 +
3072 +
3073 +/* We need to call:
3074 +   __libc_start_main (int (*main) (int, char **, char **), int argc,
3075 +                     char **argv, void (*init) (void), void (*fini) (void),
3076 +                     void (*rtld_fini) (void), void *stack_end)
3077 +*/
3078 +       
3079 +       .text
3080 +       .globl ENTRY_POINT
3081 +       .type ENTRY_POINT,@function
3082 +ENTRY_POINT:
3083 +       SETUP_GPX64(t6, t7)
3084 +
3085 +       PIC_LA  (a0, t6, main)  /* &main */
3086 +       REG_L   a1, 0(sp)      /* argc */
3087 +       addi    a2, sp, SZREG  /* argv */
3088 +
3089 +       /* Align stack. */
3090 +       andi    sp, sp