Переглянути джерело

* fixed compilation with range checking switched on

git-svn-id: trunk@12700 -
Jonas Maebe 16 роки тому
батько
коміт
eee1525de8
1 змінених файлів з 5 додано та 0 видалено
  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;