Browse Source

i8086 fix for taddnode.pass_typecheck_internal and real types

git-svn-id: branches/i8086@23735 -
nickysn 12 years ago
parent
commit
e4d66dd95c
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/nadd.pas

+ 2 - 2
compiler/nadd.pas

@@ -1068,12 +1068,12 @@ 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}
+  {$if defined(i386) or defined(i8086)}
         if not(current_settings.fputype=fpu_x87) then
         if not(current_settings.fputype=fpu_x87) then
           resultrealdef:=s64floattype
           resultrealdef:=s64floattype
         else
         else
           resultrealdef:=pbestrealtype^;
           resultrealdef:=pbestrealtype^;
-  {$endif i386}
+  {$endif i386 or i8086}
   {$ifdef x86_64}
   {$ifdef x86_64}
         { x86-64 has no x87 only mode, so use always double as default }
         { x86-64 has no x87 only mode, so use always double as default }
         resultrealdef:=s64floattype;
         resultrealdef:=s64floattype;