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

* typecast fix

Browse Source 
git-svn-id: trunk@9349 -
This commit is contained in:
peter 2007-11-29 21:15:08 +00:00
parent 95772c5cd3
commit f0e804beb7
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/nx86inl.pas
View File

@ -246,8 +246,6 @@ implementation
procedure tx86inlinenode.second_round_real;
var
href : treference;
begin
{$ifdef x86_64}
if use_sse(left.resultdef) then
@ -279,9 +277,7 @@ implementation
procedure tx86inlinenode.second_trunc_real;
var
href : treference;
oldcw,newcw : treference;
tempreg : tregister;
begin
{$ifdef x86_64}
if use_sse(left.resultdef) and
@ -427,7 +423,7 @@ implementation
{$ifdef i386}
if current_settings.cputype<cpu_Pentium2 then
begin
opsize:=int_cgsize(tcallparanode(left).resultdef.size);
opsize:=int_cgsize(left.resultdef.size);
secondpass(left);
location_force_reg(current_asmdata.CurrAsmList,left.location,opsize,false);
location:=left.location;
@ -440,7 +436,7 @@ implementation
else
{$endif i386}
begin
opsize:=int_cgsize(tcallparanode(left).resultdef.size);
opsize:=int_cgsize(left.resultdef.size);
secondpass(left);
location_force_reg(current_asmdata.CurrAsmList,left.location,opsize,true);
hregister:=cg.getintregister(current_asmdata.CurrAsmList,opsize);