mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-19 19:59:43 +00:00
Code Issues Releases Activity

Support ELF.

Browse Source 
Submitted by:	Doug Rabson <dfr@calcaphon.com>
This commit is contained in:
David E. O'Brien 1998-12-01 09:42:46 +00:00
parent 6dda0fcb76
commit 279cf52593
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=15004
1 changed files with 129 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
devel/mprof/files/patch-02 Normal file
View File

@ -0,0 +1,129 @@
--- mprof.c.orig Tue Apr 20 21:36:20 1993
+++ mprof.c Wed Nov 25 14:20:44 1998
@@ -8,6 +8,9 @@
#include <stdio.h>
#include <sys/file.h>
#include <ctype.h>
+#ifdef __ELF__
+#include <elf.h>
+#endif
#include <a.out.h>
#include <stab.h>
#include "mprof.h"
@@ -699,6 +702,108 @@
st_read(exec_name)
char *exec_name;
{
+#ifdef __ELF__
+ int elf_file = open(exec_name, (O_RDONLY));
+ Elf_Ehdr ehdr;
+ Elf_Shdr shdr, shstrhdr, symhdr, strhdr, stabhdr, stabstrhdr;
+ int gotsym, gotstr, gotstab, gotstabstr;
+ char *sh_strings;
+ char *stab_strings;
+ Elf_Sym asym;
+ extern char *index();
+ extern char *malloc();
+ char *stmp;
+ int string_size;
+ unsigned char type;
+ char *fname;
+ int i;
+
+ read(elf_file, &ehdr, sizeof(ehdr));
+ if (!ehdr.e_shnum) {
+ fprintf(stdout, "st_read -- no symbols in executable\n");
+ exit(1);
+ }
+
+ /* read the section names */
+ lseek(elf_file, ehdr.e_shoff + ehdr.e_shstrndx * ehdr.e_shentsize, L_SET);
+ read(elf_file, &shstrhdr, ehdr.e_shentsize);
+ sh_strings = malloc(shstrhdr.sh_size);
+ lseek(elf_file, shstrhdr.sh_offset, L_SET);
+ read(elf_file, sh_strings, shstrhdr.sh_size);
+
+ /* find the stab sections */
+ gotsym = gotstr = 0;
+ for (i = 0; i < ehdr.e_shnum; i++) {
+ lseek(elf_file, ehdr.e_shoff + i * ehdr.e_shentsize, L_SET);
+ read(elf_file, &shdr, ehdr.e_shentsize);
+ if (!strcmp(sh_strings + shdr.sh_name, ".stab")) {
+ stabhdr = shdr;
+ gotstab = 1;
+ } else if (!strcmp(sh_strings + shdr.sh_name, ".stabstr")) {
+ stabstrhdr = shdr;
+ gotstabstr = 1;
+ } else if (shdr.sh_type == SHT_SYMTAB) {
+ symhdr = shdr;
+ gotsym = 1;
+ } else if (shdr.sh_type == SHT_STRTAB) {
+ strhdr = shdr;
+ gotstr = 1;
+ }
+ }
+ if (!gotsym || !gotstr) {
+ fprintf(stdout, "st_read -- no symbols in executable\n");
+ exit(1);
+ }
+
+ /* read in the string table
+ */
+ st_strings = malloc(strhdr.sh_size);
+ lseek(elf_file, strhdr.sh_offset, L_SET);
+ read(elf_file, st_strings, strhdr.sh_size);
+
+ if (gotstabstr) {
+ stab_strings = malloc(stabstrhdr.sh_size);
+ lseek(elf_file, stabstrhdr.sh_offset, L_SET);
+ read(elf_file, stab_strings, stabstrhdr.sh_size);
+ }
+
+ /* read in the symbols one at a time
+ */
+ lseek(elf_file, symhdr.sh_offset, L_SET);
+ for (i = 0; i < symhdr.sh_size / sizeof(Elf_Sym); i++) {
+ read(elf_file, &asym, sizeof(asym));
+ type = ELF_ST_TYPE(asym.st_info);
+ if (type == STT_FUNC) {
+ /* here's a candidate for a function name
+ */
+ fname = (char *) (st_strings + asym.st_name);
+ stab_name(stab_i) = fname;
+ stab_addr(stab_i) = asym.st_value;
+ stab_incr(stab_i);
+ }
+ }
+
+ /* read the stab sections to look for structures */
+ if (gotstab) {
+ struct nlist stab;
+ lseek(elf_file, stabhdr.sh_offset, L_SET);
+ for (i = 0; i < stabhdr.sh_size / sizeof(struct nlist); i++) {
+ read(elf_file, &stab, sizeof(stab));
+ if (stab.n_type == N_LSYM || stab.n_type == N_GSYM) {
+ st_read_structure((char *) (stab_strings + stab.n_un.n_strx));
+ }
+ }
+ }
+
+ stab_name(stab_i) = "unknown";
+ stab_addr(stab_i) = stab_addr(stab_i - 1) + 0x10000;
+ stab_incr(stab_i);
+ stab_name(stab_i) = "end_marker";
+ stab_addr(stab_i) = 0xffffffff;
+ stab_incr(stab_i);
+ qsort(stab, stab_i, sizeof(struct finfo), stab_compare);
+ close(elf_file);
+#else
int aout_file = open(exec_name, (O_RDONLY));
struct exec hdr;
struct nlist asym;
@@ -772,6 +877,7 @@
stab_addr(stab_i) = 0xffffffff;
stab_incr(stab_i);
qsort(stab, stab_i, sizeof(struct finfo), stab_compare);
+#endif
}
void