Browse Source

* fix compilation of i8086 compiler

git-svn-id: trunk@27566 -
florian 11 năm trước cách đây
mục cha
commit
18233f2c0c
2 tập tin đã thay đổi với 5 bổ sung1 xóa
  1. 1 1
      compiler/x86/cgx86.pas
  2. 4 0
      compiler/x86/nx86inl.pas

+ 1 - 1
compiler/x86/cgx86.pas

@@ -185,7 +185,7 @@ unit cgx86;
 
     function UseAVX: boolean;
       begin
-        Result:=(current_settings.fputype in fpu_avx_instructionsets) or (CPUX86_HAS_AVXUNIT in cpu_capabilities[current_settings.cputype]);
+        Result:=(current_settings.fputype in fpu_avx_instructionsets) {$ifndef i8086}or (CPUX86_HAS_AVXUNIT in cpu_capabilities[current_settings.cputype]){$endif i8086};
       end;
 
 

+ 4 - 0
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;