/* Program to stuff files into a specially prepared space in kdb.
|
/* Program to stuff files into a specially prepared space in kdb.
|
Copyright (C) 1986, 1989, 1991 Free Software Foundation, Inc.
|
Copyright (C) 1986, 1989, 1991 Free Software Foundation, Inc.
|
|
|
This file is part of GDB.
|
This file is part of GDB.
|
|
|
This program is free software; you can redistribute it and/or modify
|
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
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 2 of the License, or
|
the Free Software Foundation; either version 2 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
Boston, MA 02111-1307, USA. */
|
Boston, MA 02111-1307, USA. */
|
|
|
/* Written 13-Mar-86 by David Bridgham. */
|
/* Written 13-Mar-86 by David Bridgham. */
|
|
|
#include <stdio.h>
|
#include <stdio.h>
|
#include <a.out.h>
|
#include <a.out.h>
|
#include <sys/types.h>
|
#include <sys/types.h>
|
#include "gdb_stat.h"
|
#include "gdb_stat.h"
|
#include <sys/file.h>
|
#include <sys/file.h>
|
#include <varargs.h>
|
#include <varargs.h>
|
|
|
main (argc, argv)
|
main (argc, argv)
|
int argc;
|
int argc;
|
char *argv[];
|
char *argv[];
|
{
|
{
|
register char *cp;
|
register char *cp;
|
char *outfile;
|
char *outfile;
|
register int i;
|
register int i;
|
int offset;
|
int offset;
|
int out_fd, in_fd;
|
int out_fd, in_fd;
|
struct stat stat_buf;
|
struct stat stat_buf;
|
int size, pad;
|
int size, pad;
|
char buf[1024];
|
char buf[1024];
|
static char zeros[4] =
|
static char zeros[4] =
|
{0};
|
{0};
|
|
|
if (argc < 4)
|
if (argc < 4)
|
err ("Not enough arguments\nUsage: %s -o kdb file1 file2 ...\n",
|
err ("Not enough arguments\nUsage: %s -o kdb file1 file2 ...\n",
|
argv[0]);
|
argv[0]);
|
|
|
outfile = 0;
|
outfile = 0;
|
for (i = 1; i < argc; i++)
|
for (i = 1; i < argc; i++)
|
{
|
{
|
if (STREQ (argv[i], "-o"))
|
if (STREQ (argv[i], "-o"))
|
outfile = argv[++i];
|
outfile = argv[++i];
|
}
|
}
|
if (outfile == 0)
|
if (outfile == 0)
|
err ("Output file not specified\n");
|
err ("Output file not specified\n");
|
|
|
offset = get_offset (outfile, "_heap");
|
offset = get_offset (outfile, "_heap");
|
|
|
out_fd = open (outfile, O_WRONLY);
|
out_fd = open (outfile, O_WRONLY);
|
if (out_fd < 0)
|
if (out_fd < 0)
|
err ("Error opening %s for write: %s\n", outfile, strerror (errno));
|
err ("Error opening %s for write: %s\n", outfile, strerror (errno));
|
if (lseek (out_fd, offset, 0) < 0)
|
if (lseek (out_fd, offset, 0) < 0)
|
err ("Error seeking to heap in %s: %s\n", outfile, strerror (errno));
|
err ("Error seeking to heap in %s: %s\n", outfile, strerror (errno));
|
|
|
/* For each file listed on the command line, write it into the
|
/* For each file listed on the command line, write it into the
|
* 'heap' of the output file. Make sure to skip the arguments
|
* 'heap' of the output file. Make sure to skip the arguments
|
* that name the output file. */
|
* that name the output file. */
|
for (i = 1; i < argc; i++)
|
for (i = 1; i < argc; i++)
|
{
|
{
|
if (STREQ (argv[i], "-o"))
|
if (STREQ (argv[i], "-o"))
|
continue;
|
continue;
|
if ((in_fd = open (argv[i], O_RDONLY)) < 0)
|
if ((in_fd = open (argv[i], O_RDONLY)) < 0)
|
err ("Error opening %s for read: %s\n", argv[i],
|
err ("Error opening %s for read: %s\n", argv[i],
|
strerror (errno));
|
strerror (errno));
|
if (fstat (in_fd, &stat_buf) < 0)
|
if (fstat (in_fd, &stat_buf) < 0)
|
err ("Error stat'ing %s: %s\n", argv[i], strerror (errno));
|
err ("Error stat'ing %s: %s\n", argv[i], strerror (errno));
|
size = strlen (argv[i]);
|
size = strlen (argv[i]);
|
pad = 4 - (size & 3);
|
pad = 4 - (size & 3);
|
size += pad + stat_buf.st_size + sizeof (int);
|
size += pad + stat_buf.st_size + sizeof (int);
|
write (out_fd, &size, sizeof (int));
|
write (out_fd, &size, sizeof (int));
|
write (out_fd, argv[i], strlen (argv[i]));
|
write (out_fd, argv[i], strlen (argv[i]));
|
write (out_fd, zeros, pad);
|
write (out_fd, zeros, pad);
|
while ((size = read (in_fd, buf, sizeof (buf))) > 0)
|
while ((size = read (in_fd, buf, sizeof (buf))) > 0)
|
write (out_fd, buf, size);
|
write (out_fd, buf, size);
|
close (in_fd);
|
close (in_fd);
|
}
|
}
|
size = 0;
|
size = 0;
|
write (out_fd, &size, sizeof (int));
|
write (out_fd, &size, sizeof (int));
|
close (out_fd);
|
close (out_fd);
|
return (0);
|
return (0);
|
}
|
}
|
|
|
/* Read symbol table from file and returns the offset into the file
|
/* Read symbol table from file and returns the offset into the file
|
* where symbol sym_name is located. If error, print message and
|
* where symbol sym_name is located. If error, print message and
|
* exit. */
|
* exit. */
|
get_offset (file, sym_name)
|
get_offset (file, sym_name)
|
char *file;
|
char *file;
|
char *sym_name;
|
char *sym_name;
|
{
|
{
|
int f;
|
int f;
|
struct exec file_hdr;
|
struct exec file_hdr;
|
struct nlist *symbol_table;
|
struct nlist *symbol_table;
|
int size;
|
int size;
|
char *strings;
|
char *strings;
|
|
|
f = open (file, O_RDONLY);
|
f = open (file, O_RDONLY);
|
if (f < 0)
|
if (f < 0)
|
err ("Error opening %s: %s\n", file, strerror (errno));
|
err ("Error opening %s: %s\n", file, strerror (errno));
|
if (read (f, &file_hdr, sizeof (file_hdr)) < 0)
|
if (read (f, &file_hdr, sizeof (file_hdr)) < 0)
|
err ("Error reading exec structure: %s\n", strerror (errno));
|
err ("Error reading exec structure: %s\n", strerror (errno));
|
if (N_BADMAG (file_hdr))
|
if (N_BADMAG (file_hdr))
|
err ("File %s not an a.out file\n", file);
|
err ("File %s not an a.out file\n", file);
|
|
|
/* read in symbol table */
|
/* read in symbol table */
|
if ((symbol_table = (struct nlist *) malloc (file_hdr.a_syms)) == 0)
|
if ((symbol_table = (struct nlist *) malloc (file_hdr.a_syms)) == 0)
|
err ("Couldn't allocate space for symbol table\n");
|
err ("Couldn't allocate space for symbol table\n");
|
if (lseek (f, N_SYMOFF (file_hdr), 0) == -1)
|
if (lseek (f, N_SYMOFF (file_hdr), 0) == -1)
|
err ("lseek error: %s\n", strerror (errno));
|
err ("lseek error: %s\n", strerror (errno));
|
if (read (f, symbol_table, file_hdr.a_syms) == -1)
|
if (read (f, symbol_table, file_hdr.a_syms) == -1)
|
err ("Error reading symbol table from %s: %s\n", file,
|
err ("Error reading symbol table from %s: %s\n", file,
|
strerror (errno));
|
strerror (errno));
|
|
|
/* read in string table */
|
/* read in string table */
|
if (read (f, &size, 4) == -1)
|
if (read (f, &size, 4) == -1)
|
err ("reading string table size: %s\n", strerror (errno));
|
err ("reading string table size: %s\n", strerror (errno));
|
if ((strings = (char *) malloc (size)) == 0)
|
if ((strings = (char *) malloc (size)) == 0)
|
err ("Couldn't allocate memory for string table\n");
|
err ("Couldn't allocate memory for string table\n");
|
if (read (f, strings, size - 4) == -1)
|
if (read (f, strings, size - 4) == -1)
|
err ("reading string table: %s\n", strerror (errno));
|
err ("reading string table: %s\n", strerror (errno));
|
|
|
/* Find the core address at which the first byte of kdb text segment
|
/* Find the core address at which the first byte of kdb text segment
|
should be loaded into core when kdb is run. */
|
should be loaded into core when kdb is run. */
|
origin = find_symbol ("_etext", symbol_table, file_hdr.a_syms, strings)
|
origin = find_symbol ("_etext", symbol_table, file_hdr.a_syms, strings)
|
- file_hdr.a_text;
|
- file_hdr.a_text;
|
/* Find the core address at which the heap will appear. */
|
/* Find the core address at which the heap will appear. */
|
coreaddr = find_symbol (sym_name, symbol_table, file_hdr.a_syms, strings);
|
coreaddr = find_symbol (sym_name, symbol_table, file_hdr.a_syms, strings);
|
/* Return address in file of the heap data space. */
|
/* Return address in file of the heap data space. */
|
return (N_TXTOFF (file_hdr) + core_addr - origin);
|
return (N_TXTOFF (file_hdr) + core_addr - origin);
|
}
|
}
|
|
|
find_symbol (sym_name, symbol_table, length, strings)
|
find_symbol (sym_name, symbol_table, length, strings)
|
char *sym_name;
|
char *sym_name;
|
struct nlist *symbol_table;
|
struct nlist *symbol_table;
|
int length;
|
int length;
|
char *strings;
|
char *strings;
|
{
|
{
|
register struct nlist *sym;
|
register struct nlist *sym;
|
|
|
/* Find symbol in question */
|
/* Find symbol in question */
|
for (sym = symbol_table;
|
for (sym = symbol_table;
|
sym != (struct nlist *) ((char *) symbol_table + length);
|
sym != (struct nlist *) ((char *) symbol_table + length);
|
sym++)
|
sym++)
|
{
|
{
|
if ((sym->n_type & N_TYPE) != N_DATA)
|
if ((sym->n_type & N_TYPE) != N_DATA)
|
continue;
|
continue;
|
if (sym->n_un.n_strx == 0)
|
if (sym->n_un.n_strx == 0)
|
continue;
|
continue;
|
if (STREQ (sym_name, strings + sym->n_un.n_strx - 4))
|
if (STREQ (sym_name, strings + sym->n_un.n_strx - 4))
|
return sym->n_value;
|
return sym->n_value;
|
}
|
}
|
err ("Data symbol %s not found in %s\n", sym_name, file);
|
err ("Data symbol %s not found in %s\n", sym_name, file);
|
}
|
}
|
|
|
/* VARARGS */
|
/* VARARGS */
|
void
|
void
|
err (va_alist)
|
err (va_alist)
|
va_dcl
|
va_dcl
|
{
|
{
|
va_list args;
|
va_list args;
|
char *string;
|
char *string;
|
|
|
va_start (args);
|
va_start (args);
|
string = va_arg (args, char *);
|
string = va_arg (args, char *);
|
vfprintf (gdb_stderr, string, args);
|
vfprintf (gdb_stderr, string, args);
|
va_end (args);
|
va_end (args);
|
exit (-1);
|
exit (-1);
|
}
|
}
|
|
|
