fixcoff.c revision 1.11 
1/*	$NetBSD: fixcoff.c,v 1.11 2009/03/14 15:36:09 dsl 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#if HAVE_NBTOOL_CONFIG_H
45#include "nbtool_config.h"
46#endif
47
48#include <stdio.h>
49#include <stdlib.h>
50#include <unistd.h>
51#include <fcntl.h>
52
53#if HAVE_NBTOOL_CONFIG_H
54
55#if WORDS_BIGENDIAN
56#define	htobe16(x)	(x)
57#else
58static unsigned short
59__htobe16(unsigned short x)
60{
61	return (((x & 0xff00) >> 8) | ((x & 0x00ff) << 8));
62}
63#define	htobe16(x) __htobe16(x)
64#endif /* WORDS_BIGENDIAN */
65
66#else	/* HAVE_NBTOOL_CONFIG_H */
67#include <sys/endian.h>
68#endif	/* HAVE_NBTOOL_CONFIG_H */
69
70struct filehdr {
71#define U802WRMAGIC     0730
72#define U802ROMAGIC     0735
73#define U802TOCMAGIC    0737
74	char f_magic[2];
75	char f_nsect[2];
76	char f_time[4];
77	char f_symtab[4];
78	char f_nsyms[4];
79	char f_opthdr[2];
80	char f_flags[2];
81};
82
83struct sectionhdr {
84	char	s_name[8];
85	char	s_paddr[4];
86	char	s_vaddr[4];
87	char	s_size[4];
88	char	s_section[4];
89	char	s_reloc[4];
90	char	s_lineno[4];
91	char	s_nreloc[2];
92	char	s_nlineno[2];
93	char	s_flags[4];
94};
95
96struct aouthdr {
97	char	magic[2];
98	char	vstamp[2];
99	char	tsize[4];
100	char	dsize[4];
101	char	bsize[4];
102	char	entry[4];
103	char	text_start[4];
104	char	data_start[4];
105#define SMALL_AOUTSZ	28
106	char	o_toc[4];
107	char	o_snentry[2];
108	char	o_sntext[2];
109	char	o_sndata[2];
110	char	o_sntoc[2];
111	char	o_snloader[2];
112	char	o_snbss[2];
113	char	o_algntext[2];
114	char	o_algndata[2];
115	char	o_modtype[2];
116	char	o_cputype[2];
117	char	o_maxstack[4];
118	char	o_maxdata[4];
119	char	o_resv2[12];
120};
121#define RS6K_AOUTHDR_ZMAGIC     0x010B
122
123void
124usage(char *prog)
125{
126	fprintf(stderr, "Usage: %s [-h] | [<file to fix>]\n", prog);
127}
128
129void
130help(char *prog)
131{
132	fprintf(stderr, "%s\tis designed to fix the xcoff headers in a\n",prog);
133	fprintf(stderr,
134"\tbinary generated using objcopy from a non-xcoff source.\n");
135	usage(prog);
136	exit(0);
137}
138
139main(int argc, char * const *argv)
140{
141	int	fd, i, n, ch;
142	struct	filehdr	fh;
143	struct	aouthdr aoh;
144	struct	sectionhdr sh;
145
146	while ((ch = getopt(argc, argv, "h")) != -1)
147	    switch (ch) {
148		case 'h':
149		help(getprogname());
150	}
151
152	argc -= optind;
153	argv += optind;
154
155	if (argc != 1) {
156		usage(getprogname());
157		exit(1);
158	}
159
160	if ((fd = open(argv[0], O_RDWR, 0)) == -1)
161		err(i, "%s", argv[0]);
162
163	/*
164	 * Make sure it looks like an xcoff file..
165	 */
166	if (read(fd, &fh, sizeof(fh)) != sizeof(fh))
167		err(1, "%s reading header", argv[0]);
168
169	i = be16toh(*(uint16_t *)fh.f_magic);
170	if ((i != U802WRMAGIC) && (i != U802ROMAGIC) && (i != U802TOCMAGIC))
171		errx(1, "%s: not a valid xcoff file", argv[0]);
172
173	/* Does the AOUT "Optional header" make sense? */
174	i = be16toh(*(uint16_t *)fh.f_opthdr);
175
176	if (i == SMALL_AOUTSZ)
177		errx(1, "%s: file has small \"optional\" header, inappropriate for use with %s", argv[0], getprogname());
178	else if (i != sizeof(aoh))
179		errx(1, "%s: invalid \"optional\" header", argv[0]);
180
181	if (read(fd, &aoh, i) != i)
182		err(1, "%s reading \"optional\" header", argv[0]);
183
184	/* Now start filing in the AOUT header */
185	*(uint16_t *)aoh.magic = htobe16(RS6K_AOUTHDR_ZMAGIC);
186	n = be16toh(*(uint16_t *)fh.f_nsect);
187
188	for (i = 0; i < n; i++) {
189		if (read(fd, &sh, sizeof(sh)) != sizeof(sh))
190			err(1, "%s reading section headers", argv[0]);
191		if (strcmp(sh.s_name, ".text") == 0) {
192			*(uint16_t *)(aoh.o_snentry) = htobe16(i+1);
193			*(uint16_t *)(aoh.o_sntext) = htobe16(i+1);
194		} else if (strcmp(sh.s_name, ".data") == 0) {
195			*(uint16_t *)(aoh.o_sndata) = htobe16(i+1);
196		} else if (strcmp(sh.s_name, ".bss") == 0) {
197			*(uint16_t *)(aoh.o_snbss) = htobe16(i+1);
198		}
199	}
200
201	/* now write it out */
202	if (pwrite(fd, &aoh, sizeof(aoh), sizeof(struct filehdr))
203			!= sizeof(aoh))
204		err(1, "%s writing modified header", argv[0]);
205	close(fd);
206	exit(0);
207}
208