d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Adapted to new assembler

Browse source
This commit is contained in:
ceriel 1987-02-09 16:49:13 +00:00
parent 4d10540d8d
commit 0d1c90a23e
2 changed files with 25 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
mach/i80/ncg/mach.c
View file

@ -41,19 +41,27 @@ con_part(sz,w) register sz; word w; {
part_size += sz;
}
long atol();
con_mult(sz) word sz; {
long l;
if (argval != 4)
fatal("bad icon/ucon size");
l = atol(str);
fprintf(codefile,".short\t%d\n",(int)l);
fprintf(codefile,".short\t%d\n",(int)(l>>16));
fprintf(codefile,".data4\t%ld\n",atol(str));
}
con_float() {
static int warning_given;
int i = argval;
fatal("no reals");
if (!warning_given) {
fprintf(stderr, "warning: dummy floating point constant\n");
warning_given = 1;
}
while (i > 0) {
fputs(".data4 0 !dummy float\n", codefile);
i -= 4;
}
}
@ -93,8 +101,8 @@ mes(type) word type ; {
}
char *segname[] = {
".text",
".data",
".data",
".bss"
".sect .text",
".sect .data",
".sect .rom",
".sect .bss"
};

13
mach/i80/ncg/mach.h
View file

@ -9,15 +9,18 @@
#define cst_fmt "%d"
#define off_fmt "%d"
#define ilb_fmt "I%03x%x"
#define ilb_fmt "I%x_%x"
#define dlb_fmt "_%d"
#define hol_fmt "hol%d"
#define hol_off "%d+hol%d"
#define con_cst(x) fprintf(codefile,".word\t%d\n",x)
#define con_ilb(x) fprintf(codefile,".word\t%s\n",x)
#define con_dlb(x) fprintf(codefile,".word\t%s\n",x)
#define con_cst(x) fprintf(codefile,".data2\t%d\n",x)
#define con_ilb(x) fprintf(codefile,".data2\t%s\n",x)
#define con_dlb(x) fprintf(codefile,".data2\t%s\n",x)
#define fmt_id(sf, st) sprintf(st,"_%s",sf)
#define modhead ".sect .text; .sect .rom; .sect .data; .sect .bss\n"
#define id_first '_'
#define BSS_INIT 0