paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +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

16
compiler/nadd.pas
View File

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