tristan/ZealOS
1
0
Fork 0
mirror of https://github.com/Zeal-Operating-System/ZealOS.git synced 2024-12-26 15:26:43 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Reformat AsmLib.CC

Browse source
This commit is contained in:
TomAwezome 2020-07-23 08:14:24 -05:00 committed by VoidNV
parent 4767fc9f2f
commit d3e57cc7a9
3 changed files with 138 additions and 110 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
Zenith-latest-2020-07-22-04_01_05.iso → Zenith-latest-2020-07-23-05_49_47.iso
View file

Binary file not shown.

247
src/Compiler/AsmLib.CC
View file

@ -1,144 +1,161 @@
U0 AOTStoreCodeU8(CCompCtrl *cc,U8 b)
U0 AOTStoreCodeU8(CCompCtrl *cc, U8 b)
{
CAOTCtrl *aotc=cc->aotc;
I64 i=aotc->rip>>AOT_BIN_BLK_BITS;
CAOTBinBlk *tmpbin=aotc->bin;
CAOTCtrl *aotc = cc->aotc;
I64 i = aotc->rip >> AOT_BIN_BLK_BITS;
CAOTBinBlk *tmpbin = aotc->bin;
while (i--)
if (!(tmpbin=tmpbin->next)) {
i=aotc->rip>>AOT_BIN_BLK_BITS+1;
tmpbin=&aotc->bin;
while (i--) {
if (!(tmpbin = tmpbin->next))
{
i = aotc->rip >> AOT_BIN_BLK_BITS + 1;
tmpbin = &aotc->bin;
while (i--)
{
if (!tmpbin->next)
tmpbin->next=CAlloc(sizeof(CAOTBinBlk));
tmpbin=tmpbin->next;
tmpbin->next = CAlloc(sizeof(CAOTBinBlk));
tmpbin = tmpbin->next;
}
break;
}
tmpbin->body[aotc->rip++ & (AOT_BIN_BLK_SIZE-1)]=b;
if (aotc->list) {
if (aotc->list_col>=24) {
tmpbin->body[aotc->rip++ & (AOT_BIN_BLK_SIZE - 1)] = b;
if (aotc->list)
{
if (aotc->list_col >= 24)
{
'\n';
aotc->list_col=0;
aotc->list_col = 0;
}
"%02X ",b;
aotc->list_col+=3;
"%02X ", b;
aotc->list_col += 3;
}
if (aotc->rip>aotc->num_bin_U8s)
aotc->num_bin_U8s=aotc->rip;
aotc->num_bin_U8s = aotc->rip;
}
U0 AOTStoreCodeU32(CCompCtrl *cc,U32 d)
U0 AOTStoreCodeU32(CCompCtrl *cc, U32 d)
{
CAOTCtrl *aotc=cc->aotc;
I64 i=aotc->rip>>AOT_BIN_BLK_BITS,j=(aotc->rip+sizeof(U32))>>AOT_BIN_BLK_BITS;
CAOTCtrl *aotc = cc->aotc;
I64 i = aotc->rip >> AOT_BIN_BLK_BITS, j = (aotc->rip + sizeof(U32)) >> AOT_BIN_BLK_BITS;
U32 *_d;
CAOTBinBlk *tmpbin;
if (i!=j)
for (i=0;i<sizeof(U32);i++)
AOTStoreCodeU8(cc,d.u8[i]);
else {
tmpbin=aotc->bin;
if (i != j)
for (i = 0; i < sizeof(U32); i++)
AOTStoreCodeU8(cc, d.u8[i]);
else
{
tmpbin = aotc->bin;
while (i--)
if (!(tmpbin=tmpbin->next)) {
i=aotc->rip>>AOT_BIN_BLK_BITS+1;
tmpbin=&aotc->bin;
while (i--) {
if (!(tmpbin = tmpbin->next))
{
i = aotc->rip >> AOT_BIN_BLK_BITS + 1;
tmpbin = &aotc->bin;
while (i--)
{
if (!tmpbin->next)
tmpbin->next=CAlloc(sizeof(CAOTBinBlk));
tmpbin=tmpbin->next;
tmpbin->next = CAlloc(sizeof(CAOTBinBlk));
tmpbin = tmpbin->next;
}
break;
}
_d=tmpbin->body+ aotc->rip&(AOT_BIN_BLK_SIZE-1);
*_d=d;
aotc->rip+=sizeof(U32);
if (aotc->list) {
if (aotc->list_col>=24) {
_d = tmpbin->body + aotc->rip & (AOT_BIN_BLK_SIZE - 1);
*_d = d;
aotc->rip += sizeof(U32);
if (aotc->list)
{
if (aotc->list_col >= 24)
{
'\n';
aotc->list_col=0;
aotc->list_col = 0;
}
"%08X ",d;
aotc->list_col+=9;
"%08X ", d;
aotc->list_col += 9;
}
if (aotc->rip>aotc->num_bin_U8s)
aotc->num_bin_U8s=aotc->rip;
aotc->num_bin_U8s = aotc->rip;
}
}
U0 AOTStoreCodeU64(CCompCtrl *cc,U64 q)
U0 AOTStoreCodeU64(CCompCtrl *cc, U64 q)
{
CAOTCtrl *aotc=cc->aotc;
I64 i=aotc->rip>>AOT_BIN_BLK_BITS,
j=(aotc->rip+sizeof(I64))>>AOT_BIN_BLK_BITS, *_q;
CAOTCtrl *aotc = cc->aotc;
I64 i = aotc->rip >> AOT_BIN_BLK_BITS, j = (aotc->rip + sizeof(I64)) >> AOT_BIN_BLK_BITS, *_q;
CAOTBinBlk *tmpbin;
if (i!=j)
for (i=0;i<sizeof(I64);i++)
AOTStoreCodeU8(cc,q.u8[i]);
else {
tmpbin=aotc->bin;
if (i != j)
for (i = 0; i < sizeof(I64); i++)
AOTStoreCodeU8(cc, q.u8[i]);
else
{
tmpbin = aotc->bin;
while (i--)
if (!(tmpbin=tmpbin->next)) {
i=aotc->rip>>AOT_BIN_BLK_BITS+1;
tmpbin=&aotc->bin;
while (i--) {
if (!(tmpbin = tmpbin->next))
{
i = aotc->rip >> AOT_BIN_BLK_BITS + 1;
tmpbin = &aotc->bin;
while (i--)
{
if (!tmpbin->next)
tmpbin->next=CAlloc(sizeof(CAOTBinBlk));
tmpbin=tmpbin->next;
tmpbin->next = CAlloc(sizeof(CAOTBinBlk));
tmpbin = tmpbin->next;
}
break;
}
_q=tmpbin->body+ aotc->rip&(AOT_BIN_BLK_SIZE-1);
*_q=q;
aotc->rip+=sizeof(I64);
if (aotc->list) {
if (aotc->list_col>=24) {
_q = tmpbin->body + aotc->rip & (AOT_BIN_BLK_SIZE - 1);
*_q = q;
aotc->rip += sizeof(I64);
if (aotc->list)
{
if (aotc->list_col >= 24)
{
'\n';
aotc->list_col=0;
aotc->list_col = 0;
}
"%016X ",q;
aotc->list_col+=17;
"%016X ", q;
aotc->list_col += 17;
}
if (aotc->rip>aotc->num_bin_U8s)
aotc->num_bin_U8s=aotc->rip;
aotc->num_bin_U8s = aotc->rip;
}
}
U0 AOTStoreCodeU8At(CCompCtrl *cc,I64 rip,...)
U0 AOTStoreCodeU8At(CCompCtrl *cc, I64 rip, ...)
{
CAOTCtrl *aotc=cc->aotc;
CAOTCtrl *aotc = cc->aotc;
CAOTBinBlk *tmpbin;
I64 i,j;
for (j=0;j<argc;j++) {
i=rip>>AOT_BIN_BLK_BITS+1;
tmpbin=&aotc->bin;
while (i--) {
if (!tmpbin->next) {
tmpbin->next=CAlloc(sizeof(CAOTBinBlk));
tmpbin->next->next=NULL;
I64 i, j;
for (j = 0; j < argc; j++)
{
i = rip >> AOT_BIN_BLK_BITS + 1;
tmpbin = &aotc->bin;
while (i--)
{
if (!tmpbin->next)
{
tmpbin->next = CAlloc(sizeof(CAOTBinBlk));
tmpbin->next->next = NULL;
}
tmpbin=tmpbin->next;
tmpbin = tmpbin->next;
}
tmpbin->body[rip++ & (AOT_BIN_BLK_SIZE-1)]=argv[j];
tmpbin->body[rip++ & (AOT_BIN_BLK_SIZE - 1)] = argv[j];
}
if (rip>aotc->num_bin_U8s)
aotc->num_bin_U8s=rip;
if (rip > aotc->num_bin_U8s)
aotc->num_bin_U8s = rip;
}
I64 AsmLexExpression(CCompCtrl *cc)
{
U8 *machine_code;
I64 res=0;
cc->asm_undef_hash=NULL;
cc->flags&=~(CCF_UNRESOLVED+CCF_LOCAL);
cc->abs_counts=0;
if (!IsLexExpression2Bin(cc,&machine_code))
I64 res = 0;
cc->asm_undef_hash = NULL;
cc->flags &= ~(CCF_UNRESOLVED + CCF_LOCAL);
cc->abs_counts = 0;
if (!IsLexExpression2Bin(cc, &machine_code))
LexSkipEol(cc);
else {
else
{
if (cc->abs_counts.externs)
LexExcept(cc,"Extern Not Allowed at ");
LexExcept(cc, "Extern Not Allowed at ");
if (cc->flags & CCF_UNRESOLVED)
LexExcept(cc,"Undefined sym at ");
res=Call(machine_code);
LexExcept(cc, "Undefined sym at ");
res = Call(machine_code);
Free(machine_code);
}
return res;
@ -146,30 +163,40 @@ I64 AsmLexExpression(CCompCtrl *cc)
U0 AsmLineList(CCompCtrl *cc)
{
CAOTCtrl *aotc=cc->aotc;
CLexFile *tmpf=cc->lex_include_stack;
CDocEntry *doc_e=tmpf->line_start,*doc_e2;
if (aotc->list && aotc->list_last_lfn==tmpf && doc_e) {
if (doc_e2=aotc->list_last_line) {
if (tmpf->flags& LFSF_DOC) {
while (doc_e2->y<doc_e->y) {
"%h*c%08X ",24-aotc->list_col,CH_SPACE,aotc->list_last_rip;
aotc->list_col=0;
doc_e2=LexPutLine(cc,doc_e2);
}
} else {
while (*doc_e2(U8 *) && doc_e2!=doc_e) {
"%h*c%08X ",24-aotc->list_col,CH_SPACE,aotc->list_last_rip;
aotc->list_col=0;
doc_e2=LexPutLine(cc,doc_e2);
CAOTCtrl *aotc = cc->aotc;
CLexFile *tmpf = cc->lex_include_stack;
CDocEntry *doc_e = tmpf->line_start, *doc_e2;
if (aotc->list && aotc->list_last_lfn == tmpf && doc_e)
{
if (doc_e2 = aotc->list_last_line)
{
if (tmpf->flags & LFSF_DOC)
{
while (doc_e2->y < doc_e->y)
{
"%h*c%08X ", 24 - aotc->list_col, CH_SPACE, aotc->list_last_rip;
aotc->list_col = 0;
doc_e2 = LexPutLine(cc, doc_e2);
}
}
aotc->list_last_line=doc_e2;
} else
aotc->list_last_line=doc_e;
} else {
aotc->list_last_line=NULL;
aotc->list_last_lfn=tmpf;
else
{
while (*doc_e2(U8 *) && doc_e2 != doc_e)
{
"%h*c%08X ", 24 - aotc->list_col, CH_SPACE, aotc->list_last_rip;
aotc->list_col = 0;
doc_e2 = LexPutLine(cc,doc_e2);
}
}
aotc->list_last_line = doc_e2;
}
else
aotc->list_last_line = doc_e;
}
aotc->list_last_rip=aotc->rip;
else
{
aotc->list_last_line = NULL;
aotc->list_last_lfn = tmpf;
}
aotc->list_last_rip = aotc->rip;
}

1
src/Home/FilesRefactored.DD
View file

@ -39,6 +39,7 @@ StartOS.CC
/Compiler/
Asm.CC
AsmInit.CC
AsmLib.CC
CompilerA.HH
CompilerB.HH