mirror of
https://github.com/LuaJIT/LuaJIT.git
synced 2025-02-08 15:34:09 +00:00
Auto-format dasm_s390x.h.
I did this mostly to get rid of the annoying tabs/spaces mix in this file. It has the side effect of forcing newlines before statements which I think is a better style (and not particularly inconsistent with the original which used both styles). Other than that I've tried to match the original style as closely as possible. Generated with this command: indent -i2 -brs -cli0 -br -ce -npcs -nbc -di1 -npsl -ncs dasm_s390x.h
This commit is contained in:
Michael Munday
parent
621ae87058
commit
fc2b633532
@ -21,7 +21,9 @@ enum {
|
||||
/* The following actions need a buffer position. */
|
||||
DASM_ALIGN, DASM_REL_LG, DASM_LABEL_LG,
|
||||
/* The following actions also have an argument. */
|
||||
DASM_REL_PC, DASM_LABEL_PC, DASM_DISP12, DASM_DISP20, DASM_IMM16, DASM_IMM32,
|
||||
DASM_REL_PC, DASM_LABEL_PC,
|
||||
DASM_DISP12, DASM_DISP20,
|
||||
DASM_IMM16, DASM_IMM32,
|
||||
DASM__MAX
|
||||
};
|
||||
|
||||
@ -113,8 +115,10 @@ void dasm_free(Dst_DECL)
|
||||
for (i = 0; i < D->maxsection; i++)
|
||||
if (D->sections[i].buf)
|
||||
DASM_M_FREE(Dst, D->sections[i].buf, D->sections[i].bsize);
|
||||
if (D->pclabels) DASM_M_FREE(Dst, D->pclabels, D->pcsize);
|
||||
if (D->lglabels) DASM_M_FREE(Dst, D->lglabels, D->lgsize);
|
||||
if (D->pclabels)
|
||||
DASM_M_FREE(Dst, D->pclabels, D->pcsize);
|
||||
if (D->lglabels)
|
||||
DASM_M_FREE(Dst, D->lglabels, D->lgsize);
|
||||
DASM_M_FREE(Dst, D, D->psize);
|
||||
}
|
||||
|
||||
@ -144,7 +148,8 @@ void dasm_setup(Dst_DECL, const void *actionlist)
|
||||
D->status = DASM_S_OK;
|
||||
D->section = &D->sections[0];
|
||||
memset((void *)D->lglabels, 0, D->lgsize);
|
||||
if (D->pclabels) memset((void *)D->pclabels, 0, D->pcsize);
|
||||
if (D->pclabels)
|
||||
memset((void *)D->pclabels, 0, D->pcsize);
|
||||
for (i = 0; i < D->maxsection; i++) {
|
||||
D->sections[i].pos = DASM_SEC2POS(i);
|
||||
D->sections[i].ofs = 0;
|
||||
@ -178,7 +183,8 @@ void dasm_put(Dst_DECL, int start, ...)
|
||||
DASM_M_GROW(Dst, int, sec->buf, sec->bsize,
|
||||
sec->bsize + 2 * DASM_MAXSECPOS * sizeof(int));
|
||||
sec->rbuf = sec->buf - DASM_POS2BIAS(pos);
|
||||
sec->epos = (int)sec->bsize/sizeof(int) - DASM_MAXSECPOS+DASM_POS2BIAS(pos);
|
||||
sec->epos =
|
||||
(int)sec->bsize / sizeof(int) - DASM_MAXSECPOS + DASM_POS2BIAS(pos);
|
||||
}
|
||||
|
||||
b = sec->rbuf;
|
||||
@ -193,22 +199,40 @@ void dasm_put(Dst_DECL, int start, ...)
|
||||
} else {
|
||||
int *pl, n = action >= DASM_REL_PC ? va_arg(ap, int) : 0;
|
||||
switch (action) {
|
||||
case DASM_STOP: goto stop;
|
||||
case DASM_STOP:
|
||||
goto stop;
|
||||
case DASM_SECTION:
|
||||
n = (ins & 255); CK(n < D->maxsection, RANGE_SEC);
|
||||
D->section = &D->sections[n]; goto stop;
|
||||
case DASM_ESC: p++; ofs += 4; break;
|
||||
case DASM_REL_EXT: break;
|
||||
case DASM_ALIGN: ofs += (ins & 255); b[pos++] = ofs; break;
|
||||
n = (ins & 255);
|
||||
CK(n < D->maxsection, RANGE_SEC);
|
||||
D->section = &D->sections[n];
|
||||
goto stop;
|
||||
case DASM_ESC:
|
||||
p++;
|
||||
ofs += 4;
|
||||
break;
|
||||
case DASM_REL_EXT:
|
||||
break;
|
||||
case DASM_ALIGN:
|
||||
ofs += (ins & 255);
|
||||
b[pos++] = ofs;
|
||||
break;
|
||||
case DASM_REL_LG:
|
||||
n = (ins & 2047) - 10; pl = D->lglabels + n;
|
||||
n = (ins & 2047) - 10;
|
||||
pl = D->lglabels + n;
|
||||
/* Bkwd rel or global. */
|
||||
if (n >= 0) { CK(n>=10||*pl<0, RANGE_LG); CKPL(lg, LG); goto putrel; }
|
||||
pl += 10; n = *pl;
|
||||
if (n < 0) n = 0; /* Start new chain for fwd rel if label exists. */
|
||||
if (n >= 0) {
|
||||
CK(n >= 10 || *pl < 0, RANGE_LG);
|
||||
CKPL(lg, LG);
|
||||
goto putrel;
|
||||
}
|
||||
pl += 10;
|
||||
n = *pl;
|
||||
if (n < 0)
|
||||
n = 0; /* Start new chain for fwd rel if label exists. */
|
||||
goto linkrel;
|
||||
case DASM_REL_PC:
|
||||
pl = D->pclabels + n; CKPL(pc, PC);
|
||||
pl = D->pclabels + n;
|
||||
CKPL(pc, PC);
|
||||
putrel:
|
||||
n = *pl;
|
||||
if (n < 0) { /* Label exists. Get label pos and store it. */
|
||||
@ -221,12 +245,18 @@ void dasm_put(Dst_DECL, int start, ...)
|
||||
pos++;
|
||||
break;
|
||||
case DASM_LABEL_LG:
|
||||
pl = D->lglabels + (ins & 2047) - 10; CKPL(lg, LG); goto putlabel;
|
||||
pl = D->lglabels + (ins & 2047) - 10;
|
||||
CKPL(lg, LG);
|
||||
goto putlabel;
|
||||
case DASM_LABEL_PC:
|
||||
pl = D->pclabels + n; CKPL(pc, PC);
|
||||
pl = D->pclabels + n;
|
||||
CKPL(pc, PC);
|
||||
putlabel:
|
||||
n = *pl; /* n > 0: Collapse rel chain and replace with label pos. */
|
||||
while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = pos;
|
||||
while (n > 0) {
|
||||
int *pb = DASM_POS2PTR(D, n);
|
||||
n = *pb;
|
||||
*pb = pos;
|
||||
}
|
||||
*pl = -pos; /* Label exists now. */
|
||||
b[pos++] = ofs; /* Store pass1 offset estimate. */
|
||||
@ -256,6 +286,7 @@ stop:
|
||||
sec->pos = pos;
|
||||
sec->ofs = ofs;
|
||||
}
|
||||
|
||||
#undef CK
|
||||
|
||||
/* Pass 2: Link sections, shrink aligns, fix label offsets. */
|
||||
@ -267,11 +298,13 @@ int dasm_link(Dst_DECL, size_t *szp)
|
||||
|
||||
#ifdef DASM_CHECKS
|
||||
*szp = 0;
|
||||
if (D->status != DASM_S_OK) return D->status;
|
||||
if (D->status != DASM_S_OK)
|
||||
return D->status;
|
||||
{
|
||||
int pc;
|
||||
for (pc = 0; pc * sizeof(int) < D->pcsize; pc++)
|
||||
if (D->pclabels[pc] > 0) return DASM_S_UNDEF_PC|pc;
|
||||
if (D->pclabels[pc] > 0)
|
||||
return DASM_S_UNDEF_PC | pc;
|
||||
}
|
||||
#endif
|
||||
|
||||
@ -280,7 +313,11 @@ int dasm_link(Dst_DECL, size_t *szp)
|
||||
for (idx = 20; idx * sizeof(int) < D->lgsize; idx++) {
|
||||
int n = D->lglabels[idx];
|
||||
/* Undefined label: Collapse rel chain and replace with marker (< 0). */
|
||||
while (n > 0) { int *pb = DASM_POS2PTR(D, n); n = *pb; *pb = -idx; }
|
||||
while (n > 0) {
|
||||
int *pb = DASM_POS2PTR(D, n);
|
||||
n = *pb;
|
||||
*pb = -idx;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
@ -297,12 +334,25 @@ int dasm_link(Dst_DECL, size_t *szp)
|
||||
unsigned short ins = *p++;
|
||||
unsigned short action = ins;
|
||||
switch (action) {
|
||||
case DASM_STOP: case DASM_SECTION: goto stop;
|
||||
case DASM_ESC: p++; break;
|
||||
case DASM_REL_EXT: break;
|
||||
case DASM_ALIGN: ofs -= (b[pos++] + ofs) & (ins & 255); break;
|
||||
case DASM_REL_LG: case DASM_REL_PC: pos++; break;
|
||||
case DASM_LABEL_LG: case DASM_LABEL_PC: b[pos++] += ofs; break;
|
||||
case DASM_STOP:
|
||||
case DASM_SECTION:
|
||||
goto stop;
|
||||
case DASM_ESC:
|
||||
p++;
|
||||
break;
|
||||
case DASM_REL_EXT:
|
||||
break;
|
||||
case DASM_ALIGN:
|
||||
ofs -= (b[pos++] + ofs) & (ins & 255);
|
||||
break;
|
||||
case DASM_REL_LG:
|
||||
case DASM_REL_PC:
|
||||
pos++;
|
||||
break;
|
||||
case DASM_LABEL_LG:
|
||||
case DASM_LABEL_PC:
|
||||
b[pos++] += ofs;
|
||||
break;
|
||||
case DASM_IMM16:
|
||||
case DASM_IMM32:
|
||||
case DASM_DISP20:
|
||||
@ -349,13 +399,19 @@ int dasm_encode(Dst_DECL, void *buffer)
|
||||
unsigned short action = ins;
|
||||
int n = (action >= DASM_ALIGN && action < DASM__MAX) ? *b++ : 0;
|
||||
switch (action) {
|
||||
case DASM_STOP: case DASM_SECTION: goto stop;
|
||||
case DASM_ESC: *cp++ = *p++; break;
|
||||
case DASM_STOP:
|
||||
case DASM_SECTION:
|
||||
goto stop;
|
||||
case DASM_ESC:
|
||||
*cp++ = *p++;
|
||||
break;
|
||||
case DASM_REL_EXT:
|
||||
n = DASM_EXTERN(Dst, (unsigned char *)cp, (ins & 2047), 1) - 4;
|
||||
goto patchrel;
|
||||
case DASM_ALIGN:
|
||||
ins &= 255; while ((((char *)cp - base) & ins)) *cp++ = 0x0707;
|
||||
ins &= 255;
|
||||
while ((((char *)cp - base) & ins))
|
||||
*cp++ = 0x0707;
|
||||
break;
|
||||
case DASM_REL_LG:
|
||||
CK(n >= 0, UNDEF_LG);
|
||||
@ -369,9 +425,12 @@ int dasm_encode(Dst_DECL, void *buffer)
|
||||
cp[-1] |= ((n + 4) & ((ins & 2048) ? 0x0000fffc : 0x03fffffc));
|
||||
break;
|
||||
case DASM_LABEL_LG:
|
||||
ins &= 2047; if (ins >= 20) D->globals[ins-10] = (void *)(base + n);
|
||||
ins &= 2047;
|
||||
if (ins >= 20)
|
||||
D->globals[ins - 10] = (void *)(base + n);
|
||||
break;
|
||||
case DASM_LABEL_PC:
|
||||
break;
|
||||
case DASM_LABEL_PC: break;
|
||||
case DASM_IMM16:
|
||||
fprintf(stderr, "DASM_IMM16 not implemented\n");
|
||||
break;
|
||||
@ -386,7 +445,9 @@ int dasm_encode(Dst_DECL, void *buffer)
|
||||
case DASM_DISP12:
|
||||
cp[-1] |= n & 0xfff;
|
||||
break;
|
||||
default: *cp++ = ins; break;
|
||||
default:
|
||||
*cp++ = ins;
|
||||
break;
|
||||
}
|
||||
}
|
||||
stop:(void)0;
|
||||
@ -397,6 +458,7 @@ int dasm_encode(Dst_DECL, void *buffer)
|
||||
return DASM_S_PHASE;
|
||||
return DASM_S_OK;
|
||||
}
|
||||
|
||||
#undef CK
|
||||
|
||||
/* Get PC label offset. */
|
||||
@ -405,8 +467,10 @@ int dasm_getpclabel(Dst_DECL, unsigned int pc)
|
||||
dasm_State *D = Dst_REF;
|
||||
if (pc * sizeof(int) < D->pcsize) {
|
||||
int pos = D->pclabels[pc];
|
||||
if (pos < 0) return *DASM_POS2PTR(D, -pos);
|
||||
if (pos > 0) return -1; /* Undefined. */
|
||||
if (pos < 0)
|
||||
return *DASM_POS2PTR(D, -pos);
|
||||
if (pos > 0)
|
||||
return -1; /* Undefined. */
|
||||
}
|
||||
return -2; /* Unused or out of range. */
|
||||
}
|
||||
@ -419,7 +483,10 @@ int dasm_checkstep(Dst_DECL, int secmatch)
|
||||
if (D->status == DASM_S_OK) {
|
||||
int i;
|
||||
for (i = 1; i <= 9; i++) {
|
||||
if (D->lglabels[i] > 0) { D->status = DASM_S_UNDEF_LG|i; break; }
|
||||
if (D->lglabels[i] > 0) {
|
||||
D->status = DASM_S_UNDEF_LG | i;
|
||||
break;
|
||||
}
|
||||
D->lglabels[i] = 0;
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user