paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reorganize code to avoid warnings about unreachable code

Browse Source 
git-svn-id: trunk@17868 -
This commit is contained in:
pierre 2011-06-29 09:59:06 +00:00
parent 5148cb6ca8
commit 9ec1213be1
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nadd.pas
View File

@ -900,15 +900,17 @@ implementation
{ use extended as default real type only when the x87 fpu is used }
{$ifdef i386}
if not(current_settings.fputype=fpu_x87) then
resultrealdef:=s64floattype
else
resultrealdef:=pbestrealtype^;
{$endif i386}
{$ifdef x86_64}
{ x86-64 has no x87 only mode, so use always double as default }
if true then
resultrealdef:=s64floattype;
{$endif x86_6}
resultrealdef:=s64floattype
else
{$endif x86}
{$else not x86}
resultrealdef:=pbestrealtype^;
{$endif not x86}
if (right.resultdef.typ=floatdef) or (left.resultdef.typ=floatdef) then
begin