paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 12:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't lose sign of ord types for register parameters

Browse Source
This commit is contained in:
Jonas Maebe 2005-02-19 14:04:14 +00:00
parent 6c38093871
commit 706a87c2df
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/cpupara.pas
View File

@ -459,7 +459,9 @@ unit cpupara;
(nextintreg <= RS_R10) then
begin
paraloc^.loc := loc;
paracgsize := int_cgsize(paralen);
{ make sure we don't lose whether or not the type is signed }
if (paradef.deftype <> orddef) then
paracgsize := int_cgsize(paralen);
if (paracgsize in [OS_NO,OS_64,OS_S64]) then
paraloc^.size := OS_INT
else
@ -650,7 +652,10 @@ begin
end.
{
$Log$
Revision 1.89 2005-02-14 17:13:10 peter
Revision 1.90 2005-02-19 14:04:14 jonas
* don't lose sign of ord types for register parameters
Revision 1.89 2005/02/14 17:13:10 peter
* truncate log
Revision 1.88 2005/02/11 15:20:23 jonas