|
@@ -0,0 +1,560 @@
|
|
|
+/*
|
|
|
+ * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
+ *
|
|
|
+ * This product is part of the Amsterdam Compiler Kit.
|
|
|
+ *
|
|
|
+ * Permission to use, sell, duplicate or disclose this software must be
|
|
|
+ * obtained in writing. Requests for such permissions may be sent to
|
|
|
+ *
|
|
|
+ * Dr. Andrew S. Tanenbaum
|
|
|
+ * Wiskundig Seminarium
|
|
|
+ * Vrije Universiteit
|
|
|
+ * Postbox 7161
|
|
|
+ * 1007 MC Amsterdam
|
|
|
+ * The Netherlands
|
|
|
+ *
|
|
|
+ */
|
|
|
+
|
|
|
+/*
|
|
|
+ * Convert ACK a.out file to SUN3 object format.
|
|
|
+ */
|
|
|
+
|
|
|
+#include <stdio.h>
|
|
|
+#include <out.h>
|
|
|
+#include <assert.h>
|
|
|
+
|
|
|
+long lseek();
|
|
|
+
|
|
|
+#define OMAGIC 0407 /* old-fashioned */
|
|
|
+#define NMAGIC 0410 /* text write protexted */
|
|
|
+#define ZMAGIC 0413 /* demand paging */
|
|
|
+
|
|
|
+#define MACH 2
|
|
|
+
|
|
|
+struct bhdr {
|
|
|
+ short machtype;
|
|
|
+ short magic;
|
|
|
+ long tsize;
|
|
|
+ long dsize;
|
|
|
+ long bsize;
|
|
|
+ long ssize;
|
|
|
+ long entry;
|
|
|
+ long rtsize;
|
|
|
+ long rdsize;
|
|
|
+};
|
|
|
+
|
|
|
+struct machrelo {
|
|
|
+ long address;
|
|
|
+ long relodata;
|
|
|
+};
|
|
|
+#define setpcrel(X,f) (X |= (f<<7))
|
|
|
+#define setsymbolnum(X,n) (X = (X & 0377) | ((long)n << 8))
|
|
|
+#define setextern(X,f) (X |= (f << 4))
|
|
|
+#define setlength(X,l) (X = (X & ~0x60)|((long) l << 5))
|
|
|
+
|
|
|
+struct sym {
|
|
|
+ long name;
|
|
|
+ char type;
|
|
|
+ char other;
|
|
|
+ short desc;
|
|
|
+ long value;
|
|
|
+};
|
|
|
+
|
|
|
+#define N_UNDF 0
|
|
|
+#define N_ABS 02
|
|
|
+#define N_TEXT 04
|
|
|
+#define N_DATA 06
|
|
|
+#define N_BSS 010
|
|
|
+#define N_EXT 01
|
|
|
+#define N_FN 0x1f
|
|
|
+
|
|
|
+/*
|
|
|
+ * Header and section table of new format object file.
|
|
|
+ */
|
|
|
+struct outhead outhead;
|
|
|
+struct outsect outsect[S_MAX];
|
|
|
+
|
|
|
+char *output_file;
|
|
|
+int outputfile_created;
|
|
|
+long magic;
|
|
|
+
|
|
|
+int rom_in_data;
|
|
|
+
|
|
|
+char *program ;
|
|
|
+
|
|
|
+char flag ;
|
|
|
+
|
|
|
+/* Output file definitions and such */
|
|
|
+
|
|
|
+struct bhdr bh;
|
|
|
+
|
|
|
+#define ENTRY 0x02000
|
|
|
+#define TOT_HDRSIZE (sizeof(struct bhdr))
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+#define TEXTSG 0
|
|
|
+#define ROMSG 1
|
|
|
+#define DATASG 2
|
|
|
+#define BSSSG 3
|
|
|
+#define LSECT BSSSG+1
|
|
|
+#define NSECT LSECT+1
|
|
|
+
|
|
|
+int output;
|
|
|
+
|
|
|
+int unresolved;
|
|
|
+long textsize ;
|
|
|
+long datasize ;
|
|
|
+long bsssize;
|
|
|
+
|
|
|
+main(argc, argv)
|
|
|
+ int argc;
|
|
|
+ char *argv[];
|
|
|
+{
|
|
|
+ register int nsect;
|
|
|
+
|
|
|
+ program= argv[0] ;
|
|
|
+ if ( argc>1 && argv[1][0]=='-' ) {
|
|
|
+ flag=argv[1][1] ;
|
|
|
+ argc-- ; argv++ ;
|
|
|
+ }
|
|
|
+ switch (argc) {
|
|
|
+ case 3: if ((output = creat(argv[2], 0644)) < 0 ||
|
|
|
+ (close(output), output = open(argv[2],2)) < 0)
|
|
|
+ fatal("Can't write %s.\n", argv[2]);
|
|
|
+ output_file = argv[2];
|
|
|
+ outputfile_created = 1;
|
|
|
+ if (! rd_open(argv[1]))
|
|
|
+ fatal("Can't read %s.\n", argv[1]);
|
|
|
+ break;
|
|
|
+ default:fatal("Usage: %s <ACK object> <Sun object>.\n", argv[0]);
|
|
|
+ }
|
|
|
+ rd_ohead(&outhead);
|
|
|
+ if (BADMAGIC(outhead))
|
|
|
+ fatal("Not an ack object file.\n");
|
|
|
+ if (outhead.oh_flags & HF_LINK) {
|
|
|
+ unresolved++;
|
|
|
+ fprintf(stderr,"Warning: contains unresolved references.\n");
|
|
|
+ }
|
|
|
+ else if (outhead.oh_nrelo > 0)
|
|
|
+ fprintf(stderr, "Warning: relocation information present.\n");
|
|
|
+ if ( outhead.oh_nsect!=LSECT && outhead.oh_nsect!=NSECT )
|
|
|
+ fatal("Input file must have %d sections, not %ld\n",
|
|
|
+ NSECT,outhead.oh_nsect) ;
|
|
|
+ rd_sect(outsect, outhead.oh_nsect);
|
|
|
+ /* A few checks */
|
|
|
+ if ( outsect[BSSSG].os_flen != 0 )
|
|
|
+ fatal("bss space contains initialized data\n") ;
|
|
|
+ if ( !unresolved && outsect[BSSSG].os_base != outsect[DATASG].os_base+
|
|
|
+ outsect[DATASG].os_size )
|
|
|
+ fatal("bss segment must follow data segment\n") ;
|
|
|
+ if ( outsect[ROMSG].os_lign == 0x20000 ) {
|
|
|
+ /* 410/413 file with ROMSG in data space */
|
|
|
+ rom_in_data = 1;
|
|
|
+ magic= NMAGIC ;
|
|
|
+ textsize= outsect[TEXTSG].os_size ;
|
|
|
+ datasize= outsect[ROMSG].os_size + outsect[DATASG].os_size ;
|
|
|
+ if ( outsect[DATASG].os_base != outsect[ROMSG].os_base+
|
|
|
+ outsect[ROMSG].os_size )
|
|
|
+ fatal("data segment must follow rom\n") ;
|
|
|
+ } else
|
|
|
+ if ( outsect[DATASG].os_lign == 0x20000 ) {
|
|
|
+ /* 410/413 file with ROMSG in instruction space */
|
|
|
+ rom_in_data = 0;
|
|
|
+ magic= NMAGIC ;
|
|
|
+ textsize= outsect[TEXTSG].os_size + outsect[ROMSG].os_size ;
|
|
|
+ datasize= outsect[DATASG].os_size ;
|
|
|
+ if ( outsect[ROMSG].os_base != outsect[TEXTSG].os_base+
|
|
|
+ outsect[TEXTSG].os_size )
|
|
|
+ fatal("rom segment must follow text\n") ;
|
|
|
+ } else {
|
|
|
+ /* Plain 407 file */
|
|
|
+ rom_in_data = 0;
|
|
|
+ magic= OMAGIC ;
|
|
|
+ textsize= outsect[TEXTSG].os_size + outsect[ROMSG].os_size ;
|
|
|
+ datasize= outsect[DATASG].os_size ;
|
|
|
+ if (!unresolved) {
|
|
|
+ if (outsect[ROMSG].os_base != outsect[TEXTSG].os_base+
|
|
|
+ outsect[TEXTSG].os_size )
|
|
|
+ fatal("rom segment must follow text\n") ;
|
|
|
+ if ( outsect[DATASG].os_base != outsect[ROMSG].os_base+
|
|
|
+ outsect[ROMSG].os_size )
|
|
|
+ fatal("data segment must follow rom\n") ;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ if (outsect[TEXTSG].os_base == TOT_HDRSIZE+ENTRY) {
|
|
|
+ if (magic != NMAGIC) {
|
|
|
+ fatal("illegal alignments.\n");
|
|
|
+ }
|
|
|
+ magic = ZMAGIC;
|
|
|
+ textsize = (textsize + TOT_HDRSIZE + (0x2000 - 1)) & ~(0x2000 - 1);
|
|
|
+ datasize = (datasize + (0x2000 - 1)) & ~(0x2000 - 1);
|
|
|
+ }
|
|
|
+ bsssize = outsect[BSSSG].os_size;
|
|
|
+ if ( outhead.oh_nsect==NSECT ) {
|
|
|
+ if ( outsect[LSECT].os_base != outsect[BSSSG].os_base+
|
|
|
+ outsect[BSSSG].os_size )
|
|
|
+ fatal("end segment must follow bss\n") ;
|
|
|
+ if ( outsect[LSECT].os_size != 0 )
|
|
|
+ fatal("end segment must be empty\n") ;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (magic != OMAGIC && unresolved) {
|
|
|
+ fatal("unresolved references with wrong magic number\n");
|
|
|
+ }
|
|
|
+
|
|
|
+ if ((magic == ZMAGIC && outsect[TEXTSG].os_base != TOT_HDRSIZE+ENTRY) ||
|
|
|
+ (magic != ZMAGIC && !unresolved && outsect[TEXTSG].os_base != ENTRY)) {
|
|
|
+ fatal("Illegal entry point.\n");
|
|
|
+ }
|
|
|
+
|
|
|
+ bh.magic = magic;
|
|
|
+ bh.machtype = MACH;
|
|
|
+ bh.tsize = textsize;
|
|
|
+ bh.bsize = bsssize;
|
|
|
+ bh.dsize = datasize;
|
|
|
+ bh.rtsize = 0;
|
|
|
+ bh.rdsize = 0;
|
|
|
+ if (magic == ZMAGIC) bh.entry = TOT_HDRSIZE+ENTRY;
|
|
|
+ else if (!unresolved) bh.entry = ENTRY;
|
|
|
+ else bh.entry = 0;
|
|
|
+
|
|
|
+ /* Action at last */
|
|
|
+ lseek(output,(long) TOT_HDRSIZE,0);
|
|
|
+ emits(&outsect[TEXTSG]) ;
|
|
|
+ if (rom_in_data && magic == ZMAGIC) {
|
|
|
+ lseek(output,textsize,0);
|
|
|
+ }
|
|
|
+ emits(&outsect[ROMSG]) ;
|
|
|
+ if (!rom_in_data && magic == ZMAGIC) {
|
|
|
+ lseek(output,textsize,0);
|
|
|
+ }
|
|
|
+ emits(&outsect[DATASG]) ;
|
|
|
+ if (magic == ZMAGIC) {
|
|
|
+ lseek(output,textsize + datasize,0);
|
|
|
+ }
|
|
|
+ if (unresolved) emit_relo();
|
|
|
+ emit_symtab();
|
|
|
+ bh.ssize = outhead.oh_nname * sizeof(struct sym);
|
|
|
+ lseek(output,0L,0);
|
|
|
+ cvshort(&(bh.machtype));
|
|
|
+ cvshort(&(bh.magic));
|
|
|
+ cvlong(&(bh.tsize));
|
|
|
+ cvlong(&(bh.dsize));
|
|
|
+ cvlong(&(bh.bsize));
|
|
|
+ cvlong(&(bh.ssize));
|
|
|
+ cvlong(&(bh.entry));
|
|
|
+ cvlong(&(bh.rtsize));
|
|
|
+ cvlong(&(bh.rdsize));
|
|
|
+ writef(&bh, 1, (long) TOT_HDRSIZE);
|
|
|
+ if ( outputfile_created && !unresolved ) chmod(argv[2],0755);
|
|
|
+ return 0;
|
|
|
+}
|
|
|
+
|
|
|
+writef(addr,sz,cnt)
|
|
|
+ char *addr;
|
|
|
+ long cnt;
|
|
|
+{
|
|
|
+ cnt *= sz;
|
|
|
+
|
|
|
+ while (cnt) {
|
|
|
+ int i = cnt >= 0x4000 ? 0x4000 : cnt;
|
|
|
+
|
|
|
+ cnt -= i;
|
|
|
+ if (write(output, addr, i) < i) {
|
|
|
+ fatal("write error\n");
|
|
|
+ }
|
|
|
+ addr += i;
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+/*
|
|
|
+ * Transfer the emitted byted from one file to another.
|
|
|
+ */
|
|
|
+emits(section) struct outsect *section ; {
|
|
|
+ char *p;
|
|
|
+ char *calloc();
|
|
|
+ long sz = section->os_flen;
|
|
|
+
|
|
|
+ rd_outsect(section - outsect);
|
|
|
+ while (sz) {
|
|
|
+ unsigned int i = (sz >= 0x4000 ? 0x4000 : sz);
|
|
|
+ if (!(p = calloc(i, 1))) {
|
|
|
+ fatal("No memory.\n");
|
|
|
+ }
|
|
|
+ rd_emit(p, i);
|
|
|
+ if (write(output, p, i) < i) {
|
|
|
+ fatal("write error.\n");
|
|
|
+ }
|
|
|
+ free(p);
|
|
|
+ sz -= i;
|
|
|
+ }
|
|
|
+
|
|
|
+ sz = section->os_size - section->os_flen;
|
|
|
+ while (sz) {
|
|
|
+ unsigned int i = (sz >= 0x4000 ? 0x4000 : sz);
|
|
|
+ if (!(p = calloc(i, 1))) {
|
|
|
+ fatal("No memory.\n");
|
|
|
+ }
|
|
|
+ if (write(output, p, i) < i) {
|
|
|
+ fatal("write error.\n");
|
|
|
+ }
|
|
|
+ free(p);
|
|
|
+ sz -= i;
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+struct outname *ACKnames;
|
|
|
+
|
|
|
+emit_relo()
|
|
|
+{
|
|
|
+ struct outrelo *ACKrelo;
|
|
|
+ struct machrelo *MACHtrelo,*MACHdrelo;
|
|
|
+ register struct outrelo *ap;
|
|
|
+ register struct machrelo *mtp, *mdp;
|
|
|
+ unsigned int cnt = outhead.oh_nrelo;
|
|
|
+
|
|
|
+ ACKrelo = (struct outrelo *) calloc(cnt, sizeof(struct outrelo));
|
|
|
+ MACHtrelo = (struct machrelo *) calloc(cnt, sizeof(struct machrelo));
|
|
|
+ MACHdrelo = (struct machrelo *) calloc(cnt, sizeof(struct machrelo));
|
|
|
+ ACKnames = (struct outname *) calloc(outhead.oh_nname, sizeof(struct outname));
|
|
|
+ if (!(ap = ACKrelo) || !(mtp = MACHtrelo) || !(mdp = MACHdrelo) ||
|
|
|
+ !ACKnames) {
|
|
|
+ fatal("No memory.\n");
|
|
|
+ }
|
|
|
+ rd_relo(ACKrelo, cnt);
|
|
|
+ rd_name(ACKnames, outhead.oh_nname);
|
|
|
+ while (cnt-- != 0) {
|
|
|
+ register struct machrelo *mp;
|
|
|
+
|
|
|
+ if (ap->or_sect - S_MIN <= ROMSG) mp = mtp++;
|
|
|
+ else mp = mdp++;
|
|
|
+ setlength(mp->relodata,(ap->or_type&RELSZ) >> 1);
|
|
|
+ setpcrel(mp->relodata,(ap->or_type&RELPC != 0));
|
|
|
+ mp->address = ap->or_addr;
|
|
|
+ if (ap->or_sect == ROMSG+S_MIN) {
|
|
|
+ mp->address += outsect[TEXTSG].os_size;
|
|
|
+ }
|
|
|
+ if (ap->or_nami < outhead.oh_nname) {
|
|
|
+ if (ACKnames[ap->or_nami].on_type & S_EXT) {
|
|
|
+ setsymbolnum(mp->relodata, ap->or_nami);
|
|
|
+ setextern(mp->relodata,1);
|
|
|
+ }
|
|
|
+ else {
|
|
|
+ patch(ap, &ACKnames[ap->or_nami], mp);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ else {
|
|
|
+ setsymbolnum(mp->relodata, N_ABS);
|
|
|
+ }
|
|
|
+ cvlong(&(mp->address));
|
|
|
+ cvlong(&(mp->relodata));
|
|
|
+ ap++;
|
|
|
+ }
|
|
|
+ bh.rtsize = (char *) mtp - (char *) MACHtrelo;
|
|
|
+ bh.rdsize = (char *) mdp - (char *) MACHdrelo;
|
|
|
+ writef(MACHtrelo, 1, bh.rtsize);
|
|
|
+ writef(MACHdrelo, 1, bh.rdsize);
|
|
|
+ free(ACKrelo);
|
|
|
+ free(MACHtrelo);
|
|
|
+ free(MACHdrelo);
|
|
|
+}
|
|
|
+
|
|
|
+long
|
|
|
+get(sz)
|
|
|
+{
|
|
|
+ char buf[10];
|
|
|
+ long l = 0;
|
|
|
+ register char *p = buf;
|
|
|
+
|
|
|
+ read(output,buf,sz);
|
|
|
+ while (sz--) {
|
|
|
+ l = (l << 8) | (*p++ & 0377);
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+put(l,sz)
|
|
|
+ long l;
|
|
|
+{
|
|
|
+ char buf[10];
|
|
|
+ register char *p;
|
|
|
+
|
|
|
+ *p++ = l >> 24;
|
|
|
+ *p++ = l >> 16;
|
|
|
+ *p++ = l >> 8;
|
|
|
+ *p++ = l;
|
|
|
+ p -= sz;
|
|
|
+ if (write(output, p, sz) < sz) {
|
|
|
+ fatal("write error.\n");
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+patch(ap, an, mp)
|
|
|
+ register struct outrelo *ap;
|
|
|
+ register struct outname *an;
|
|
|
+ register struct machrelo *mp;
|
|
|
+{
|
|
|
+ int whichsect = (an->on_type & S_TYP) - S_MIN;
|
|
|
+ long correction = 0;
|
|
|
+ long where = TOT_HDRSIZE+ap->or_addr;
|
|
|
+ long X;
|
|
|
+ long here;
|
|
|
+ int sz;
|
|
|
+
|
|
|
+ if (!(an->on_type & S_SCT)) {
|
|
|
+ fprintf(stderr,"funny on_type %x\n", an->on_type);
|
|
|
+ }
|
|
|
+ switch(whichsect) {
|
|
|
+ case TEXTSG:
|
|
|
+ setsymbolnum(mp->relodata,N_TEXT);
|
|
|
+ return;
|
|
|
+ case DATASG:
|
|
|
+ correction = outsect[ROMSG].os_size + outsect[TEXTSG].os_size;
|
|
|
+ setsymbolnum(mp->relodata,N_DATA);
|
|
|
+ break;
|
|
|
+ case ROMSG:
|
|
|
+ correction += outsect[TEXTSG].os_size;
|
|
|
+ setsymbolnum(mp->relodata,N_TEXT);
|
|
|
+ break;
|
|
|
+ default:
|
|
|
+ assert(0);
|
|
|
+ }
|
|
|
+
|
|
|
+ switch(ap->or_sect - S_MIN) {
|
|
|
+ case DATASG:
|
|
|
+ where += outsect[ROMSG].os_size;
|
|
|
+ case ROMSG:
|
|
|
+ where += outsect[TEXTSG].os_size;
|
|
|
+ case TEXTSG:
|
|
|
+ break;
|
|
|
+ default:
|
|
|
+ assert(0);
|
|
|
+ }
|
|
|
+ here = lseek(output, 0L, 1);
|
|
|
+ lseek(output, where, 0);
|
|
|
+ sz = ap->or_type & RELSZ;
|
|
|
+ X = get(sz) + correction;
|
|
|
+ lseek(output, where, 0);
|
|
|
+ put(X,sz);
|
|
|
+ lseek(output, here, 0);
|
|
|
+}
|
|
|
+
|
|
|
+cvlong(l)
|
|
|
+ long *l;
|
|
|
+{
|
|
|
+ long x = *l;
|
|
|
+ char *p = (char *) l;
|
|
|
+
|
|
|
+ *p++ = x >> 24;
|
|
|
+ *p++ = x >> 16;
|
|
|
+ *p++ = x >> 8;
|
|
|
+ *p = x;
|
|
|
+}
|
|
|
+
|
|
|
+cvshort(s)
|
|
|
+ short *s;
|
|
|
+{
|
|
|
+ short x = *s;
|
|
|
+ char *p = (char *) s;
|
|
|
+
|
|
|
+ *p++ = x >> 8;
|
|
|
+ *p = x;
|
|
|
+}
|
|
|
+
|
|
|
+emit_symtab()
|
|
|
+{
|
|
|
+ register unsigned short i = outhead.oh_nname;
|
|
|
+ register struct outname *A;
|
|
|
+ struct sym *MACHnames;
|
|
|
+ register struct sym *M;
|
|
|
+ extern char *malloc(), *calloc();
|
|
|
+ char *chars;
|
|
|
+ long offX = OFF_CHAR(outhead) - 4;
|
|
|
+
|
|
|
+ if (!(A = ACKnames)) {
|
|
|
+ if (!(A = (struct outname *)
|
|
|
+ calloc(i, sizeof(struct outname)))) {
|
|
|
+ fatal("No memory.\n");
|
|
|
+ }
|
|
|
+ rd_name(A, outhead.oh_nname);
|
|
|
+ }
|
|
|
+ if (!(M = (struct sym *) calloc(i, sizeof(struct sym)))) {
|
|
|
+ fatal("No memory.\n");
|
|
|
+ }
|
|
|
+ MACHnames = M;
|
|
|
+ ACKnames = A;
|
|
|
+ for (; i; i--, A++, M++) {
|
|
|
+ M->value = A->on_valu;
|
|
|
+ switch(A->on_type & S_TYP) {
|
|
|
+ case S_UND:
|
|
|
+ M->type = N_UNDF;
|
|
|
+ break;
|
|
|
+ case S_ABS:
|
|
|
+ M->type = N_ABS;
|
|
|
+ break;
|
|
|
+ case S_MIN + TEXTSG:
|
|
|
+ if (! A->on_type & S_COM) {
|
|
|
+ M->value += outsect[TEXTSG].os_base;
|
|
|
+ }
|
|
|
+ M->type = N_TEXT;
|
|
|
+ break;
|
|
|
+ case S_MIN + ROMSG:
|
|
|
+ M->type = (rom_in_data ? N_DATA : N_TEXT);
|
|
|
+ if (! A->on_type & S_COM) {
|
|
|
+ M->value += outsect[ROMSG].os_base;
|
|
|
+ }
|
|
|
+ break;
|
|
|
+ case S_MIN + DATASG:
|
|
|
+ M->type = N_DATA;
|
|
|
+ if (! A->on_type & S_COM) {
|
|
|
+ M->value += outsect[DATASG].os_base;
|
|
|
+ }
|
|
|
+ break;
|
|
|
+ case S_MIN + BSSSG:
|
|
|
+ M->type = N_BSS;
|
|
|
+ if (! A->on_type & S_COM) {
|
|
|
+ M->value += outsect[BSSSG].os_base;
|
|
|
+ }
|
|
|
+ break;
|
|
|
+ case S_MIN + LSECT:
|
|
|
+ M->type = N_BSS;
|
|
|
+ if (! A->on_type & S_COM) {
|
|
|
+ M->value += outsect[LSECT].os_base;
|
|
|
+ }
|
|
|
+ break;
|
|
|
+ default:
|
|
|
+ fprintf(stderr,"warning: unknown s_type: %d\n",
|
|
|
+ A->on_type & S_TYP);
|
|
|
+ }
|
|
|
+ if (A->on_type & S_EXT) M->type |= N_EXT;
|
|
|
+ if (M->name = A->on_foff) {
|
|
|
+ M->name -= offX;
|
|
|
+ }
|
|
|
+ cvlong(&(M->name));
|
|
|
+ cvlong(&(M->value));
|
|
|
+ }
|
|
|
+ writef(MACHnames, sizeof(struct sym), (long) outhead.oh_nname);
|
|
|
+ free(MACHnames);
|
|
|
+ free(ACKnames);
|
|
|
+ if ((unsigned) outhead.oh_nchar != outhead.oh_nchar ||
|
|
|
+ !( chars = malloc((unsigned) outhead.oh_nchar))) {
|
|
|
+ fatal("No memory\n.");
|
|
|
+ }
|
|
|
+ put(outhead.oh_nchar+4,4);
|
|
|
+ rd_string(chars,outhead.oh_nchar);
|
|
|
+ writef(chars, 1, outhead.oh_nchar);
|
|
|
+ free(chars);
|
|
|
+}
|
|
|
+
|
|
|
+/* VARARGS1 */
|
|
|
+fatal(s, a1, a2)
|
|
|
+ char *s;
|
|
|
+{
|
|
|
+ fprintf(stderr,"%s: ",program) ;
|
|
|
+ fprintf(stderr, s, a1, a2);
|
|
|
+ if (outputfile_created)
|
|
|
+ unlink(output_file);
|
|
|
+ exit(-1);
|
|
|
+}
|
|
|
+
|
|
|
+rd_fatal() { fatal("read error.\n"); }
|