paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 07:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup

Browse Source 
git-svn-id: branches/laksen/riscv_new@39712 -
This commit is contained in:
florian 2018-09-07 19:22:59 +00:00
parent 29ea4ed07d
commit f040c19fd6
1 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/riscv64/cpupara.pas
View File

@ -298,17 +298,12 @@ implementation
locdef, locdef,
tmpdef: tdef; tmpdef: tdef;
paralen: aint; paralen: aint;
parashift: byte;
tailpadding,
firstparaloc, firstparaloc,
paraaligned: boolean; paraaligned: boolean;
begin begin
alllocdef:=nil; alllocdef:=nil;
locdef:=nil; locdef:=nil;
parashift := 0;
para.reset; para.reset;
{ should the tail be shifted into the most significant bits? }
tailpadding:=false;
{ have we ensured that the next parameter location will be aligned to the { have we ensured that the next parameter location will be aligned to the
next 8 byte boundary? } next 8 byte boundary? }
paraaligned:=false; paraaligned:=false;
@ -399,7 +394,6 @@ implementation
(nextintreg <= RS_X17) and (nextintreg <= RS_X17) and
not forceintmem then begin not forceintmem then begin
paraloc^.loc := loc; paraloc^.loc := loc;
paraloc^.shiftval := parashift;
{ make sure we don't lose whether or not the type is signed } { make sure we don't lose whether or not the type is signed }
if (paracgsize <> OS_NO) and if (paracgsize <> OS_NO) and
@ -410,19 +404,9 @@ implementation
locdef:=get_paraloc_def(paradef, paralen, firstparaloc); locdef:=get_paraloc_def(paradef, paralen, firstparaloc);
end; end;
{ Partial aggregate data may have to be left-aligned. If so, add tail if (paracgsize in [OS_NO, OS_128, OS_S128]) then
padding }
if tailpadding and
(paralen < sizeof(aint)) then
begin begin
paraloc^.shiftval := (sizeof(aint)-paralen)*(-8); if (paralen>4) then
paraloc^.size := OS_INT;
paraloc^.def := u64inttype;
end
else if (paracgsize in [OS_NO, OS_128, OS_S128]) then
begin
if (paralen>4) or
(parashift<>0) then
begin begin
paraloc^.size := OS_INT; paraloc^.size := OS_INT;
paraloc^.def := osuinttype; paraloc^.def := osuinttype;