Explorar o código

* fixed compilation with range checking switched on

git-svn-id: trunk@12700 -
Jonas Maebe %!s(int64=16) %!d(string=hai) anos
pai
achega
eee1525de8
Modificáronse 1 ficheiros con 5 adicións e 0 borrados
  1. 5 0
      packages/hash/src/crc.pas

+ 5 - 0
packages/hash/src/crc.pas

@@ -298,6 +298,9 @@ end;
 { ========================================================================
   Table of CRC-64's of all single-byte values (made by make_crc64_table) }
 
+{$push}
+{$r-}
+
 {local}
 const
   crc64_table : array[Byte] of QWord = (
@@ -346,6 +349,8 @@ const
     $A6DF411FBFB21CA3,$DC0731D78F8795DA,$536FA08FDFD90E51,$29B7D047EFEC8728
   );
 
+{$pop}
+
 {$ENDIF}
 
 function get_crc64_table : {const} PQWord;