1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
|
/* Handle SOM shared libraries.
Copyright (C) 2004, 2005, 2007 Free Software Foundation, Inc.
This file is part of GDB.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "defs.h"
#include "som.h"
#include "symtab.h"
#include "bfd.h"
#include "symfile.h"
#include "objfiles.h"
#include "gdbcore.h"
#include "target.h"
#include "inferior.h"
#include "hppa-tdep.h"
#include "solist.h"
#undef SOLIB_SOM_DBG
/* These ought to be defined in some public interface, but aren't. They
define the meaning of the various bits in the distinguished __dld_flags
variable that is declared in every debuggable a.out on HP-UX, and that
is shared between the debugger and the dynamic linker.
*/
#define DLD_FLAGS_MAPPRIVATE 0x1
#define DLD_FLAGS_HOOKVALID 0x2
#define DLD_FLAGS_LISTVALID 0x4
#define DLD_FLAGS_BOR_ENABLE 0x8
struct lm_info
{
/* Version of this structure (it is expected to change again in hpux10). */
unsigned char struct_version;
/* Binding mode for this library. */
unsigned char bind_mode;
/* Version of this library. */
short library_version;
/* Start of text address,
link-time text location (length of text area),
end of text address. */
CORE_ADDR text_addr;
CORE_ADDR text_link_addr;
CORE_ADDR text_end;
/* Start of data, start of bss and end of data. */
CORE_ADDR data_start;
CORE_ADDR bss_start;
CORE_ADDR data_end;
/* Value of linkage pointer (%r19). */
CORE_ADDR got_value;
/* Address in target of offset from thread-local register of
start of this thread's data. I.e., the first thread-local
variable in this shared library starts at *(tsd_start_addr)
from that area pointed to by cr27 (mpsfu_hi).
We do the indirection as soon as we read it, so from then
on it's the offset itself. */
CORE_ADDR tsd_start_addr;
/* Address of the link map entry in the loader. */
CORE_ADDR lm_addr;
};
/* These addresses should be filled in by som_solib_create_inferior_hook.
They are also used elsewhere in this module.
*/
typedef struct
{
CORE_ADDR address;
struct unwind_table_entry *unwind;
}
addr_and_unwind_t;
/* When adding fields, be sure to clear them in _initialize_som_solib. */
static struct
{
int is_valid;
addr_and_unwind_t hook;
addr_and_unwind_t hook_stub;
addr_and_unwind_t load;
addr_and_unwind_t load_stub;
addr_and_unwind_t unload;
addr_and_unwind_t unload2;
addr_and_unwind_t unload_stub;
}
dld_cache;
static void
som_relocate_section_addresses (struct so_list *so,
struct section_table *sec)
{
flagword aflag = bfd_get_section_flags(so->abfd, sec->the_bfd_section);
if (aflag & SEC_CODE)
{
sec->addr += so->lm_info->text_addr - so->lm_info->text_link_addr;
sec->endaddr += so->lm_info->text_addr - so->lm_info->text_link_addr;
}
else if (aflag & SEC_DATA)
{
sec->addr += so->lm_info->data_start;
sec->endaddr += so->lm_info->data_start;
}
else
;
}
/* This hook gets called just before the first instruction in the
inferior process is executed.
This is our opportunity to set magic flags in the inferior so
that GDB can be notified when a shared library is mapped in and
to tell the dynamic linker that a private copy of the library is
needed (so GDB can set breakpoints in the library).
__dld_flags is the location of the magic flags; as of this implementation
there are 3 flags of interest:
bit 0 when set indicates that private copies of the libraries are needed
bit 1 when set indicates that the callback hook routine is valid
bit 2 when set indicates that the dynamic linker should maintain the
__dld_list structure when loading/unloading libraries.
Note that shared libraries are not mapped in at this time, so we have
run the inferior until the libraries are mapped in. Typically this
means running until the "_start" is called. */
static void
som_solib_create_inferior_hook (void)
{
struct minimal_symbol *msymbol;
unsigned int dld_flags, status, have_endo;
asection *shlib_info;
char buf[4];
CORE_ADDR anaddr;
/* First, remove all the solib event breakpoints. Their addresses
may have changed since the last time we ran the program. */
remove_solib_event_breakpoints ();
if (symfile_objfile == NULL)
return;
/* First see if the objfile was dynamically linked. */
shlib_info = bfd_get_section_by_name (symfile_objfile->obfd, "$SHLIB_INFO$");
if (!shlib_info)
return;
/* It's got a $SHLIB_INFO$ section, make sure it's not empty. */
if (bfd_section_size (symfile_objfile->obfd, shlib_info) == 0)
return;
have_endo = 0;
/* Slam the pid of the process into __d_pid.
We used to warn when this failed, but that warning is only useful
on very old HP systems (hpux9 and older). The warnings are an
annoyance to users of modern systems and foul up the testsuite as
well. As a result, the warnings have been disabled. */
msymbol = lookup_minimal_symbol ("__d_pid", NULL, symfile_objfile);
if (msymbol == NULL)
goto keep_going;
anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
store_unsigned_integer (buf, 4, PIDGET (inferior_ptid));
status = target_write_memory (anaddr, buf, 4);
if (status != 0)
{
warning (_("\
Unable to write __d_pid.\n\
Suggest linking with /opt/langtools/lib/end.o.\n\
GDB will be unable to track shl_load/shl_unload calls"));
goto keep_going;
}
/* Get the value of _DLD_HOOK (an export stub) and put it in __dld_hook;
This will force the dynamic linker to call __d_trap when significant
events occur.
Note that the above is the pre-HP-UX 9.0 behaviour. At 9.0 and above,
the dld provides an export stub named "__d_trap" as well as the
function named "__d_trap" itself, but doesn't provide "_DLD_HOOK".
We'll look first for the old flavor and then the new.
*/
msymbol = lookup_minimal_symbol ("_DLD_HOOK", NULL, symfile_objfile);
if (msymbol == NULL)
msymbol = lookup_minimal_symbol ("__d_trap", NULL, symfile_objfile);
if (msymbol == NULL)
{
warning (_("\
Unable to find _DLD_HOOK symbol in object file.\n\
Suggest linking with /opt/langtools/lib/end.o.\n\
GDB will be unable to track shl_load/shl_unload calls"));
goto keep_going;
}
anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
dld_cache.hook.address = anaddr;
/* Grrr, this might not be an export symbol! We have to find the
export stub. */
msymbol = hppa_lookup_stub_minimal_symbol (SYMBOL_LINKAGE_NAME (msymbol),
EXPORT);
if (msymbol != NULL)
{
anaddr = SYMBOL_VALUE (msymbol);
dld_cache.hook_stub.address = anaddr;
}
store_unsigned_integer (buf, 4, anaddr);
msymbol = lookup_minimal_symbol ("__dld_hook", NULL, symfile_objfile);
if (msymbol == NULL)
{
warning (_("\
Unable to find __dld_hook symbol in object file.\n\
Suggest linking with /opt/langtools/lib/end.o.\n\
GDB will be unable to track shl_load/shl_unload calls"));
goto keep_going;
}
anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
status = target_write_memory (anaddr, buf, 4);
/* Now set a shlib_event breakpoint at __d_trap so we can track
significant shared library events. */
msymbol = lookup_minimal_symbol ("__d_trap", NULL, symfile_objfile);
if (msymbol == NULL)
{
warning (_("\
Unable to find __dld_d_trap symbol in object file.\n\
Suggest linking with /opt/langtools/lib/end.o.\n\
GDB will be unable to track shl_load/shl_unload calls"));
goto keep_going;
}
create_solib_event_breakpoint (SYMBOL_VALUE_ADDRESS (msymbol));
/* We have all the support usually found in end.o, so we can track
shl_load and shl_unload calls. */
have_endo = 1;
keep_going:
/* Get the address of __dld_flags, if no such symbol exists, then we can
not debug the shared code. */
msymbol = lookup_minimal_symbol ("__dld_flags", NULL, NULL);
if (msymbol == NULL)
{
error (_("Unable to find __dld_flags symbol in object file."));
}
anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
/* Read the current contents. */
status = target_read_memory (anaddr, buf, 4);
if (status != 0)
error (_("Unable to read __dld_flags."));
dld_flags = extract_unsigned_integer (buf, 4);
/* Turn on the flags we care about. */
dld_flags |= DLD_FLAGS_MAPPRIVATE;
if (have_endo)
dld_flags |= DLD_FLAGS_HOOKVALID;
store_unsigned_integer (buf, 4, dld_flags);
status = target_write_memory (anaddr, buf, 4);
if (status != 0)
error (_("Unable to write __dld_flags."));
/* Now find the address of _start and set a breakpoint there.
We still need this code for two reasons:
* Not all sites have /opt/langtools/lib/end.o, so it's not always
possible to track the dynamic linker's events.
* At this time no events are triggered for shared libraries
loaded at startup time (what a crock). */
msymbol = lookup_minimal_symbol ("_start", NULL, symfile_objfile);
if (msymbol == NULL)
error (_("Unable to find _start symbol in object file."));
anaddr = SYMBOL_VALUE_ADDRESS (msymbol);
/* Make the breakpoint at "_start" a shared library event breakpoint. */
create_solib_event_breakpoint (anaddr);
clear_symtab_users ();
}
static void
som_special_symbol_handling (void)
{
}
static void
som_solib_desire_dynamic_linker_symbols (void)
{
struct objfile *objfile;
struct unwind_table_entry *u;
struct minimal_symbol *dld_msymbol;
/* Do we already know the value of these symbols? If so, then
we've no work to do.
(If you add clauses to this test, be sure to likewise update the
test within the loop.)
*/
if (dld_cache.is_valid)
return;
ALL_OBJFILES (objfile)
{
dld_msymbol = lookup_minimal_symbol ("shl_load", NULL, objfile);
if (dld_msymbol != NULL)
{
dld_cache.load.address = SYMBOL_VALUE (dld_msymbol);
dld_cache.load.unwind = find_unwind_entry (dld_cache.load.address);
}
dld_msymbol = lookup_minimal_symbol_solib_trampoline ("shl_load",
objfile);
if (dld_msymbol != NULL)
{
if (SYMBOL_TYPE (dld_msymbol) == mst_solib_trampoline)
{
u = find_unwind_entry (SYMBOL_VALUE (dld_msymbol));
if ((u != NULL) && (u->stub_unwind.stub_type == EXPORT))
{
dld_cache.load_stub.address = SYMBOL_VALUE (dld_msymbol);
dld_cache.load_stub.unwind = u;
}
}
}
dld_msymbol = lookup_minimal_symbol ("shl_unload", NULL, objfile);
if (dld_msymbol != NULL)
{
dld_cache.unload.address = SYMBOL_VALUE (dld_msymbol);
dld_cache.unload.unwind = find_unwind_entry (dld_cache.unload.address);
/* ??rehrauer: I'm not sure exactly what this is, but it appears
that on some HPUX 10.x versions, there's two unwind regions to
cover the body of "shl_unload", the second being 4 bytes past
the end of the first. This is a large hack to handle that
case, but since I don't seem to have any legitimate way to
look for this thing via the symbol table...
*/
if (dld_cache.unload.unwind != NULL)
{
u = find_unwind_entry (dld_cache.unload.unwind->region_end + 4);
if (u != NULL)
{
dld_cache.unload2.address = u->region_start;
dld_cache.unload2.unwind = u;
}
}
}
dld_msymbol = lookup_minimal_symbol_solib_trampoline ("shl_unload",
objfile);
if (dld_msymbol != NULL)
{
if (SYMBOL_TYPE (dld_msymbol) == mst_solib_trampoline)
{
u = find_unwind_entry (SYMBOL_VALUE (dld_msymbol));
if ((u != NULL) && (u->stub_unwind.stub_type == EXPORT))
{
dld_cache.unload_stub.address = SYMBOL_VALUE (dld_msymbol);
dld_cache.unload_stub.unwind = u;
}
}
}
/* Did we find everything we were looking for? If so, stop. */
if ((dld_cache.load.address != 0)
&& (dld_cache.load_stub.address != 0)
&& (dld_cache.unload.address != 0)
&& (dld_cache.unload_stub.address != 0))
{
dld_cache.is_valid = 1;
break;
}
}
dld_cache.hook.unwind = find_unwind_entry (dld_cache.hook.address);
dld_cache.hook_stub.unwind = find_unwind_entry (dld_cache.hook_stub.address);
/* We're prepared not to find some of these symbols, which is why
this function is a "desire" operation, and not a "require".
*/
}
static int
som_in_dynsym_resolve_code (CORE_ADDR pc)
{
struct unwind_table_entry *u_pc;
/* Are we in the dld itself?
??rehrauer: Large hack -- We'll assume that any address in a
shared text region is the dld's text. This would obviously
fall down if the user attached to a process, whose shlibs
weren't mapped to a (writeable) private region. However, in
that case the debugger probably isn't able to set the fundamental
breakpoint in the dld callback anyways, so this hack should be
safe.
*/
if ((pc & (CORE_ADDR) 0xc0000000) == (CORE_ADDR) 0xc0000000)
return 1;
/* Cache the address of some symbols that are part of the dynamic
linker, if not already known.
*/
som_solib_desire_dynamic_linker_symbols ();
/* Are we in the dld callback? Or its export stub? */
u_pc = find_unwind_entry (pc);
if (u_pc == NULL)
return 0;
if ((u_pc == dld_cache.hook.unwind) || (u_pc == dld_cache.hook_stub.unwind))
return 1;
/* Or the interface of the dld (i.e., "shl_load" or friends)? */
if ((u_pc == dld_cache.load.unwind)
|| (u_pc == dld_cache.unload.unwind)
|| (u_pc == dld_cache.unload2.unwind)
|| (u_pc == dld_cache.load_stub.unwind)
|| (u_pc == dld_cache.unload_stub.unwind))
return 1;
/* Apparently this address isn't part of the dld's text. */
return 0;
}
static void
som_clear_solib (void)
{
}
struct dld_list {
char name[4];
char info[4];
char text_addr[4];
char text_link_addr[4];
char text_end[4];
char data_start[4];
char bss_start[4];
char data_end[4];
char got_value[4];
char next[4];
char tsd_start_addr_ptr[4];
};
static CORE_ADDR
link_map_start (void)
{
struct minimal_symbol *sym;
CORE_ADDR addr;
char buf[4];
unsigned int dld_flags;
sym = lookup_minimal_symbol ("__dld_flags", NULL, NULL);
if (!sym)
error (_("Unable to find __dld_flags symbol in object file."));
addr = SYMBOL_VALUE_ADDRESS (sym);
read_memory (addr, buf, 4);
dld_flags = extract_unsigned_integer (buf, 4);
if ((dld_flags & DLD_FLAGS_LISTVALID) == 0)
error (_("__dld_list is not valid according to __dld_flags."));
/* If the libraries were not mapped private, warn the user. */
if ((dld_flags & DLD_FLAGS_MAPPRIVATE) == 0)
warning (_("The shared libraries were not privately mapped; setting a\n"
"breakpoint in a shared library will not work until you rerun the "
"program.\n"));
sym = lookup_minimal_symbol ("__dld_list", NULL, NULL);
if (!sym)
{
/* Older crt0.o files (hpux8) don't have __dld_list as a symbol,
but the data is still available if you know where to look. */
sym = lookup_minimal_symbol ("__dld_flags", NULL, NULL);
if (!sym)
{
error (_("Unable to find dynamic library list."));
return 0;
}
addr = SYMBOL_VALUE_ADDRESS (sym) - 8;
}
else
addr = SYMBOL_VALUE_ADDRESS (sym);
read_memory (addr, buf, 4);
addr = extract_unsigned_integer (buf, 4);
if (addr == 0)
return 0;
read_memory (addr, buf, 4);
return extract_unsigned_integer (buf, 4);
}
/* Does this so's name match the main binary? */
static int
match_main (const char *name)
{
return strcmp (name, symfile_objfile->name) == 0;
}
static struct so_list *
som_current_sos (void)
{
CORE_ADDR lm;
struct so_list *head = 0;
struct so_list **link_ptr = &head;
for (lm = link_map_start (); lm; )
{
char *namebuf;
CORE_ADDR addr;
struct so_list *new;
struct cleanup *old_chain;
int errcode;
struct dld_list dbuf;
char tsdbuf[4];
new = (struct so_list *) xmalloc (sizeof (struct so_list));
old_chain = make_cleanup (xfree, new);
memset (new, 0, sizeof (*new));
new->lm_info = xmalloc (sizeof (struct lm_info));
make_cleanup (xfree, new->lm_info);
read_memory (lm, (gdb_byte *)&dbuf, sizeof (struct dld_list));
addr = extract_unsigned_integer ((gdb_byte *)&dbuf.name,
sizeof (dbuf.name));
target_read_string (addr, &namebuf, SO_NAME_MAX_PATH_SIZE - 1, &errcode);
if (errcode != 0)
warning (_("Can't read pathname for load map: %s."),
safe_strerror (errcode));
else
{
strncpy (new->so_name, namebuf, SO_NAME_MAX_PATH_SIZE - 1);
new->so_name[SO_NAME_MAX_PATH_SIZE - 1] = '\0';
xfree (namebuf);
strcpy (new->so_original_name, new->so_name);
}
if (new->so_name[0] && !match_main (new->so_name))
{
struct lm_info *lmi = new->lm_info;
unsigned int tmp;
lmi->lm_addr = lm;
#define EXTRACT(_fld) \
extract_unsigned_integer ((gdb_byte *)&dbuf._fld, sizeof (dbuf._fld));
lmi->text_addr = EXTRACT (text_addr);
tmp = EXTRACT (info);
lmi->library_version = (tmp >> 16) & 0xffff;
lmi->bind_mode = (tmp >> 8) & 0xff;
lmi->struct_version = tmp & 0xff;
lmi->text_link_addr = EXTRACT (text_link_addr);
lmi->text_end = EXTRACT (text_end);
lmi->data_start = EXTRACT (data_start);
lmi->bss_start = EXTRACT (bss_start);
lmi->data_end = EXTRACT (data_end);
lmi->got_value = EXTRACT (got_value);
tmp = EXTRACT (tsd_start_addr_ptr);
read_memory (tmp, tsdbuf, 4);
lmi->tsd_start_addr = extract_unsigned_integer (tsdbuf, 4);
#ifdef SOLIB_SOM_DBG
printf ("\n+ library \"%s\" is described at 0x%s\n", new->so_name,
paddr_nz (lm));
printf (" 'version' is %d\n", new->lm_info->struct_version);
printf (" 'bind_mode' is %d\n", new->lm_info->bind_mode);
printf (" 'library_version' is %d\n",
new->lm_info->library_version);
printf (" 'text_addr' is 0x%s\n",
paddr_nz (new->lm_info->text_addr));
printf (" 'text_link_addr' is 0x%s\n",
paddr_nz (new->lm_info->text_link_addr));
printf (" 'text_end' is 0x%s\n",
paddr_nz (new->lm_info->text_end));
printf (" 'data_start' is 0x%s\n",
paddr_nz (new->lm_info->data_start));
printf (" 'bss_start' is 0x%s\n",
paddr_nz (new->lm_info->bss_start));
printf (" 'data_end' is 0x%s\n",
paddr_nz (new->lm_info->data_end));
printf (" 'got_value' is %s\n",
paddr_nz (new->lm_info->got_value));
printf (" 'tsd_start_addr' is 0x%s\n",
paddr_nz (new->lm_info->tsd_start_addr));
#endif
new->addr_low = lmi->text_addr;
new->addr_high = lmi->text_end;
/* Link the new object onto the list. */
new->next = NULL;
*link_ptr = new;
link_ptr = &new->next;
}
else
{
free_so (new);
}
lm = EXTRACT (next);
discard_cleanups (old_chain);
#undef EXTRACT
}
/* TODO: The original somsolib code has logic to detect and eliminate
duplicate entries. Do we need that? */
return head;
}
static int
som_open_symbol_file_object (void *from_ttyp)
{
CORE_ADDR lm, l_name;
char *filename;
int errcode;
int from_tty = *(int *)from_ttyp;
char buf[4];
if (symfile_objfile)
if (!query ("Attempt to reload symbols from process? "))
return 0;
/* First link map member should be the executable. */
if ((lm = link_map_start ()) == 0)
return 0; /* failed somehow... */
/* Read address of name from target memory to GDB. */
read_memory (lm + offsetof (struct dld_list, name), buf, 4);
/* Convert the address to host format. Assume that the address is
unsigned. */
l_name = extract_unsigned_integer (buf, 4);
if (l_name == 0)
return 0; /* No filename. */
/* Now fetch the filename from target memory. */
target_read_string (l_name, &filename, SO_NAME_MAX_PATH_SIZE - 1, &errcode);
if (errcode)
{
warning (_("failed to read exec filename from attached file: %s"),
safe_strerror (errcode));
return 0;
}
make_cleanup (xfree, filename);
/* Have a pathname: read the symbol file. */
symbol_file_add_main (filename, from_tty);
return 1;
}
static void
som_free_so (struct so_list *so)
{
xfree (so->lm_info);
}
static CORE_ADDR
som_solib_thread_start_addr (struct so_list *so)
{
return so->lm_info->tsd_start_addr;
}
/* Return the GOT value for the shared library in which ADDR belongs. If
ADDR isn't in any known shared library, return zero. */
static CORE_ADDR
som_solib_get_got_by_pc (CORE_ADDR addr)
{
struct so_list *so_list = master_so_list ();
CORE_ADDR got_value = 0;
while (so_list)
{
if (so_list->lm_info->text_addr <= addr
&& so_list->lm_info->text_end > addr)
{
got_value = so_list->lm_info->got_value;
break;
}
so_list = so_list->next;
}
return got_value;
}
/* Return the address of the handle of the shared library in which ADDR belongs.
If ADDR isn't in any known shared library, return zero. */
/* this function is used in initialize_hp_cxx_exception_support in
hppa-hpux-tdep.c */
static CORE_ADDR
som_solib_get_solib_by_pc (CORE_ADDR addr)
{
struct so_list *so_list = master_so_list ();
while (so_list)
{
if (so_list->lm_info->text_addr <= addr
&& so_list->lm_info->text_end > addr)
{
break;
}
so_list = so_list->next;
}
if (so_list)
return so_list->lm_info->lm_addr;
else
return 0;
}
static struct target_so_ops som_so_ops;
extern initialize_file_ftype _initialize_som_solib; /* -Wmissing-prototypes */
void
_initialize_som_solib (void)
{
som_so_ops.relocate_section_addresses = som_relocate_section_addresses;
som_so_ops.free_so = som_free_so;
som_so_ops.clear_solib = som_clear_solib;
som_so_ops.solib_create_inferior_hook = som_solib_create_inferior_hook;
som_so_ops.special_symbol_handling = som_special_symbol_handling;
som_so_ops.current_sos = som_current_sos;
som_so_ops.open_symbol_file_object = som_open_symbol_file_object;
som_so_ops.in_dynsym_resolve_code = som_in_dynsym_resolve_code;
}
void som_solib_select (struct gdbarch_tdep *tdep)
{
current_target_so_ops = &som_so_ops;
tdep->solib_thread_start_addr = som_solib_thread_start_addr;
tdep->solib_get_got_by_pc = som_solib_get_got_by_pc;
tdep->solib_get_solib_by_pc = som_solib_get_solib_by_pc;
}
/* The rest of these functions are not part of the solib interface; they
are used by somread.c or hppa-hpux-tdep.c */
int
som_solib_section_offsets (struct objfile *objfile,
struct section_offsets *offsets)
{
struct so_list *so_list = master_so_list ();
while (so_list)
{
/* Oh what a pain! We need the offsets before so_list->objfile
is valid. The BFDs will never match. Make a best guess. */
if (strstr (objfile->name, so_list->so_name))
{
asection *private_section;
/* The text offset is easy. */
offsets->offsets[SECT_OFF_TEXT (objfile)]
= (so_list->lm_info->text_addr
- so_list->lm_info->text_link_addr);
offsets->offsets[SECT_OFF_RODATA (objfile)]
= ANOFFSET (offsets, SECT_OFF_TEXT (objfile));
/* We should look at presumed_dp in the SOM header, but
that's not easily available. This should be OK though. */
private_section = bfd_get_section_by_name (objfile->obfd,
"$PRIVATE$");
if (!private_section)
{
warning (_("Unable to find $PRIVATE$ in shared library!"));
offsets->offsets[SECT_OFF_DATA (objfile)] = 0;
offsets->offsets[SECT_OFF_BSS (objfile)] = 0;
return 1;
}
offsets->offsets[SECT_OFF_DATA (objfile)]
= (so_list->lm_info->data_start - private_section->vma);
offsets->offsets[SECT_OFF_BSS (objfile)]
= ANOFFSET (offsets, SECT_OFF_DATA (objfile));
return 1;
}
so_list = so_list->next;
}
return 0;
}
|