* fix compilation of i8086 compiler

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@27566 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 0 deletions

diff --git a/compiler/x86/nx86inl.pas b/compiler/x86/nx86inl.pas
index 06a562baed..1d6e02486a 100644
--- a/compiler/x86/nx86inl.pas
+++ b/compiler/x86/nx86inl.pas
@@ -251,6 +251,7 @@ implementation
 
      function tx86inlinenode.first_fma : tnode;
        begin
+{$ifndef i8086}
          if ((cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[]) and
            ((is_double(resultdef)) or (is_single(resultdef))) then
            begin
@@ -258,6 +259,7 @@ implementation
              Result:=nil;
            end
          else
+{$endif i8086}
            Result:=inherited first_fma;
        end;
 
@@ -768,6 +770,7 @@ implementation
         i : integer;
         gotmem : boolean;
       begin
+{$ifndef i8086}
          if (cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[] then
            begin
              paraarray[1]:=tcallparanode(tcallparanode(tcallparanode(parameters).nextpara).nextpara).paravalue;
@@ -834,6 +837,7 @@ implementation
                end;
            end
          else
+{$endif i8086}
            internalerror(2014032301);
       end;