Clang-format before editing.
This commit is contained in:
David Given
parent
6275896a11
commit
976fa0efca
1 changed files with 179 additions and 166 deletions
|
|
@ -14,8 +14,7 @@
|
|||
#include <stdarg.h>
|
||||
#include <object.h>
|
||||
|
||||
valu_t
|
||||
load(const item_t *ip)
|
||||
valu_t load(const item_t* ip)
|
||||
{
|
||||
#ifdef ASLD
|
||||
int typ;
|
||||
|
|
@ -25,8 +24,10 @@ load(const item_t *ip)
|
|||
return (ip->i_valu);
|
||||
return (ip->i_valu + sect[typ].s_base);
|
||||
#else
|
||||
if ((ip->i_type & S_TYP) == S_UND || (ip->i_type & S_COM)) {
|
||||
if (pass == PASS_3) {
|
||||
if ((ip->i_type & S_TYP) == S_UND || (ip->i_type & S_COM))
|
||||
{
|
||||
if (pass == PASS_3)
|
||||
{
|
||||
if (relonami != 0)
|
||||
serror("relocation error (relonami=%d, type=%08x)", relonami, ip->i_type);
|
||||
relonami = ip->i_valu + 1;
|
||||
|
|
@ -37,8 +38,7 @@ load(const item_t *ip)
|
|||
#endif
|
||||
}
|
||||
|
||||
int
|
||||
store(item_t *ip, valu_t val)
|
||||
int store(item_t* ip, valu_t val)
|
||||
{
|
||||
#ifdef ASLD
|
||||
int typ;
|
||||
|
|
@ -55,8 +55,7 @@ store(item_t *ip, valu_t val)
|
|||
return (1);
|
||||
}
|
||||
|
||||
char *
|
||||
remember(char *s)
|
||||
char* remember(char* s)
|
||||
{
|
||||
char* p;
|
||||
int n;
|
||||
|
|
@ -68,7 +67,8 @@ remember(char *s)
|
|||
do
|
||||
n++;
|
||||
while (*p++);
|
||||
if ((nleft -= n) < 0) {
|
||||
if ((nleft -= n) < 0)
|
||||
{
|
||||
next = malloc(MEMINCR);
|
||||
if (next == 0)
|
||||
fatal("out of memory");
|
||||
|
|
@ -83,10 +83,10 @@ remember(char *s)
|
|||
return (s);
|
||||
}
|
||||
|
||||
int
|
||||
combine(int typ1, int typ2, int op)
|
||||
int combine(int typ1, int typ2, int op)
|
||||
{
|
||||
switch (op)
|
||||
{
|
||||
switch (op) {
|
||||
case '+':
|
||||
if (typ1 == S_ABS)
|
||||
return (typ2);
|
||||
|
|
@ -102,11 +102,8 @@ combine(int typ1, int typ2, int op)
|
|||
case '>':
|
||||
if (typ1 == S_ABS && typ2 == S_ABS)
|
||||
return (S_ABS);
|
||||
if (
|
||||
((typ1 & ~S_DOT) == (typ2 & ~S_DOT) && typ1 != S_UND)
|
||||
|| (typ1 == S_ABS)
|
||||
|| (typ2 == S_ABS)
|
||||
)
|
||||
if (((typ1 & ~S_DOT) == (typ2 & ~S_DOT) && typ1 != S_UND) || (typ1 == S_ABS)
|
||||
|| (typ2 == S_ABS))
|
||||
return (S_ABS | S_VAR);
|
||||
break;
|
||||
default:
|
||||
|
|
@ -120,44 +117,49 @@ combine(int typ1, int typ2, int op)
|
|||
}
|
||||
|
||||
#ifdef LISTING
|
||||
int
|
||||
printx(int ndig, valu_t val)
|
||||
int printx(int ndig, valu_t val)
|
||||
{
|
||||
static char buf[8];
|
||||
char* p;
|
||||
int c, n;
|
||||
|
||||
p = buf; n = ndig;
|
||||
do {
|
||||
p = buf;
|
||||
n = ndig;
|
||||
do
|
||||
{
|
||||
*p++ = (int)val & 017;
|
||||
val >>= 4;
|
||||
} while (--n);
|
||||
do {
|
||||
do
|
||||
{
|
||||
c = "0123456789ABCDEF"[*--p];
|
||||
putchar(c);
|
||||
} while (p > buf);
|
||||
return (ndig);
|
||||
}
|
||||
|
||||
void
|
||||
listline(int textline)
|
||||
void listline(int textline)
|
||||
{
|
||||
int c;
|
||||
|
||||
if ((listflag & 4) && (c = getc(listfile)) != '\n' && textline) {
|
||||
if ((listflag & 4) && (c = getc(listfile)) != '\n' && textline)
|
||||
{
|
||||
if (listcolm >= 24)
|
||||
printf(" \\\n\t\t\t");
|
||||
else
|
||||
do {
|
||||
do
|
||||
{
|
||||
putchar('\t');
|
||||
listcolm += 8;
|
||||
} while (listcolm < 24);
|
||||
do {
|
||||
do
|
||||
{
|
||||
assert(c != EOF);
|
||||
putchar(c);
|
||||
} while ((c = getc(listfile)) != '\n');
|
||||
}
|
||||
if (listflag & 7) {
|
||||
if (listflag & 7)
|
||||
{
|
||||
putchar('\n');
|
||||
fflush(stdout);
|
||||
}
|
||||
|
|
@ -173,8 +175,7 @@ listline(int textline)
|
|||
#define PBITTABSZ 128
|
||||
static char* pbittab[PBITTABSZ];
|
||||
|
||||
int
|
||||
small(int fitsmall, int gain)
|
||||
int small(int fitsmall, int gain)
|
||||
{
|
||||
int bit;
|
||||
char* p;
|
||||
|
|
@ -183,22 +184,28 @@ small(int fitsmall, int gain)
|
|||
nosect();
|
||||
if (bflag)
|
||||
return (0);
|
||||
if (nbits == BITCHUNK) {
|
||||
if (nbits == BITCHUNK)
|
||||
{
|
||||
bitindex++;
|
||||
nbits = 0;
|
||||
if (bitindex == PBITTABSZ) {
|
||||
if (bitindex == PBITTABSZ)
|
||||
{
|
||||
static int w_given;
|
||||
if (pass == PASS_1 && ! w_given) {
|
||||
if (pass == PASS_1 && !w_given)
|
||||
{
|
||||
w_given = 1;
|
||||
warning("bit table overflow");
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
if (pbittab[bitindex] == 0 && pass == PASS_1) {
|
||||
if ((pbittab[bitindex] = calloc(MEMINCR, 1)) == 0) {
|
||||
if (pbittab[bitindex] == 0 && pass == PASS_1)
|
||||
{
|
||||
if ((pbittab[bitindex] = calloc(MEMINCR, 1)) == 0)
|
||||
{
|
||||
static int w2_given;
|
||||
|
||||
if (!w2_given) {
|
||||
if (!w2_given)
|
||||
{
|
||||
w2_given = 1;
|
||||
warning("out of space for bit table");
|
||||
}
|
||||
|
|
@ -210,11 +217,13 @@ small(int fitsmall, int gain)
|
|||
bit = 1 << (nbits & 7);
|
||||
p = pbittab[bitindex] + (nbits >> 3);
|
||||
nbits++;
|
||||
switch (pass) {
|
||||
switch (pass)
|
||||
{
|
||||
case PASS_1:
|
||||
return (0);
|
||||
case PASS_2:
|
||||
if (fitsmall) {
|
||||
if (fitsmall)
|
||||
{
|
||||
DOTGAIN += gain;
|
||||
*p |= bit;
|
||||
}
|
||||
|
|
@ -229,13 +238,14 @@ small(int fitsmall, int gain)
|
|||
|
||||
/* ---------- output ---------- */
|
||||
|
||||
void
|
||||
emit1(int arg)
|
||||
void emit1(int arg)
|
||||
{
|
||||
static int olddottyp = -1;
|
||||
#ifdef LISTING
|
||||
if (listeoln) {
|
||||
if (listflag & 1) {
|
||||
if (listeoln)
|
||||
{
|
||||
if (listflag & 1)
|
||||
{
|
||||
listcolm += printx(VALWIDTH, (valu_t)DOTVAL);
|
||||
listcolm++;
|
||||
putchar(' ');
|
||||
|
|
@ -245,7 +255,8 @@ emit1(int arg)
|
|||
if (listflag & 2)
|
||||
listcolm += printx(2, (valu_t)arg);
|
||||
#endif
|
||||
switch (pass) {
|
||||
switch (pass)
|
||||
{
|
||||
case PASS_1:
|
||||
if (DOTSCT == NULL)
|
||||
nosect();
|
||||
|
|
@ -254,11 +265,13 @@ emit1(int arg)
|
|||
DOTSCT->s_zero = 0;
|
||||
break;
|
||||
case PASS_3:
|
||||
if (DOTTYP != olddottyp) {
|
||||
if (DOTTYP != olddottyp)
|
||||
{
|
||||
wr_outsect(DOTTYP - S_MIN);
|
||||
olddottyp = DOTTYP;
|
||||
}
|
||||
while (DOTSCT->s_zero) {
|
||||
while (DOTSCT->s_zero)
|
||||
{
|
||||
wr_putc(0);
|
||||
DOTSCT->s_zero--;
|
||||
}
|
||||
|
|
@ -268,44 +281,51 @@ emit1(int arg)
|
|||
DOTVAL++;
|
||||
}
|
||||
|
||||
void
|
||||
emit2(int arg)
|
||||
void emit2(int arg)
|
||||
{
|
||||
#ifdef BYTES_REVERSED
|
||||
emit1((arg>>8)); emit1(arg);
|
||||
emit1((arg >> 8));
|
||||
emit1(arg);
|
||||
#else
|
||||
emit1(arg); emit1((arg>>8));
|
||||
emit1(arg);
|
||||
emit1((arg >> 8));
|
||||
#endif
|
||||
}
|
||||
|
||||
void
|
||||
emit4(long arg)
|
||||
void emit4(long arg)
|
||||
{
|
||||
#ifdef WORDS_REVERSED
|
||||
emit2((int)(arg>>16)); emit2((int)(arg));
|
||||
emit2((int)(arg >> 16));
|
||||
emit2((int)(arg));
|
||||
#else
|
||||
emit2((int)(arg)); emit2((int)(arg>>16));
|
||||
emit2((int)(arg));
|
||||
emit2((int)(arg >> 16));
|
||||
#endif
|
||||
}
|
||||
|
||||
void
|
||||
emitx(valu_t val, int n)
|
||||
void emitx(valu_t val, int n)
|
||||
{
|
||||
switch (n)
|
||||
{
|
||||
switch (n) {
|
||||
case RELO1:
|
||||
emit1((int)val); break;
|
||||
emit1((int)val);
|
||||
break;
|
||||
case RELO2:
|
||||
#ifdef BYTES_REVERSED
|
||||
emit1(((int)val>>8)); emit1((int)val);
|
||||
emit1(((int)val >> 8));
|
||||
emit1((int)val);
|
||||
#else
|
||||
emit1((int)val); emit1(((int)val>>8));
|
||||
emit1((int)val);
|
||||
emit1(((int)val >> 8));
|
||||
#endif
|
||||
break;
|
||||
case RELO4:
|
||||
#ifdef WORDS_REVERSED
|
||||
emit2((int)(val>>16)); emit2((int)(val));
|
||||
emit2((int)(val >> 16));
|
||||
emit2((int)(val));
|
||||
#else
|
||||
emit2((int)(val)); emit2((int)(val>>16));
|
||||
emit2((int)(val));
|
||||
emit2((int)(val >> 16));
|
||||
#endif
|
||||
break;
|
||||
default:
|
||||
|
|
@ -313,8 +333,7 @@ emitx(valu_t val, int n)
|
|||
}
|
||||
}
|
||||
|
||||
void
|
||||
emitstr(int zero)
|
||||
void emitstr(int zero)
|
||||
{
|
||||
int i;
|
||||
char* p;
|
||||
|
|
@ -329,15 +348,13 @@ emitstr(int zero)
|
|||
|
||||
/* ---------- Error checked file I/O ---------- */
|
||||
|
||||
void
|
||||
ffreopen(char *s, FILE *f)
|
||||
void ffreopen(char* s, FILE* f)
|
||||
{
|
||||
if (freopen(s, "r", f) == NULL)
|
||||
fatal("can't reopen %s", s);
|
||||
}
|
||||
|
||||
FILE *
|
||||
ffcreat(char *s)
|
||||
FILE* ffcreat(char* s)
|
||||
{
|
||||
FILE* f;
|
||||
|
||||
|
|
@ -351,8 +368,7 @@ ffcreat(char *s)
|
|||
#endif
|
||||
char* tmp_dir = TMPDIR;
|
||||
|
||||
FILE *
|
||||
fftemp(char *path, char *tail)
|
||||
FILE* fftemp(char* path, char* tail)
|
||||
{
|
||||
char* dir;
|
||||
|
||||
|
|
@ -366,18 +382,16 @@ fftemp(char *path, char *tail)
|
|||
/* ---------- Error handling ---------- */
|
||||
|
||||
/* ARGSUSED */
|
||||
void
|
||||
yyerror(const char *message)
|
||||
{} /* we will do our own error printing */
|
||||
void yyerror(const char* message)
|
||||
{
|
||||
} /* we will do our own error printing */
|
||||
|
||||
void
|
||||
nosect(void)
|
||||
void nosect(void)
|
||||
{
|
||||
fatal("no sections");
|
||||
}
|
||||
|
||||
void
|
||||
wr_fatal(void)
|
||||
void wr_fatal(void)
|
||||
{
|
||||
fatal("write error");
|
||||
}
|
||||
|
|
@ -432,8 +446,7 @@ void warning(const char* s, ...)
|
|||
va_end(ap);
|
||||
}
|
||||
|
||||
void
|
||||
nofit(void)
|
||||
void nofit(void)
|
||||
{
|
||||
if (pass == PASS_3)
|
||||
warning("too big");
|
||||
|
|
|
|||
Loading…
Reference in a new issue