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

* big endian fix for second_int_to_int

Browse Source
This commit is contained in:
Jonas Maebe 2002-09-16 13:08:44 +00:00
parent 685b7f4896
commit fcec3ae6b0
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/ncgcnv.pas
View File

@ -64,7 +64,7 @@ interface
cutils,verbose,
aasmbase,aasmtai,aasmcpu,symconst,symdef,paramgr,
ncon,ncal,
cpubase,cpuinfo,cpupara,
cpubase,cpuinfo,cpupara,systems,
pass_2,
cginfo,cgbase,
cgobj,cgcpu,
@ -76,6 +76,7 @@ interface
procedure tcgtypeconvnode.second_int_to_int;
var
newsize : tcgsize;
ressize, leftsize: cardinal;
begin
newsize:=def_cgsize(resulttype.def);
@ -84,14 +85,20 @@ interface
cg.g_rangecheck(exprasmlist,left,resulttype.def);
{ is the result size smaller ? }
if resulttype.def.size<>left.resulttype.def.size then
ressize := resulttype.def.size;
leftsize := left.resulttype.def.size;
if ressize<>leftsize 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
(resulttype.def.size<left.resulttype.def.size) then
location.size:=newsize
(ressize<leftsize) then
begin
location.size:=newsize;
if (target_info.endian = ENDIAN_BIG) then
inc(location.reference.offset,leftsize-ressize);
end
else
location_force_reg(exprasmlist,location,newsize,false);
end
@ -496,7 +503,10 @@ end.
{
$Log$
Revision 1.30 2002-09-07 15:25:02 peter
Revision 1.31 2002-09-16 13:08:44 jonas
* big endian fix for second_int_to_int
Revision 1.30 2002/09/07 15:25:02 peter
* old logs removed and tabs fixed
Revision 1.29 2002/09/02 18:46:00 peter