From 4a4153bb8bda46c186d463c2cbd2495c06612106 Mon Sep 17 00:00:00 2001 From: ceriel Date: Wed, 5 Sep 1990 11:54:11 +0000 Subject: [PATCH] Added Xcv.c --- mach/sun3/cv/.distr | 1 + mach/sun3/cv/Makefile | 3 + mach/sun3/cv/Xcv.c | 208 ++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 212 insertions(+) create mode 100644 mach/sun3/cv/Xcv.c diff --git a/mach/sun3/cv/.distr b/mach/sun3/cv/.distr index d7a861d66..17780d574 100644 --- a/mach/sun3/cv/.distr +++ b/mach/sun3/cv/.distr @@ -1,2 +1,3 @@ Makefile cv.c +Xcv.c diff --git a/mach/sun3/cv/Makefile b/mach/sun3/cv/Makefile index 96c314db5..7dc412a93 100644 --- a/mach/sun3/cv/Makefile +++ b/mach/sun3/cv/Makefile @@ -15,6 +15,9 @@ cmp: all cv: cv.o $(CC) $(LDFLAGS) -o cv cv.o $(LIBOBJ) +Xcv: Xcv.o + $(CC) $(LDFLAGS) -o Xcv Xcv.o $(LIBOBJ) + clean: rm -f $(TARGETS) *.o nohup.out Out diff --git a/mach/sun3/cv/Xcv.c b/mach/sun3/cv/Xcv.c new file mode 100644 index 000000000..b35ed642f --- /dev/null +++ b/mach/sun3/cv/Xcv.c @@ -0,0 +1,208 @@ +/* $Header$ */ +/* + * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands. + * See the copyright notice in the ACK home directory, in the file "Copyright". + * + */ + +/* + * Convert SUN-3 object format to ACK object format + */ +#include +#include +#include + +/* + * Header and section table of new format object file. + */ +struct outhead outhead; +struct outsect outsect[4]; + +#define TEXTSG 0 +#define ROMSG 1 +#define DATASG 2 +#define BSSSG 3 + +char *output_file; + +char *program ; + +char flag ; + +#define readf(a, b, c) fread((a), (b), (int)(c), input) + +/* Output file definitions and such */ + +struct exec bh; + +FILE *input; + +struct outname *oname = 0; +char *strings = 0; +char *txt = 0; +char *data = 0; +unsigned nstrings; + +main(argc, argv) + int argc; + char *argv[]; +{ + register struct outsect *p; + char *malloc(); + + input = stdin; + program= argv[0] ; + if ( argc>1 && argv[1][0]=='-' ) { + flag=argv[1][1] ; + argc-- ; argv++ ; + } + switch (argc) { + case 3: if (! wr_open(argv[2])) + fatal("Can't write %s.\n", argv[2]); + output_file = argv[2]; + if ((input = fopen(argv[1], "r")) == (FILE *)0) + fatal("Can't read %s.\n", argv[1]); + break; + default:fatal("Usage: %s .\n", argv[0]); + } + if (! readf(&bh, sizeof(struct exec), 1)) rd_fatal(); + if (N_BADMAG(bh)) fatal("bad magic number\n"); + outhead.oh_magic = O_MAGIC; + outhead.oh_stamp = 0; + outhead.oh_nsect = 4; + outhead.oh_nname = 3 + bh.a_syms / sizeof(struct nlist); + outhead.oh_nrelo = (bh.a_trsize + bh.a_drsize) / sizeof(struct reloc_info_68k); + outhead.oh_flags = outhead.oh_nrelo ? HF_LINK : 0; + outhead.oh_nemit = bh.a_text + bh.a_data - (bh.a_magic == ZMAGIC ? sizeof(struct exec) : 0); + fseek(input, N_STROFF(bh), 0); + nstrings = getw(input); + strings = malloc(nstrings + 20); + oname = (struct outname *) + malloc((unsigned) (3 + bh.a_syms / sizeof(struct nlist)) * sizeof (struct outname)); + txt = malloc(bh.a_text); + data = malloc(bh.a_data); + if (!strings || !oname || !txt || !data) { + fatal("No memory\n"); + } + if (! readf(strings, nstrings, 1)) rd_fatal(); + p = &outsect[TEXTSG]; + p->os_base = N_TXTADDR(bh); p->os_size = p->os_flen = bh.a_text; + if (bh.a_magic == ZMAGIC) { + p->os_base += sizeof(struct exec); + p->os_size -= sizeof(struct exec); + p->os_flen -= sizeof(struct exec); + p->os_foff = OFF_EMIT(outhead); p->os_lign = 1; + } + p = &outsect[ROMSG]; + p->os_base = (p-1)->os_base + (p-1)->os_size; + p->os_size = p->os_flen = 0; + p->os_foff = OFF_EMIT(outhead) + bh.a_text; p->os_lign = 1; + p = &outsect[DATASG]; + p->os_base = N_DATADDR(bh); p->os_size = p->os_flen = bh.a_data; + p->os_foff = OFF_EMIT(outhead) + (p-2)->os_flen; + p->os_lign = bh.a_magic == ZMAGIC ? 0x20000 : 1; + p = &outsect[BSSSG]; + p->os_base = N_BSSADDR(bh); + p->os_flen = 0; p->os_size = bh.a_bss; + p->os_foff = OFF_EMIT(outhead)+(p-1)->os_foff + (p-1)->os_flen; + p->os_lign = 1; + + if (bh.a_magic == ZMAGIC) bh.a_text -= sizeof(struct exec); + fseek(input, sizeof(struct exec), 0); + if (bh.a_text && ! readf(txt, 1, bh.a_text)) rd_fatal(); + if (bh.a_data && ! readf(data, 1, bh.a_data)) rd_fatal(); + + symtab(oname, strings); + wr_ohead(&outhead); + wr_sect(outsect, 4); + wr_outsect(TEXTSG); + wr_emit(txt, bh.a_text); + wr_outsect(DATASG); + wr_emit(data,bh.a_data); + wr_name(oname, outhead.oh_nname); + wr_string(strings, outhead.oh_nchar); + wr_close(); + exit(0); +} + +symtab(name, string) + struct outname *name; + char *string; +{ + register struct outname *oname = name; + register char *strings = string+nstrings; + register int c; + register char *b; + struct nlist n; + + oname->on_valu = 0; oname->on_foff = strings - string + OFF_CHAR(outhead); oname->on_desc = 0; + oname->on_type = (S_MIN+TEXTSG) | S_SCT; + b = ".text"; while (*strings++ = *b) b++; + oname++; + oname->on_valu = 0; oname->on_foff = strings - string + OFF_CHAR(outhead); oname->on_desc = 0; + oname->on_type = (S_MIN+DATASG) | S_SCT; + b = ".data"; while (*strings++ = *b) b++; + oname++; + oname->on_valu = 0; oname->on_foff = strings - string + OFF_CHAR(outhead); oname->on_desc = 0; + oname->on_type = (S_MIN+BSSSG) | S_SCT; + b = ".bss"; while (*strings++ = *b) b++; + oname++; + outhead.oh_nchar = strings - string; + while (bh.a_syms > 0) { + if (! readf(&n, sizeof(struct nlist), 1)) rd_fatal(); + bh.a_syms -= sizeof(struct nlist); + oname->on_desc = n.n_desc; + if (n.n_un.n_strx - 4 < 0) oname->on_foff = 0; + else oname->on_foff = OFF_CHAR(outhead) - 4 + n.n_un.n_strx; + oname->on_valu = n.n_value; + + if (n.n_type & N_STAB) { + oname->on_type = n.n_type << 8; + oname++; + continue; + } + switch(n.n_type & ~N_EXT) { + case N_ABS: + oname->on_type = S_ABS; + break; + case N_TEXT: + oname->on_type = S_MIN + TEXTSG; + break; + case N_DATA: + oname->on_type = S_MIN + DATASG; + oname->on_valu -= bh.a_text; + break; + case N_BSS: + oname->on_type = S_MIN + BSSSG; + oname->on_valu -= bh.a_text + bh.a_data; + break; + case N_UNDF: + if (! oname->on_valu) { + oname->on_type = S_UND; + break; + } + oname->on_type = (S_MIN + BSSSG) | S_COM; + break; + case N_FN: + oname->on_type = S_FIL; + break; + default: + fatal("Illegal type field %d in namelist\n", c); + } + if (n.n_type & N_EXT) oname->on_type |= S_EXT; + oname++; + } +} + +/* VARARGS1 */ +fatal(s, a1, a2) + char *s; +{ + fprintf(stderr,"%s: ",program) ; + fprintf(stderr, s, a1, a2); + unlink(output_file); + exit(-1); +} + +wr_fatal() { fatal("Write error\n"); } +rd_fatal() { fatal("Read error\n"); } -- 2.34.1