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

+ added missing make_simple_ref

Browse Source 
git-svn-id: trunk@1760 -
This commit is contained in:
florian 2005-11-15 19:43:37 +00:00
parent 99be25604b
commit f8e6df62b6
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/nx86cnv.pas
View File

@ -254,12 +254,16 @@ implementation
{ double (2^64) }
asmlist[al_typedconsts].concat(Tai_const.Create_32bit(0));
asmlist[al_typedconsts].concat(Tai_const.Create_32bit($43f00000));
{ simplify for PIC }
cg.make_simple_ref(exprasmlist,href);
exprasmlist.concat(taicpu.op_ref_reg(A_ADDSD,S_NO,href,location.register));
end
else if is_single(resulttype.def) then
begin
{ single(2^64) }
asmlist[al_typedconsts].concat(Tai_const.Create_32bit($5f800000));
{ simplify for PIC }
cg.make_simple_ref(exprasmlist,href);
exprasmlist.concat(taicpu.op_ref_reg(A_ADDSS,S_NO,href,location.register));
end
else