frederik
/
oscar64
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix enums in debug output

This commit is contained in:
drmortalwombat 2023-05-27 14:17:30 +02:00
parent 7d3dc493c0
commit a4faf204cb
3 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
oscar64/Compiler.cpp
View File

@ -1182,12 +1182,15 @@ bool Compiler::WriteDbjFile(const char* filename)
bool tfirst = true;
Declaration* mdec = dec->mParams;
while (mdec)
{
if (mdec->mIdent)
{
if (!tfirst)
fprintf(file, ",\n");
tfirst = false;
fprintf(file, "\t\t\t{\"name\": \"%s\", \"value\": %d}", mdec->mIdent->mString, int(mdec->mInteger));
}
mdec = mdec->mNext;
}

11
oscar64/NativeCodeGenerator.cpp
View File

@ -28173,6 +28173,9 @@ bool NativeCodeBasicBlock::OptimizeSimpleLoopInvariant(NativeCodeProcedure* proc
{
if (!prevBlock)
return OptimizeSimpleLoopInvariant(proc, full);
mExitRequiredRegs += CPU_REG_Y;
exitBlock->mEntryRequiredRegs += CPU_REG_Y;
exitBlock->mIns.Insert(0, mIns[ei]);
mIns.Remove(ei);
@ -29500,6 +29503,10 @@ bool NativeCodeBasicBlock::OptimizeSimpleLoop(NativeCodeProcedure * proc, bool f
assert(mBranch != ASMIT_JMP || mFalseJump == nullptr);
CheckLive();
if (mTrueJump)
mTrueJump->CheckLive();
if (mFalseJump)
mFalseJump->CheckLive();
#if 1
if (sz > 3 &&
@ -30226,6 +30233,8 @@ bool NativeCodeBasicBlock::OptimizeInnerLoop(NativeCodeProcedure* proc, NativeCo
tail->mEntryRequiredRegs += CPU_REG_Y;
tail->mExitRequiredRegs += CPU_REG_Y;
head->mExitRequiredRegs += CPU_REG_Y;
eblock->mEntryRequiredRegs = tail->mExitRequiredRegs;
eblock->mEntryRequiredRegs += CPU_REG_Y;
lblock->CheckLive();
@ -39225,7 +39234,7 @@ void NativeCodeProcedure::Compile(InterCodeProcedure* proc)
{
mInterProc = proc;
CheckFunc = !strcmp(mInterProc->mIdent->mString, "iec_read");
CheckFunc = !strcmp(mInterProc->mIdent->mString, "rirq_build");
int nblocks = proc->mBlocks.Size();
tblocks = new NativeCodeBasicBlock * [nblocks];

6
oscar64/Parser.cpp
View File

@ -333,13 +333,13 @@ Declaration* Parser::ParseBaseTypeDeclaration(uint64 flags)
else if (cdec->mInteger > maxValue)
maxValue = cdec->mInteger;
cdec->mNext = dec->mParams;
dec->mParams = cdec;
if (mScanner->mToken == TK_COMMA)
mScanner->NextToken();
else
break;
cdec->mNext = dec->mParams;
dec->mParams = cdec;
}
dec->mMinValue = minValue;