paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:49:26 +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

20
compiler/riscv64/cpupara.pas
View File

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