Преглед изворни кода

* use the generic implementation of abs for the i8086

git-svn-id: branches/i8086@24004 -
nickysn пре 12 година
родитељ
комит
44ef72e1a4
1 измењених фајлова са 4 додато и 0 уклоњено
  1. 4 0
      compiler/x86/nx86inl.pas

+ 4 - 0
compiler/x86/nx86inl.pas

@@ -60,7 +60,9 @@ interface
 
 
           procedure second_prefetch;override;
           procedure second_prefetch;override;
 
 
+{$ifndef i8086}
           procedure second_abs_long;override;
           procedure second_abs_long;override;
+{$endif not i8086}
           procedure second_popcnt;override;
           procedure second_popcnt;override;
        private
        private
           procedure load_fpu_location;
           procedure load_fpu_location;
@@ -434,6 +436,7 @@ implementation
        end;
        end;
 
 
 
 
+{$ifndef i8086}
     procedure tx86inlinenode.second_abs_long;
     procedure tx86inlinenode.second_abs_long;
       var
       var
         hregister : tregister;
         hregister : tregister;
@@ -470,6 +473,7 @@ implementation
             current_asmdata.CurrAsmList.concat(hp);
             current_asmdata.CurrAsmList.concat(hp);
           end;
           end;
       end;
       end;
+{$endif not i8086}
 
 
 {*****************************************************************************
 {*****************************************************************************
                      INCLUDE/EXCLUDE GENERIC HANDLING
                      INCLUDE/EXCLUDE GENERIC HANDLING