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

*** empty log message ***

Browse source
This commit is contained in:
ceriel 1987-02-09 16:39:05 +00:00
parent 78a60d9959
commit e83991f533
2 changed files with 26 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
mach/z80/cg/mach.c
View file

@ -43,18 +43,28 @@ con_part(sz,w) register sz; word w; {
} }
con_mult(sz) word sz; { con_mult(sz) word sz; {
long l; long atol();
if (argval != 4) if (argval != 4)
fatal("bad icon/ucon size"); fatal("bad icon/ucon size");
l = atol(str); fprintf(codefile, ".data4\t%ld\n", atol(str));
fprintf(codefile,".short\t%d\n",(int)l);
fprintf(codefile,".short\t%d\n",(int)(l>>16));
} }
con_float() { con_float() {
static int been_here;
int sz = argval;
fatal("no reals"); if (sz != 4 && sz != 8) {
fatal("bad fcon size");
}
if (! been_here) {
been_here = 1;
fprintf(stderr,"warning: dummy floating constant(s)\n");
}
while (sz) {
fprintf(codefile, ".data4 0 !dummy float\n");
sz -= 4;
}
} }
@ -96,8 +106,8 @@ mes(type) word type ; {
} }
char *segname[] = { char *segname[] = {
".text", ".sect .text",
".data", ".sect .data",
".data", ".sect .rom",
".bss" ".sect .bss"
}; };

13
mach/z80/cg/mach.h
View file

@ -12,7 +12,7 @@
#define cst_fmt "%d" #define cst_fmt "%d"
#define off_fmt "%d" #define off_fmt "%d"
#define ilb_fmt "I%03x%x" #define ilb_fmt "I%x_%x"
#define dlb_fmt "_%d" #define dlb_fmt "_%d"
#define hol_fmt "hol%d" #define hol_fmt "hol%d"
@ -20,11 +20,12 @@
#define arg_off "4+%d(bp)" #define arg_off "4+%d(bp)"
#define hol_off "%d+hol%d" #define hol_off "%d+hol%d"
#define con_cst(x) fprintf(codefile,".word\t%d\n",x) #define con_cst(x) fprintf(codefile,".data2\t%d\n",x)
#define con_ilb(x) fprintf(codefile,".word\t%s\n",x) #define con_ilb(x) fprintf(codefile,".data2\t%s\n",x)
#define con_dlb(x) fprintf(codefile,".word\t%s\n",x) #define con_dlb(x) fprintf(codefile,".data2\t%s\n",x)
#define modhead "" #define modhead ".sect .text; .sect .rom; .sect .data; .sect .bss\n"
#define fmt_id(fs, ft) sprintf(ft, "_%s", fs)
#define id_first '_'
#define BSS_INIT 0 #define BSS_INIT 0