Albert Koelmans newest version
This commit is contained in:
ceriel
parent
03a25ece8a
commit
ff117d9f0b
2 changed files with 234 additions and 85 deletions
|
|
@ -4,13 +4,13 @@ OBJLIB=$(EMHOME)/modules/lib/libobject.a
|
|||
head: cv
|
||||
|
||||
cv: cv.c
|
||||
$(CC) -I$(EMHOME)/h -o cv cv.c $(OBJLIB)
|
||||
$(CC) $(CFLAGS) $(LDFLAGS) -I$(EMHOME)/h -o cv cv.c $(OBJLIB)
|
||||
|
||||
install: head
|
||||
@echo Nothing is installed
|
||||
../../install cv
|
||||
|
||||
cmp: head
|
||||
@echo Nothing is compared
|
||||
../../compare cv
|
||||
|
||||
clean:
|
||||
rm -f *.o
|
||||
|
|
|
|||
313
mach/arm/cv/cv.c
313
mach/arm/cv/cv.c
|
|
@ -1,96 +1,245 @@
|
|||
/*
|
||||
* Conversion from ack a.out to Arthur output format.
|
||||
* All this really does is to output the sections, text first,
|
||||
* with no header or symbol table information.
|
||||
*
|
||||
* Mostly pinched from the code for the m68k2 cv.
|
||||
* V1.0, 08-Mar-89 AJM
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <out.h>
|
||||
#include "out.h"
|
||||
#include "arm.h"
|
||||
struct outhead ohead;
|
||||
struct outsect sect[NSECT];
|
||||
struct armhead ahead;
|
||||
struct chunkhead chead;
|
||||
struct areadec area[NSECT];
|
||||
int fd;
|
||||
|
||||
#define ASSERT(x) switch (2) { case 0: case (x): ; }
|
||||
|
||||
/*
|
||||
* Header and section table of ack object file.
|
||||
*/
|
||||
struct outhead outhead;
|
||||
struct outsect outsect[S_MAX];
|
||||
char *stringarea ;
|
||||
|
||||
char *ofile;
|
||||
int ofile_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
|
||||
|
||||
|
||||
main (argc,argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
#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;
|
||||
|
||||
long align(a,b)
|
||||
long a,b;
|
||||
{
|
||||
if (argc != 3) fatal ("usage: dl ackobj armobj\n");
|
||||
if (! rd_open (*++argv))
|
||||
fatal ("can't open \n");
|
||||
if ((fd = open(*++argv, 1)) <0)
|
||||
fatal ("can't open \n");
|
||||
else {
|
||||
convert ();
|
||||
}
|
||||
a += b - 1;
|
||||
return a - a % b;
|
||||
}
|
||||
|
||||
int
|
||||
follows(pa, pb)
|
||||
register struct outsect *pa, *pb;
|
||||
{
|
||||
/* return 1 if pa follows pb */
|
||||
|
||||
return pa->os_base == align(pb->os_base+pb->os_size, pa->os_lign);
|
||||
}
|
||||
|
||||
convert ()
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
int i,areasize=0;
|
||||
char buf[4];
|
||||
int cnt;
|
||||
register int nsect;
|
||||
long magic ;
|
||||
long textsize ;
|
||||
long datasize ;
|
||||
long ss;
|
||||
|
||||
rd_ohead(&ohead);
|
||||
if (ohead.oh_flags & HF_LINK) {
|
||||
fatal("unresolved references\n");
|
||||
}
|
||||
ahead.chunkfileid = 0xC3CBC6C5;
|
||||
ahead.maxchunks = MAXCHUNK;
|
||||
ahead.numchunks = MAXCHUNK;
|
||||
strncpy(ahead.entries[0].chunkid , "OBJ_HEAD", 8);
|
||||
strncpy(ahead.entries[1].chunkid , "OBJ_AREA", 8);
|
||||
strncpy(ahead.entries[2].chunkid , "OBJ_IDFN", 8);
|
||||
strncpy(ahead.entries[3].chunkid , "OBJ_SYMT", 8);
|
||||
strncpy(ahead.entries[4].chunkid , "OBJ_STRT", 8);
|
||||
ahead.entries[0].offset = sizeof(struct armhead);
|
||||
ahead.entries[0].size = sizeof(struct chunkhead) + ohead.oh_nsect *
|
||||
sizeof(struct areadec);
|
||||
ahead.entries[1].offset = ahead.entries[0].offset+ahead.entries[0].size;
|
||||
chead.objtype = 0xC5E2D080;
|
||||
chead.versionid = 110;
|
||||
chead.narea = ohead.oh_nsect;
|
||||
chead.nsymb = ohead.oh_nname;
|
||||
chead.entrya = 0;
|
||||
chead.entryo = 0;
|
||||
lseek(fd, ahead.entries[1].offset, 0);
|
||||
rd_sect(sect, ohead.oh_nsect);
|
||||
for (i = 0; i < ohead.oh_nsect; i++) {
|
||||
area[i].name=0;
|
||||
area[i].atal=2|1<<7|(i=0?(1<<8):0);
|
||||
area[i].size=sect[i].os_size;
|
||||
area[i].nrel=0;
|
||||
area[i].base=sect[i].os_base;
|
||||
rd_outsect(i);
|
||||
cnt = sect[i].os_flen;
|
||||
areasize += cnt;
|
||||
if (cnt!=sect[i].os_size)
|
||||
area[i].atal |= 1<<11;
|
||||
if (cnt & 3)
|
||||
fatal("alignment error\n");
|
||||
while (cnt){
|
||||
rd_emit(buf, (long)4);
|
||||
write(fd, buf, 4);
|
||||
cnt -= 4;
|
||||
}
|
||||
}
|
||||
ahead.entries[1].size = areasize;
|
||||
lseek(fd, 0, 0);
|
||||
write(fd, &ahead, sizeof(struct armhead));
|
||||
write(fd, &chead, sizeof(struct chunkhead));
|
||||
for(i=1; i<NSECT; i++)
|
||||
write(fd, &area[i], sizeof(struct areadec));
|
||||
close(fd);
|
||||
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]);
|
||||
ofile = argv[2];
|
||||
ofile_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 <ack object> <riscos object>.\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 ; nsect<outhead.oh_nsect ; nsect++ )
|
||||
if ( !rsect(input,&outsect[nsect]) )
|
||||
fatal("Reading section table failed.\n");
|
||||
|
||||
/* A few checks */
|
||||
|
||||
if ( outsect[TEXT].os_base != 0x8000 )
|
||||
fatal("text must start at 0x8000 not at 0x%lx\n",
|
||||
outsect[TEXT].os_base) ;
|
||||
|
||||
if ( outsect[BSS].os_flen != 0 )
|
||||
fatal("bss space contains initialized data\n") ;
|
||||
|
||||
if ( ! follows(&outsect[BSS], &outsect[DATA]))
|
||||
fatal("bss segment must follow data segment\n") ;
|
||||
|
||||
if ( ! follows(& outsect[ROM], &outsect[TEXT]))
|
||||
fatal("rom segment must follow text\n") ;
|
||||
|
||||
if ( ! follows(& outsect[DATA], &outsect[ROM]))
|
||||
fatal("data segment must follow rom\n") ;
|
||||
|
||||
if ( outhead.oh_nsect==NSECT ) {
|
||||
if (! follows(&outsect[LSECT], &outsect[BSS]))
|
||||
fatal("end segment must follow bss\n") ;
|
||||
if ( outsect[LSECT].os_size != 0 )
|
||||
fatal("end segment must be empty\n") ;
|
||||
}
|
||||
|
||||
/* Action at last */
|
||||
fseek(output,0L,0); /* Start of output file */
|
||||
emits(&outsect[TEXT]) ; /* Write out the text segment */
|
||||
emits(&outsect[ROM]) ; /* Then the rom */
|
||||
emits(&outsect[DATA]) ; /* Then the data */
|
||||
|
||||
if ( ferror(output) ) {
|
||||
fatal("output write error\n") ;
|
||||
}
|
||||
if ( ofile_created ) chmod(argv[2],0755);
|
||||
|
||||
ss = 0;
|
||||
printf(" text = %ld\n",outsect[TEXT].os_size);
|
||||
printf(" rom = %ld\n",outsect[ROM].os_size);
|
||||
printf(" data = %ld\n",outsect[DATA].os_size);
|
||||
printf(" bss = %ld\n",outsect[BSS].os_size);
|
||||
ss += outsect[TEXT].os_size;
|
||||
ss += outsect[ROM].os_size;
|
||||
ss += outsect[DATA].os_size;
|
||||
ss += outsect[BSS].os_size;
|
||||
printf("Total memory %ld bytes, plus heap and stack\n",ss);
|
||||
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
fatal(s)
|
||||
char *s;
|
||||
{
|
||||
printf (s);
|
||||
exit (-1);
|
||||
/*
|
||||
* Transfer the emitted byted from one file to another.
|
||||
* and zero fill the uninitialized space
|
||||
*/
|
||||
emits(section) struct outsect *section ; {
|
||||
register long n ;
|
||||
register int blk;
|
||||
char buffer[BUFSIZ];
|
||||
|
||||
n= section->os_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;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
rd_fatal(s)
|
||||
char *s;
|
||||
{
|
||||
printf (s);
|
||||
exit (-1);
|
||||
|
||||
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 ;
|
||||
}
|
||||
|
||||
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 ;
|
||||
}
|
||||
}
|
||||
|
||||
/* VARARGS1 */
|
||||
fatal(s, a1, a2)
|
||||
char *s;
|
||||
{
|
||||
fprintf(stderr,"%s: ",program) ;
|
||||
fprintf(stderr, s, a1, a2);
|
||||
if (ofile_created)
|
||||
unlink(ofile);
|
||||
exit(-1);
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in a new issue