From aacc32fbfa4bc2ef13fa288cc20b0b7640f439e7 Mon Sep 17 00:00:00 2001
From: jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sat, 7 Feb 2009 20:42:45 +0000
Subject:   * fixed compilation with range checking switched on

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12700 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/hash/src/crc.pas | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'packages/hash')

diff --git a/packages/hash/src/crc.pas b/packages/hash/src/crc.pas
index 64c7c5dd82..781db5060e 100644
--- a/packages/hash/src/crc.pas
+++ b/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;
-- 
cgit v1.2.1