Mercurial > hg > xemacs-beta
comparison dynodump/dynodump.c @ 185:3d6bfa290dbd r20-3b19
Import from CVS: tag r20-3b19
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:55:28 +0200 |
parents | 8eaf7971accc |
children | c5d627a313b1 |
comparison
equal
deleted
inserted
replaced
184:bcd2674570bf | 185:3d6bfa290dbd |
---|---|
71 * modification that occured during the applications execution. | 71 * modification that occured during the applications execution. |
72 * | 72 * |
73 * N.B. The above commentary is not quite correct in the flags have been hardwired | 73 * N.B. The above commentary is not quite correct in the flags have been hardwired |
74 * to RTLD_SAVREL. | 74 * to RTLD_SAVREL. |
75 */ | 75 */ |
76 #pragma ident "@(#) $Id: dynodump.c,v 1.4 1997/07/13 22:40:53 steve Exp $ - SMI" | 76 #pragma ident "@(#) $Id: dynodump.c,v 1.5 1997/09/03 03:39:06 steve Exp $ - SMI" |
77 | 77 |
78 #define __EXTENSIONS__ 1 | 78 #define __EXTENSIONS__ 1 |
79 | 79 |
80 #include <sys/param.h> | 80 #include <sys/param.h> |
81 #include <sys/procfs.h> | 81 #include <sys/procfs.h> |
213 */ | 213 */ |
214 if ((scn = elf_getscn(ielf, iehdr->e_shstrndx)) == NULL) | 214 if ((scn = elf_getscn(ielf, iehdr->e_shstrndx)) == NULL) |
215 return (elferr("elf_getscn")); | 215 return (elferr("elf_getscn")); |
216 if ((data = elf_getdata(scn, NULL)) == NULL) | 216 if ((data = elf_getdata(scn, NULL)) == NULL) |
217 return (elferr("elf_getdata")); | 217 return (elferr("elf_getdata")); |
218 istrs = data->d_buf; | 218 istrs = (char *) data->d_buf; |
219 | 219 |
220 /* | 220 /* |
221 * Construct a cache to maintain the input files section information. | 221 * Construct a cache to maintain the input files section information. |
222 */ | 222 */ |
223 if ((icache = (Cache *) malloc(iehdr->e_shnum * sizeof (Cache))) == 0) { | 223 if ((icache = (Cache *) malloc(iehdr->e_shnum * sizeof (Cache))) == 0) { |
448 */ | 448 */ |
449 if ((scn = elf_getscn(oelf, oehdr->e_shstrndx)) == NULL) | 449 if ((scn = elf_getscn(oelf, oehdr->e_shstrndx)) == NULL) |
450 return (elferr("elf_getscn")); | 450 return (elferr("elf_getscn")); |
451 if ((data = elf_getdata(scn, NULL)) == NULL) | 451 if ((data = elf_getdata(scn, NULL)) == NULL) |
452 return (elferr("elf_getdata")); | 452 return (elferr("elf_getdata")); |
453 ostrs = _ostrs = data->d_buf; | 453 ostrs = _ostrs = (char *) data->d_buf; |
454 *_ostrs++ = '\0'; | 454 *_ostrs++ = '\0'; |
455 | 455 |
456 /* | 456 /* |
457 * Construct a cache to maintain the output files section information. | 457 * Construct a cache to maintain the output files section information. |
458 */ | 458 */ |