瀏覽代碼

- removed odd assembler implementation, using the inline variant usually creates better code

git-svn-id: trunk@8901 -
florian 18 年之前
父節點
當前提交
5a3f71754a
共有 1 個文件被更改,包括 0 次插入15 次删除
  1. 0 15
      rtl/i386/i386.inc

+ 0 - 15
rtl/i386/i386.inc

@@ -1066,21 +1066,6 @@ asm
 end ['EAX','EDX'];
 end ['EAX','EDX'];
 
 
 
 
-{$define FPC_SYSTEM_HAS_ODD_LONGINT}
-function odd(l:longint):boolean;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
-asm
-{$ifdef SYSTEMINLINE}
-       movl     l,%eax
-{$else}
-{$ifndef REGCALL}
-       movl     l,%eax
-{$endif}
-{$endif}
-       andl     $1,%eax
-       setnz    %al
-end ['EAX'];
-
-
 {$define FPC_SYSTEM_HAS_SQR_LONGINT}
 {$define FPC_SYSTEM_HAS_SQR_LONGINT}
 function sqr(l:longint):longint;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
 function sqr(l:longint):longint;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
 asm
 asm