Sfoglia il codice sorgente

* use the generic implementation of second_IncludeExclude in case the cpu is earlier than 386, since then it does not support BTR and BTS

git-svn-id: trunk@24593 -
nickysn 12 anni fa
parent
commit
09249b31b8
1 ha cambiato i file con 8 aggiunte e 0 eliminazioni
  1. 8 0
      compiler/x86/nx86inl.pas

+ 8 - 0
compiler/x86/nx86inl.pas

@@ -491,6 +491,14 @@ implementation
          opsize,
          orgsize: tcgsize;
         begin
+{$ifdef i8086}
+          { BTS and BTR are 386+ }
+          if current_settings.cputype < cpu_386 then
+            begin
+              inherited;
+              exit;
+            end;
+{$endif i8086}
           if is_smallset(tcallparanode(left).resultdef) then
             begin
               opdef:=tcallparanode(left).resultdef;