Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

TempleOSCDV4.12.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:47:56 +02:00
1 parent 93ca216483
commit b84bbff6db
381 files changed
+18356 -18798
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Compiler/AsmLib.HC
+35 -35
View File
@@ -2,19 +2,19 @@ U0 AOTStoreCodeU8(CCmpCtrl *cc,U8 b)
{
CAOTCtrl *aotc=cc->aotc;
I64 i=aotc->ip>>AOT_BIN_BLK_BITS;
CAOTBinBlk *tempbin=aotc->bin;
CAOTBinBlk *tmpbin=aotc->bin;
while (i--)
if (!(tempbin=tempbin->next)) {
if (!(tmpbin=tmpbin->next)) {
i=aotc->ip>>AOT_BIN_BLK_BITS+1;
tempbin=&aotc->bin;
tmpbin=&aotc->bin;
while (i--) {
if (!tempbin->next)
tempbin->next=CAlloc(sizeof(CAOTBinBlk));
tempbin=tempbin->next;
if (!tmpbin->next)
tmpbin->next=CAlloc(sizeof(CAOTBinBlk));
tmpbin=tmpbin->next;
}
break;
}
tempbin->body[aotc->ip++ & (AOT_BIN_BLK_SIZE-1)]=b;
tmpbin->body[aotc->ip++ & (AOT_BIN_BLK_SIZE-1)]=b;
if (aotc->lst) {
if (aotc->lst_col>=24) {
'\n';
@@ -32,24 +32,24 @@ U0 AOTStoreCodeU32(CCmpCtrl *cc,U32 d)
CAOTCtrl *aotc=cc->aotc;
I64 i=aotc->ip>>AOT_BIN_BLK_BITS,j=(aotc->ip+sizeof(U32))>>AOT_BIN_BLK_BITS;
U32 *_d;
CAOTBinBlk *tempbin;
CAOTBinBlk *tmpbin;
if (i!=j)
for (i=0;i<sizeof(U32);i++)
AOTStoreCodeU8(cc,d.u8[i]);
else {
tempbin=aotc->bin;
tmpbin=aotc->bin;
while (i--)
if (!(tempbin=tempbin->next)) {
if (!(tmpbin=tmpbin->next)) {
i=aotc->ip>>AOT_BIN_BLK_BITS+1;
tempbin=&aotc->bin;
tmpbin=&aotc->bin;
while (i--) {
if (!tempbin->next)
tempbin->next=CAlloc(sizeof(CAOTBinBlk));
tempbin=tempbin->next;
if (!tmpbin->next)
tmpbin->next=CAlloc(sizeof(CAOTBinBlk));
tmpbin=tmpbin->next;
}
break;
}
_d=tempbin->body+ aotc->ip&(AOT_BIN_BLK_SIZE-1);
_d=tmpbin->body+ aotc->ip&(AOT_BIN_BLK_SIZE-1);
*_d=d;
aotc->ip+=sizeof(U32);
if (aotc->lst) {
@@ -70,24 +70,24 @@ U0 AOTStoreCodeU64(CCmpCtrl *cc,U64 q)
CAOTCtrl *aotc=cc->aotc;
I64 i=aotc->ip>>AOT_BIN_BLK_BITS,j=(aotc->ip+sizeof(I64))>>AOT_BIN_BLK_BITS,
*_q;
CAOTBinBlk *tempbin;
CAOTBinBlk *tmpbin;
if (i!=j)
for (i=0;i<sizeof(I64);i++)
AOTStoreCodeU8(cc,q.u8[i]);
else {
tempbin=aotc->bin;
tmpbin=aotc->bin;
while (i--)
if (!(tempbin=tempbin->next)) {
if (!(tmpbin=tmpbin->next)) {
i=aotc->ip>>AOT_BIN_BLK_BITS+1;
tempbin=&aotc->bin;
tmpbin=&aotc->bin;
while (i--) {
if (!tempbin->next)
tempbin->next=CAlloc(sizeof(CAOTBinBlk));
tempbin=tempbin->next;
if (!tmpbin->next)
tmpbin->next=CAlloc(sizeof(CAOTBinBlk));
tmpbin=tmpbin->next;
}
break;
}
_q=tempbin->body+ aotc->ip&(AOT_BIN_BLK_SIZE-1);
_q=tmpbin->body+ aotc->ip&(AOT_BIN_BLK_SIZE-1);
*_q=q;
aotc->ip+=sizeof(I64);
if (aotc->lst) {
@@ -106,19 +106,19 @@ U0 AOTStoreCodeU64(CCmpCtrl *cc,U64 q)
U0 AOTStoreCodeU8At(CCmpCtrl *cc,I64 ip,...)
{
CAOTCtrl *aotc=cc->aotc;
CAOTBinBlk *tempbin;
CAOTBinBlk *tmpbin;
I64 i,j;
for (j=0;j<argc;j++) {
i=ip>>AOT_BIN_BLK_BITS+1;
tempbin=&aotc->bin;
tmpbin=&aotc->bin;
while (i--) {
if (!tempbin->next) {
tempbin->next=CAlloc(sizeof(CAOTBinBlk));
tempbin->next->next=NULL;
if (!tmpbin->next) {
tmpbin->next=CAlloc(sizeof(CAOTBinBlk));
tmpbin->next->next=NULL;
}
tempbin=tempbin->next;
tmpbin=tmpbin->next;
}
tempbin->body[ip++ & (AOT_BIN_BLK_SIZE-1)]=argv[j];
tmpbin->body[ip++ & (AOT_BIN_BLK_SIZE-1)]=argv[j];
}
if (ip>aotc->num_bin_U8s)
aotc->num_bin_U8s=ip;
@@ -147,11 +147,11 @@ I64 AsmLexExpression(CCmpCtrl *cc)
U0 AsmLineLst(CCmpCtrl *cc)
{
CAOTCtrl *aotc=cc->aotc;
CLexFile *tempf=cc->lex_include_stk;
CDocEntry *doc_e=tempf->line_start,*doc_e2;
if (aotc->lst && aotc->lst_last_lfn==tempf && doc_e) {
CLexFile *tmpf=cc->lex_include_stk;
CDocEntry *doc_e=tmpf->line_start,*doc_e2;
if (aotc->lst && aotc->lst_last_lfn==tmpf && doc_e) {
if (doc_e2=aotc->lst_last_line) {
if (tempf->flags& LFSF_DOC) {
if (tmpf->flags& LFSF_DOC) {
while (doc_e2->y<doc_e->y) {
"%h*c%08X ",24-aotc->lst_col,CH_SPACE,aotc->lst_last_ip;
aotc->lst_col=0;
@@ -169,7 +169,7 @@ U0 AsmLineLst(CCmpCtrl *cc)
aotc->lst_last_line=doc_e;
} else {
aotc->lst_last_line=NULL;
aotc->lst_last_lfn=tempf;
aotc->lst_last_lfn=tmpf;
}
aotc->lst_last_ip=aotc->ip;
}