fixcoff.c revision 1.2 
1/*	$NetBSD: fixcoff.c,v 1.2 2000/03/13 23:52:32 soren Exp $ */
2
3/*
4 * Copyright (c) 1999 National Aeronautics & Space Administration
5 * All rights reserved.
6 *
7 * This software was written by William Studenmund of the
8 * Numerical Aerospace Similation Facility, NASA Ames Research Center.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 * 3. Neither the name of the National Aeronautics & Space Administration
19 *    nor the names of its contributors may be used to endorse or promote
20 *    products derived from this software without specific prior written
21 *    permission.
22 *
23 * THIS SOFTWARE IS PROVIDED BY THE NATIONAL AERONAUTICS & SPACE ADMINISTRATION
24 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
25 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
26 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE ADMINISTRATION OR CONTRIB-
27 * UTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
28 * OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
29 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
30 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
31 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
32 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
33 * POSSIBILITY OF SUCH DAMAGE.
34 */
35
36/*
37 * This program fixes up the extended xcoff headers generated when an elf
38 * file is turned into an xcoff one with the current objcopy. It should
39 * go away someday, when objcopy will correctly fix up the output xcoff
40 *
41 * Partially inspired by hack-coff, written by Paul Mackerras.
42 */
43
44#include <stdio.h>
45#include <stdlib.h>
46#include <unistd.h>
47#include <fcntl.h>
48
49#include "../../../../../gnu/dist/include/coff/rs6000.h"
50
51extern char *__progname;
52
53void
54usage(prog)
55	char	*prog;
56{
57	fprintf(stderr, "Usage: %s [-h] | [<file to fix>]\n", prog);
58}
59
60void
61help(prog)
62	char	*prog;
63{
64	fprintf(stderr, "%s\tis designed to fix the xcoff headers in a\n", prog);
65	fprintf(stderr,
66"\tbinary generated using objcopy from a non-xcoff source.\n");
67	usage(prog);
68	exit(0);
69}
70
71main(argc, argv)
72	int		argc;
73	char * const	*argv;
74{
75	int	fd, i, n, ch;
76	struct	external_filehdr	efh;
77	AOUTHDR				aoh;
78	struct	external_scnhdr		shead;
79
80	while ((ch = getopt(argc, argv, "h")) != -1)
81	    switch (ch) {
82		case 'h':
83		help(__progname);
84	}
85
86	argc -= optind;
87	argv += optind;
88
89	if (argc != 1) {
90		usage(__progname);
91		exit(1);
92	}
93
94	if ((fd = open(argv[0], O_RDWR, 0)) == -1)
95		err(i, "%s", argv[0]);
96
97	/*
98	 * Make sure it looks like an xcoff file..
99	 */
100	if (read(fd, &efh, sizeof(efh)) != sizeof(efh))
101		err(1, "%s reading header", argv[0]);
102
103	i = ntohs(*(u_int16_t *)efh.f_magic);
104	if ((i != U802WRMAGIC) && (i != U802ROMAGIC) && (i != U802TOCMAGIC))
105		errx(1, "%s: not a valid xcoff file", argv[0]);
106
107	/* Does the AOUT "Optional header" make sence? */
108	i = ntohs(*(u_int16_t *)efh.f_opthdr);
109
110	if (i == SMALL_AOUTSZ)
111		errx(1, "%s: file has small \"optional\" header, inappropriate for use with %s", argv[0], __progname);
112	else if (i != AOUTSZ)
113		errx(1, "%s: invalid \"optional\" header", argv[0]);
114
115	if (read(fd, &aoh, i) != i)
116		err(1, "%s reading \"optional\" header", argv[0]);
117
118	/* Now start filing in the AOUT header */
119	*(u_int16_t *)aoh.magic = htons(RS6K_AOUTHDR_ZMAGIC);
120	n = ntohs(*(u_int16_t *)efh.f_nscns);
121
122	for (i = 0; i < n; i++) {
123		if (read(fd, &shead, sizeof(shead)) != sizeof(shead))
124			err(1, "%s reading section headers", argv[0]);
125		if (strcmp(shead.s_name, ".text") == 0) {
126			*(u_int16_t *)(aoh.o_snentry) = htons(i+1);
127			*(u_int16_t *)(aoh.o_sntext) = htons(i+1);
128		} else if (strcmp(shead.s_name, ".data") == 0) {
129			*(u_int16_t *)(aoh.o_sndata) = htons(i+1);
130		} else if (strcmp(shead.s_name, ".bss") == 0) {
131			*(u_int16_t *)(aoh.o_snbss) = htons(i+1);
132		}
133	}
134
135	/* now write it out */
136	if (pwrite(fd, &aoh, sizeof(aoh), sizeof(struct external_filehdr))
137			!= sizeof(aoh))
138		err(1, "%s writing modified header", argv[0]);
139	close(fd);
140	exit(0);
141}
142