*fpc: package use FPC native builtins

Author: alexrayne

Source/DECUtil.pas

@@ -266,6 +266,9 @@ implementation
    $27, $A7, $67, $E7, $17, $97, $57, $D7, $37, $B7, $77, $F7, $0F, $8F,
    $4F, $CF, $2F, $AF, $6F, $EF, $1F, $9F, $5F, $DF, $3F, $BF, $7F, $FF);
 
+{$ifdef FPC}
+{$include fpc\DECUtil.inc}
+{$endif}
 
 {$ifdef X64ASM}
   {$include x86_64\DECUtil.inc}

Source/fpc/DECUtil.inc

@@ -0,0 +1,14 @@
+
+{$define SwapUInt32_asm}
+function SwapUInt32(Source: UInt32): UInt32;
+begin
+     result := SwapEndian(Source);
+end;
+
+{$define SwapInt64_asm}
+function SwapInt64(Source: Int64): Int64;
+begin
+     result := SwapEndian(Source);
+end;
+
+

Source/fpc/dec.lpk

@@ -130,6 +130,10 @@
         <Filename Value="..\x86_64\DECUtil.inc"/>
         <Type Value="Include"/>
       </Item>
+      <Item>
+        <Filename Value="DECUtil.inc"/>
+        <Type Value="Include"/>
+      </Item>
     </Files>
     <RequiredPkgs>
       <Item>

Source/x86/DECUtil.inc

@@ -2,17 +2,22 @@
 {$ASMMODE intel}
 {$endif}
 
+{$ifndef SwapUInt32_asm}
 {$define SwapUInt32_asm}
 function SwapUInt32(Source: UInt32): UInt32;
 asm
     BSWAP EAX
 end;
+{$endif}
 
-{$define SwapUInt64_asm}
+{$ifndef SwapInt64_asm}
+{$define SwapInt64_asm}
 function SwapInt64(Source: Int64): Int64;
 asm
       MOV     EDX,Source.DWord[0]
       MOV     EAX,Source.DWord[4]
       BSWAP   EDX
       BSWAP   EAX
 end;
+{$endif}
+

Source/x86_64/DECUtil.inc

@@ -2,17 +2,23 @@
 {$ASMMODE intel}
 {$endif}
 
+{$ifndef SwapUInt32_asm}
 {$define SwapUInt32_asm}
 function SwapUInt32(Source: UInt32): UInt32;
 asm
     MOV   RAX, Source
     BSWAP RAX
     SHR   RAX, 32
 end;
+{$endif}
 
+{$ifndef SwapInt64_asm}
 {$define SwapInt64_asm}
 function SwapInt64(Source: Int64): Int64;
 asm
     MOV   RAX, Source
     BSWAP RAX
 end;
+{$endif}
+
+