From 8cbd17b1babc4090db341a7d611fa7d4954c6d23 Mon Sep 17 00:00:00 2001 From: keie Date: Mon, 13 May 1985 11:06:30 +0000 Subject: [PATCH] *** empty log message *** --- mach/m68k2/cv/cv.c | 385 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 385 insertions(+) create mode 100644 mach/m68k2/cv/cv.c diff --git a/mach/m68k2/cv/cv.c b/mach/m68k2/cv/cv.c new file mode 100644 index 000000000..2781307fa --- /dev/null +++ b/mach/m68k2/cv/cv.c @@ -0,0 +1,385 @@ +/* + * (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 + * + */ + +#include +#include "out.h" + +#ifndef NORCSID +static char rcs_id[] = "$Header$" ; +#endif + +/* BUG: + There is a problem with Bleasdale 'nm' and the namelist produced + by this program. + nm always acts as if there were no name list, while adb + understands a.out's with namelists without any complaint. + The cause is unclear. All sizes in the header and file are correct. + Setting the symbol table size to a size smaller than actually + present in the a.out causes 'adb' to produce error messages + about name list problems, but nm suddenly prints the namelist, + INCLUDING the entrie outside the size indicated in the a.out header. +*/ +#define ASSERT(x) switch (2) { case 0: case (x): ; } + +/* + * Header and section table of new format object file. + */ +struct outhead outhead; +struct outsect outsect[S_MAX]; +char *stringarea ; + +char *output_file; +int output_file_created; + +char *program ; + +char flag ; + +#define readf(a, b, c) fread((a), (b), (int)(c), input) +#define writef(a, b, c) fwrite((a), (b), (int)(c), output) + +/* Output file definitions and such */ + +#define HDR_LENGTH 32 + +char hdr[HDR_LENGTH] ; + +#define TEXT 0 +#define ROM 1 +#define DATA 2 +#define BSS 3 +#define LSECT BSS+1 +#define NSECT LSECT+1 + + +#define N_EXT 040 +#define N_UNDEF 00 +#define N_ABS 01 +#define N_TEXT 02 +#define N_DATA 03 +#define N_BSS 04 +#define N_FN 037 + +FILE *input; +FILE *output; + +main(argc, argv) + int argc; + char *argv[]; +{ + register int nsect; + long magic ; + long textsize ; + long datasize ; + + ASSERT(sizeof(struct outhead) == SZ_HEAD); + ASSERT(sizeof(struct outsect) == SZ_SECT); + + input = stdin; output = stdout; + program= argv[0] ; + if ( argc>1 && argv[1][0]=='-' ) { + flag=argv[1][1] ; + argc-- ; argv++ ; + } + switch (argc) { + case 1: break; + case 3: if ((output = fopen(argv[2], "w")) == (FILE *)0) + fatal("Can't write %s.\n", argv[2]); + output_file = argv[2]; + output_file_created = 1; + /* FALLTHROUGH */ + case 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 ( !rhead(input,&outhead) ) + fatal("Reading header failed.\n"); + if (BADMAGIC(outhead)) + fatal("Not an ack object file.\n"); + 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) ; + for ( nsect=0 ; nsectos_flen ; + while (n > 0) { + blk = n > BUFSIZ ? BUFSIZ : n; + readf(buffer, 1, blk); + writef(buffer, 1, blk); + n -= blk; + } + if ( section->os_flen!=section->os_size ) { + for ( n=BUFSIZ-1 ; n ; n-- ) buffer[n]=0 ; + n= section->os_size - section->os_flen ; + while (n > 0) { + blk = n > BUFSIZ ? BUFSIZ : n; + writef(buffer, 1, blk); + n -= blk; + } + } +} + +/* + * Copy the name table, except the last outhead.oh_nsect. + * These are assumed to be section names. + * + */ +names() +{ + register ushort n = outhead.oh_nname - outhead.oh_nsect; + int type = 0 ; + struct outname outname ; + char buffer[100] ; + char *s1, *s2 ; + long length, fullength ; + + fseek(input,OFF_CHAR(outhead),0) ; + chars() ; + if ( !stringarea ) return ; + fseek(input,OFF_NAME(outhead),0) ; + fullength=0 ; buffer[1]=0 ; + while (n--) { + rname(input,&outname) ; + if (outname.on_foff == 0) + continue ; + if (outname.on_type & S_ETC ) { + switch (outname.on_type & S_ETC ) { + /* ??? + case S_FIL : + type |= N_FN ; + */ + case S_COM : + break ; + default : + continue ; + } + } + set4(buffer,2,outname.on_valu ) ; + switch (outname.on_type & S_TYP) { + case S_UND: + type = N_UNDEF; + break; + case S_ABS: + type = N_ABS; + break; + case S_MIN + TEXT: + type = N_TEXT; + break; + case S_MIN + DATA: + type = N_DATA; + break; + case S_MIN + BSS: + case S_MIN + LSECT: + type = N_BSS; + break ; + } + + if (outname.on_type & S_EXT) + type |= N_EXT; + buffer[0]= type ; + s1=buffer+6 ; s2= stringarea+outname.on_foff-OFF_CHAR(outhead); + length= 6 ; + while ( (++length 0) { + blk = n > BUFSIZ ? BUFSIZ : n; + readf(curr, 1, blk); + curr += blk ; + n -= blk; + } +} +rhead(f,head) struct outhead *head ; FILE *f ; { + char buf[SZ_HEAD] ; + if ( fread(buf,SZ_HEAD,1,f)!=1 ) return 0 ; + iconvert(buf,(char *)head,SF_HEAD) ; + return 1 ; +} + +rsect(f,sect) struct outsect *sect ; FILE *f ; { + char buf[SZ_SECT] ; + if ( fread(buf,SZ_SECT,1,f)!=1 ) return 0 ; + iconvert(buf,(char *)sect,SF_SECT) ; + return 1 ; +} + +rrelo(f,relo) struct outrelo *relo ; FILE *f ; { + char buf[SZ_RELO] ; + if ( fread(buf,SZ_RELO,1,f)!=1 ) return 0 ; + iconvert(buf,(char *)relo,SF_RELO) ; + return 1 ; +} + +rname(f,name) struct outname *name ; FILE *f ; { + char buf[SZ_NAME] ; + if ( fread(buf,SZ_NAME,1,f)!=1 ) return 0 ; + iconvert(buf,(char *)name,SF_NAME) ; + return 1 ; +} + +iconvert(buf,str,fmt) char *buf, *str, *fmt ; { + register char *nf, *ni, *no ; + int last, i ; + long value ; + ni=buf ; no=str ; nf=fmt ; + while ( last = *nf++ ) { + last -= '0' ; + if ( last<1 || last >9 ) fatal("illegal out.h format string\n"); + value=0 ; + i=last ; + while ( i-- ) { + value = (value<<8) + (ni[i]&0xFF) ; + } + switch ( last ) { + case 0 : break ; + case 1 : *no= value ; break ; + case 2 : *(unsigned short *)no = value ; break ; + case 4 : *(long *)no = value ; break ; + default : + fatal("illegal out.h format string\n"); + } + ni += last ; no += last ; + } +} + +set2(buf,off,val) char *buf ; int val ; { + buf[off+0] = val>>8 ; + buf[off+1] = val ; +} + +set4(buf,off,val) char *buf ; long val ; { + buf[off] = val>>24 ; + buf[off+1] = val>>16 ; + buf[off+2] = val>>8 ; + buf[off+3] = val ; +} + +/* VARARGS1 */ +fatal(s, a1, a2) + char *s; +{ + fprintf(stderr,"%s: ",program) ; + fprintf(stderr, s, a1, a2); + if (output_file_created) + unlink(output_file); + exit(-1); +} -- 2.34.1