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

* fixed my previous commit

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-31 00:48:15 +00:00
parent 414bd5fa22
commit 2961250600
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ncgutil.pas
View File

@ -459,9 +459,15 @@ implementation
if (target_info.endian = ENDIAN_BIG) and
(l.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
inc(l.reference.offset,TCGSize2Size[l.size]-TCGSize2Size[dst_size]);
l.size:=dst_size;
{$ifdef i386}
l.size:=dst_size;
{$endif i386}
end;
cg.a_load_loc_reg(list,dst_size,l,hregister);
{$ifndef i386}
if (TCGSize2Size[dst_size]<TCGSize2Size[l.size]) then
l.size:=dst_size;
{$endif not i386}
{ Release old register when the superregister is changed }
if (l.loc=LOC_REGISTER) and
(l.register.number shr 8<>hregister.number shr 8) then
@ -571,10 +577,16 @@ implementation
if (target_info.endian = ENDIAN_BIG) and
(l.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
inc(l.reference.offset,TCGSize2Size[l.size]-TCGSize2Size[dst_size]);
l.size:=dst_size;
{$ifdef i386}
l.size:=dst_size;
{$endif i386}
end;
cg.a_load_loc_reg(list,dst_size,l,hregister);
{$ifndef i386}
if (TCGSize2Size[dst_size]<TCGSize2Size[l.size]) then
l.size:=dst_size;
{$endif not i386}
end;
end;
location_reset(l,LOC_REGISTER,dst_size);
@ -1909,7 +1921,10 @@ implementation
end.
{
$Log$
Revision 1.112 2003-05-30 23:57:08 peter
Revision 1.113 2003-05-31 00:48:15 jonas
* fixed my previous commit
Revision 1.112 2003/05/30 23:57:08 peter
* more sparc cleanup
* accumulator removed, splitted in function_return_reg (called) and
function_result_reg (caller)