TempleOSCDV4.06.ISO

This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:47:19 +02:00
1 parent 6fe38d2d9d
commit b632ab9a4f
261 files changed
+6282 -5801

No files matched your search

+24 -24
View File
@@ -45,8 +45,8 @@ to a class by advancing 1 struct fwd
for one * and two fwd for two **.
*/
I64 i;
CHashClass *result=CAlloc(sizeof(CHashClass)*(MAX_PTR_STARS+1),Fs->code_heap),
*tempc=result;
CHashClass *res=CAlloc(sizeof(CHashClass)*(MAX_PTR_STARS+1),Fs->code_heap),
*tempc=res;
for (i=0;i<=MAX_PTR_STARS;i++) {
tempc->type=HTT_CLASS;
tempc->raw_type=RT_PTR;
@@ -54,16 +54,16 @@ for one * and two fwd for two **.
tempc->ptr_stars_cnt=i;
tempc++;
}
result->last_in_member_lst=&result->member_lst_and_root;
result->size=0;
return result;
res->last_in_member_lst=&res->member_lst_and_root;
res->size=0;
return res;
}
CHashFun *PrsFunNew()
{
I64 i;
CHashFun *result=CAlloc(sizeof(CHashFun)*(MAX_PTR_STARS+1),Fs->code_heap),
*tempf=result;
CHashFun *res=CAlloc(sizeof(CHashFun)*(MAX_PTR_STARS+1),Fs->code_heap),
*tempf=res;
for (i=0;i<=MAX_PTR_STARS;i++) {
tempf->type=HTT_FUN;
tempf->raw_type=RT_PTR;
@@ -71,9 +71,9 @@ CHashFun *PrsFunNew()
tempf->ptr_stars_cnt=i;
tempf++;
}
result->last_in_member_lst=&result->member_lst_and_root;
result->size=0;
return result;
res->last_in_member_lst=&res->member_lst_and_root;
res->size=0;
return res;
}
CIntermediateCode *ICAdd(CCmpCtrl *cc,
@@ -142,11 +142,11 @@ U0 COCAppend(CCmpCtrl *cc, CCodeCtrl *tempcbh)
CCodeMisc *COCMiscNew(CCmpCtrl *cc,I64 ty)
{
CCodeMisc *result=CAlloc(sizeof(CCodeMisc));
result->addr=INVALID_PTR;
result->type=ty;
QueIns(result,cc->coc.coc_last_misc);
return result;
CCodeMisc *res=CAlloc(sizeof(CCodeMisc));
res->addr=INVALID_PTR;
res->type=ty;
QueIns(res,cc->coc.coc_last_misc);
return res;
}
CCodeMisc *COCGoToLabelFind(CCmpCtrl *cc,U8 *name)
@@ -248,7 +248,7 @@ U0 COCHeaderPut(CCmpCtrl *cc,I64 pass,Bool put)
U8 *COCCompile(CCmpCtrl *cc,I64 *_code_size,CDbgInfo **_dbg,I64 *_type)
{
U8 *result;
U8 *res;
CCodeMisc *lb;
I64 i,code_size,last_code_size;
@@ -296,25 +296,25 @@ U8 *COCCompile(CCmpCtrl *cc,I64 *_code_size,CDbgInfo **_dbg,I64 *_type)
} while (code_size<last_code_size);
if (cc->flags&CCF_AOT_COMPILE)
result=MAlloc(code_size);
res=MAlloc(code_size);
else
result=MAlloc(code_size,Fs->code_heap);
res=MAlloc(code_size,Fs->code_heap);
COCHeaderPut(cc,10,FALSE);
code_size=OptPass789A(cc,reg_offsets,result,_dbg);
code_size=OptPass789A(cc,reg_offsets,res,_dbg);
COCDel(cc,&cc->coc);
if (Bt(&cc->opts,OPTf_TRACE)) {
if (cc->flags&CCF_AOT_COMPILE) {
if (cc->aotc->seg_size==16)
Un(result,code_size,16);
Un(res,code_size,16);
else if (cc->aotc->seg_size==64)
Un(result,code_size,64);
Un(res,code_size,64);
else
Un(result,code_size,32);
Un(res,code_size,32);
} else
Un(result,code_size,64);
Un(res,code_size,64);
}
if (_code_size) *_code_size=code_size;
cc->saved_pass_trace=cc->pass_trace;
return result;
return res;
}