Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-02 19:29:21 +00:00
Code Issues Projects Releases Wiki Activity

Fix bug in code generation for the product of two constants.

Browse Source 
This was a problem introduced in commit 393b7304a0. It could cause a compiler error for unoptimized array indexing code, e.g.:

int a[100];
int main(void) {
        return a[5];
}
This commit is contained in:
Stephen Heumann 2022-07-09 15:01:25 -05:00
parent 00e7fe7125
commit 054719aab2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Gen.pas
View File

@ -6456,7 +6456,7 @@ procedure GenTree {op: icptr};
nd := op^.left; nd := op^.left;
end; {else} end; {else}
if nd^.opcode = pc_ldc then if nd^.opcode = pc_ldc then
GenNative(m_lda_imm, immediate, long(ord4(val) * nd^.q).lsw, nil, 0) GenNative(m_lda_imm, immediate, ord(ord4(val) * ord4(nd^.q)), nil, 0)
else begin else begin
GenTree(nd); GenTree(nd);
case val of case val of