paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 03:19:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* small MIPS64 fix

Browse Source
This commit is contained in:
florian 2022-06-13 23:07:22 +02:00
parent 03a961709b
commit d153c75e84
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/mips/cpupara.pas
View File

@ -365,7 +365,17 @@ implementation
while paralen>0 do while paralen>0 do
begin begin
paraloc:=hp.paraloc[side].add_location; paraloc:=hp.paraloc[side].add_location;
{$ifndef cpu64bitalu} {$ifdef cpu64bitalu}
if paracgsize in [OS_128,OS_S128] then
begin
if paralen>4 then
begin
paraloc^.size:=OS_64;
paraloc^.def:=u64inttype;
end
end
else
{$else cpu64bitalu}
{ We can allocate at maximum 32 bits per register on mips32 } { We can allocate at maximum 32 bits per register on mips32 }
if (paracgsize in [OS_64,OS_S64]) or if (paracgsize in [OS_64,OS_S64]) or
((paracgsize in [OS_F32,OS_F64]) and ((paracgsize in [OS_F32,OS_F64]) and