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

Run through clang-format before editing.

Browse source
This commit is contained in:
David Given 2019-02-06 11:50:05 +01:00
parent 73fab341f5
commit b77f616598
1 changed files with 51 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -5,7 +5,7 @@
*/ */
#ifndef NORCSID #ifndef NORCSID
static char rcsid[]= "$Id$" ; static char rcsid[] = "$Id$";
#endif #endif
/* /*
@ -14,80 +14,86 @@ static char rcsid[]= "$Id$" ;
#include <stdlib.h> /* atol */ #include <stdlib.h> /* atol */
void void con_part(sz, w) register sz;
con_part(sz,w) register sz; word w; { word w;
{
while (part_size % sz) while (part_size % sz)
part_size++; part_size++;
if (part_size == 2) if (part_size == 2)
part_flush(); part_flush();
if (sz == 1) { if (sz == 1)
{
w &= 0xFF; w &= 0xFF;
if (part_size) if (part_size)
w <<= 8; w <<= 8;
part_word |= w; part_word |= w;
} else { }
else
{
assert(sz == 2); assert(sz == 2);
part_word = w; part_word = w;
} }
part_size += sz; part_size += sz;
} }
void void con_mult(sz) word sz;
con_mult(sz) word sz; { {
if (argval != 4) if (argval != 4)
fatal("bad icon/ucon size"); fatal("bad icon/ucon size");
fprintf(codefile,".data4\t%ld\n",atol(str)); fprintf(codefile, ".data4\t%ld\n", atol(str));
} }
#define CODE_GENERATOR #define CODE_GENERATOR
#define IEEEFLOAT #define IEEEFLOAT
#define FL_MSL_AT_LOW_ADDRESS 0 #define FL_MSL_AT_LOW_ADDRESS 0
#define FL_MSW_AT_LOW_ADDRESS 0 #define FL_MSW_AT_LOW_ADDRESS 0
#define FL_MSB_AT_LOW_ADDRESS 0 #define FL_MSB_AT_LOW_ADDRESS 0
#include <con_float> #include <con_float>
void void prolog(nlocals) full nlocals;
prolog(nlocals) full nlocals; { {
fprintf(codefile,"\tpush\tb\n\tlxi\th,0\n\tdad\tsp\n\tmov\tb,h\n\tmov\tc,l\n"); fprintf(codefile, "\tpush\tb\n\tlxi\th,0\n\tdad\tsp\n\tmov\tb,h\n\tmov\tc,l\n");
switch (nlocals) { switch (nlocals)
case 4: fprintf(codefile,"\tpush\th\n"); {
case 2: fprintf(codefile,"\tpush\th\n"); case 4:
case 0: break; fprintf(codefile, "\tpush\th\n");
default: case 2:
fprintf(codefile,"\tlxi\th,%d\n\tdad\tsp\n\tsphl\n",-nlocals); fprintf(codefile, "\tpush\th\n");
break; case 0:
break;
default:
fprintf(codefile, "\tlxi\th,%d\n\tdad\tsp\n\tsphl\n", -nlocals);
break;
} }
} }
void void mes(type) word type;
mes(type) word type ; { {
int argt ; int argt;
switch ( (int)type ) { switch ((int)type)
case ms_ext : {
for (;;) { case ms_ext:
switch ( argt=getarg( for (;;)
ptyp(sp_cend)|ptyp(sp_pnam)|sym_ptyp) ) { {
case sp_cend : switch (argt = getarg(ptyp(sp_cend) | ptyp(sp_pnam) | sym_ptyp))
return ; {
default: case sp_cend:
strarg(argt) ; return;
fprintf(codefile,".define %s\n",argstr) ; default:
break ; strarg(argt);
fprintf(codefile, ".define %s\n", argstr);
break;
}
} }
} default:
default : while (getarg(any_ptyp) != sp_cend)
while ( getarg(any_ptyp) != sp_cend ) ; ;
break ; break;
} }
} }
char *segname[] = { char* segname[] = { ".sect .text", ".sect .data", ".sect .rom", ".sect .bss" };
".sect .text",
".sect .data",
".sect .rom",
".sect .bss"
};