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

Fix global array aliasing error

This commit is contained in:
drmortalwombat 2023-11-20 22:53:12 +01:00
parent a9fc83d63c
commit eec4ed45d1
4 changed files with 37 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
include/fixmath.c
View File

@ -630,19 +630,31 @@ unsigned long lmul16f16(unsigned long x, unsigned long y)
__native long lmul16f16s(long x, long y)
{
if (x < 0)
unsigned lox = x;
int hix = x >> 16;
unsigned loy = y;
int hiy = y >> 16;
long r = (long)(hix * hiy) << 16;
if (lox)
{
if (y < 0)
return lmul16f16(-x, -y);
else
return -lmul16f16(-x, y);
r += lmul16u(lox, hiy);
if (hiy < 0)
r -= (unsigned long)lox << 16;
}
else if (y < 0)
if (loy)
{
return -lmul16f16(x, -y);
r += lmul16u(loy, hix);
if (hix < 0)
r -= (unsigned long)loy << 16;
}
else
return lmul16f16(x, y);
if (lox && loy)
{
r += lmul16u(lox, loy) >> 16;
}
return r;
}
__native unsigned long ldiv16f16(unsigned long x, unsigned long y)

2
oscar64/InterCode.cpp
View File

@ -18594,7 +18594,7 @@ void InterCodeProcedure::Close(void)
{
GrowingTypeArray tstack(IT_NONE);
CheckFunc = !strcmp(mIdent->mString, "test");
CheckFunc = !strcmp(mIdent->mString, "interpret_expression");
CheckCase = false;
mEntryBlock = mBlocks[0];

2
oscar64/InterCodeGenerator.cpp
View File

@ -686,7 +686,7 @@ void InterCodeGenerator::InitGlobalVariable(InterCodeModule * mod, Declaration*
var->mDeclaration = dec;
mod->mGlobalVars.Push(var);
if (dec->mFlags & DTF_VAR_ALIASING)
if ((dec->mFlags & DTF_VAR_ALIASING) || (dec->mBase->mType == DT_TYPE_ARRAY && !(type->mFlags & DTF_CONST)))
var->mAliased = true;
dec->mVarIndex = var->mIndex;

14
oscar64/NativeCodeGenerator.cpp
View File

@ -40431,6 +40431,20 @@ bool NativeCodeBasicBlock::PeepHoleOptimizer(NativeCodeProcedure* proc, int pass
else
mIns[i + 4].mType = ASMIT_NOP;
progress = true;
}
else if (
mIns[i + 0].mType == ASMIT_LDA &&
mIns[i + 1].mType == ASMIT_STA &&
mIns[i + 2].mType == ASMIT_CLC &&
mIns[i + 3].mType == ASMIT_ADC && mIns[i + 3].mMode == ASMIM_IMMEDIATE && mIns[i + 3].mAddress == 1 &&
mIns[i + 4].mType == ASMIT_STA && mIns[i + 4].SameEffectiveAddress(mIns[i + 0]) && !(mIns[i + 4].mLive & (LIVE_CPU_REG_A | LIVE_CPU_REG_C)) &&
HasAsmInstructionMode(ASMIT_INC, mIns[i + 0].mMode))
{
mIns[i + 4].mType = ASMIT_INC;
mIns[i + 2].mType = ASMIT_NOP; mIns[i + 3].mMode = ASMIM_IMPLIED;
mIns[i + 3].mType = ASMIT_NOP; mIns[i + 3].mMode = ASMIM_IMPLIED;
progress = true;
}
#endif