paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-29 17:37:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ MIPS: Allocate a LOC_VOID location for empty records, avoids internal errors in other parts of compiler.

Browse Source 
git-svn-id: trunk@23586 -
This commit is contained in:
sergei 2013-02-08 17:53:04 +00:00
parent 2a1a196234
commit 209bfaa774
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/mips/cpupara.pas
View File

@ -360,6 +360,16 @@ implementation
hp.paraloc[side].intsize:=paralen; hp.paraloc[side].intsize:=paralen;
hp.paraloc[side].size:=paracgsize; hp.paraloc[side].size:=paracgsize;
hp.paraloc[side].def:=paradef; hp.paraloc[side].def:=paradef;
if (paralen=0) then
if (paradef.typ=recorddef) then
begin
paraloc:=hp.paraloc[side].add_location;
paraloc^.loc:=LOC_VOID;
end
else
internalerror(2013020601);
{ check the alignment, mips O32ABI require a nature alignment } { check the alignment, mips O32ABI require a nature alignment }
tmp := align(intparasize, alignment) - intparasize; tmp := align(intparasize, alignment) - intparasize;
while tmp > 0 do while tmp > 0 do