Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-06 15:35:39 +00:00
Code Issues Projects Releases Wiki Activity

Don't generate scalar load operations with bogus types.

Browse Source 
This could occur with some operations on function parameters declared with array types, in some cases leading to compiler errors.

Fixes #61.
This commit is contained in:
Stephen Heumann 2019-01-27 11:53:09 -06:00
parent 6bd600157d
commit 1a2e4772cd
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Expression.pas
View File

@ -1963,10 +1963,10 @@ var
tp: baseTypeEnum; {base type}
begin {LoadScalar}
if id^.itype^.kind = pointerType then
tp := cgULong
else
tp := id^.itype^.baseType;
if id^.itype^.kind = scalarType then
tp := id^.itype^.baseType
else {if id^.itype^.kind in [pointerType,arrayType] then}
tp := cgULong;
case id^.storage of
stackFrame, parameter:
Gen2t(pc_lod, id^.lln, 0, tp);
@ -2521,7 +2521,7 @@ var
goto 1;
end; {if}
end {if}
else {if iType^.kind = pointerType then} begin
else {if iType^.kind in [pointerType,arrayType] then} begin
lSize := iType^.pType^.size;
if lSize = 0 then
Error(122);