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

- undid previous patch, it was not necessary and on top of that, it

Browse Source 
contained a bug :/
This commit is contained in:
Jonas Maebe 2003-05-25 09:27:13 +00:00
parent 64eb7ee2ec
commit 9a0c1f50e9
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncgcnv.pas
View File

@ -93,20 +93,18 @@ interface
if (ressize<>leftsize) and
not is_void(left.resulttype.def) then
begin
location_copy(location,left.location);
{ reuse a loc_reference when the newsize is smaller than
than the original, else load it to a register }
if (location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and
(ressize<leftsize) then
begin
left.location.size:=newsize;
location.size:=newsize;
if (target_info.endian = ENDIAN_BIG) then
inc(left.location.reference.offset,leftsize-ressize);
inc(location.reference.offset,leftsize-ressize);
end
else
begin
location_force_reg(exprasmlist,left.location,newsize,false);
end;
location_copy(location,left.location);
location_force_reg(exprasmlist,location,newsize,false);
end
else
begin
@ -513,8 +511,9 @@ end.
{
$Log$
Revision 1.41 2003-05-24 11:59:42 jonas
* fixed integer typeconversion problems
Revision 1.42 2003-05-25 09:27:13 jonas
- undid previous patch, it was not necessary and on top of that, it
contained a bug :/
Revision 1.40 2003/05/23 14:27:35 peter
* remove some unit dependencies