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

* fixed compilation on non x86 systems

Browse Source 
git-svn-id: trunk@3300 -
This commit is contained in:
florian 2006-04-20 15:03:53 +00:00
parent 89f5d65784
commit c1c8a274bc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgbas.pas
View File

@ -381,6 +381,7 @@ interface
begin begin
if tempinfo^.restype.def.deftype=floatdef then if tempinfo^.restype.def.deftype=floatdef then
begin begin
{$ifdef x86}
if use_sse(tempinfo^.restype.def) then if use_sse(tempinfo^.restype.def) then
begin begin
if (tempinfo^.temptype = tt_persistent) then if (tempinfo^.temptype = tt_persistent) then
@ -390,6 +391,7 @@ interface
tempinfo^.location.register:=cg.getmmregister(current_asmdata.CurrAsmList,tempinfo^.location.size); tempinfo^.location.register:=cg.getmmregister(current_asmdata.CurrAsmList,tempinfo^.location.size);
end end
else else
{$endif x86}
begin begin
if (tempinfo^.temptype = tt_persistent) then if (tempinfo^.temptype = tt_persistent) then
location_reset(tempinfo^.location,LOC_CFPUREGISTER,def_cgsize(tempinfo^.restype.def)) location_reset(tempinfo^.location,LOC_CFPUREGISTER,def_cgsize(tempinfo^.restype.def))