2011-12-16 22:04:51 +00:00
|
|
|
|
/* xa65 - 65xx/65816 cross-assembler and utility suite
|
|
|
|
|
*
|
|
|
|
|
* Copyright (C) 1989-1997 Andr<EFBFBD> Fachat (a.fachat@physik.tu-chemnitz.de)
|
|
|
|
|
*
|
|
|
|
|
* Options module (handles pass options and writing them out to disk)
|
|
|
|
|
*
|
|
|
|
|
* This program is free software; you can redistribute it and/or modify
|
|
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
* (at your option) any later version.
|
|
|
|
|
*
|
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
* GNU General Public License for more details.
|
|
|
|
|
*
|
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
|
* along with this program; if not, write to the Free Software
|
|
|
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
|
|
|
|
|
#include "xah.h"
|
|
|
|
|
#include "xar.h"
|
|
|
|
|
#include "xa.h"
|
|
|
|
|
#include "xat.h"
|
|
|
|
|
#include "xao.h"
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
static Fopt *olist =NULL;
|
|
|
|
|
static int mlist =0;
|
|
|
|
|
static int nlist =0;
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/* sets file option after pass 1 */
|
|
|
|
|
void set_fopt(int l, signed char *buf, int reallen) {
|
|
|
|
|
/*printf("set_fopt(%s, l=%d\n",buf,l);*/
|
|
|
|
|
while(afile->fo.mlist<=afile->fo.nlist) {
|
|
|
|
|
afile->fo.mlist +=5;
|
|
|
|
|
afile->fo.olist = realloc(afile->fo.olist, afile->fo.mlist*sizeof(Fopt));
|
|
|
|
|
if(!afile->fo.olist) {
|
|
|
|
|
fprintf(stderr, "Fatal: Couldn't alloc memory (%lu bytes) for fopt list!\n",
|
|
|
|
|
(unsigned long)(
|
|
|
|
|
afile->fo.mlist*sizeof(Fopt)));
|
|
|
|
|
exit(1);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
afile->fo.olist[afile->fo.nlist].text=malloc(l);
|
|
|
|
|
if(!afile->fo.olist[afile->fo.nlist].text) {
|
|
|
|
|
fprintf(stderr, "Fatal: Couldn't alloc memory (%d bytes) for fopt!\n",l);
|
|
|
|
|
exit(1);
|
|
|
|
|
}
|
|
|
|
|
memcpy(afile->fo.olist[afile->fo.nlist].text, buf, l);
|
|
|
|
|
afile->fo.olist[afile->fo.nlist++].len = reallen;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* writes file options to a file */
|
|
|
|
|
void o_write(FILE *fp) {
|
|
|
|
|
int i,j,l,afl;
|
|
|
|
|
signed char *t;
|
|
|
|
|
|
|
|
|
|
for(i=0;i<afile->fo.nlist;i++) {
|
|
|
|
|
l=afile->fo.olist[i].len;
|
|
|
|
|
t=afile->fo.olist[i].text;
|
|
|
|
|
/* do not optimize */
|
2011-12-16 22:40:05 +00:00
|
|
|
|
t_p2_l(t, &l, &afl);
|
2011-12-16 22:04:51 +00:00
|
|
|
|
|
|
|
|
|
if(l>254) {
|
|
|
|
|
errout(E_OPTLEN);
|
|
|
|
|
} else {
|
|
|
|
|
fputc((l+1)&0xff,fp);
|
|
|
|
|
}
|
|
|
|
|
for(j=0;j<l;j++) {
|
|
|
|
|
fputc(t[j],fp);
|
|
|
|
|
/*printf("%02x ", t[j]); */
|
|
|
|
|
}
|
|
|
|
|
/*printf("\n");*/
|
|
|
|
|
}
|
|
|
|
|
fputc(0,fp); /* end option list */
|
|
|
|
|
|
|
|
|
|
for(i=0;i<afile->fo.nlist;i++) {
|
|
|
|
|
free(afile->fo.olist[i].text);
|
|
|
|
|
}
|
|
|
|
|
free(afile->fo.olist);
|
|
|
|
|
afile->fo.olist = NULL;
|
|
|
|
|
afile->fo.nlist = 0;
|
|
|
|
|
afile->fo.mlist = 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
size_t o_length(void) {
|
|
|
|
|
int i;
|
|
|
|
|
size_t n = 0;
|
|
|
|
|
for(i=0;i<afile->fo.nlist;i++) {
|
|
|
|
|
/*printf("found option: %s, len=%d, n=%d\n", afile->fo.olist[i].text, afile->fo.olist[i].len,n);*/
|
|
|
|
|
n += afile->fo.olist[i].len +1;
|
|
|
|
|
}
|
|
|
|
|
return ++n;
|
|
|
|
|
}
|
|
|
|
|
|