From d70200244b3f27eeb01c47df4f81ed793f1e8cc9 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 14 Dec 2014 14:16:54 +0100
Subject: [PATCH] hide range error in debug mode

---
 src/ce_synmemo.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index f372f00e..eb07c63a 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -187,17 +187,21 @@ begin
   fMemo.SelEnd := fSelectionEnd;
 end;
 
+{$IFDEF DEBUG}{$R-}{$ENDIF}
 procedure TCESynMemoCache.save;
 var
   fname: string;
   tempn: string;
+  chksm: Cardinal;
 begin
   tempn := fMemo.fileName;
   if not fileExists(tempn) then exit;
   //
   fname := getDocPath + 'editorcache' + DirectorySeparator;
   ForceDirectories(fname);
-  fname := fname + format('%.8X.txt', [crc32(0, @tempn[1], length(tempn))]);
+  chksm := crc32(0, nil, 0);
+  chksm := crc32(chksm, @tempn[1], length(tempn));
+  fname := fname + format('%.8X.txt', [chksm]);
   saveToFile(fname);
 end;
 
@@ -205,16 +209,20 @@ procedure TCESynMemoCache.load;
 var
   fname: string;
   tempn: string;
+  chksm: Cardinal;
 begin
   tempn := fMemo.fileName;
   if not fileExists(tempn) then exit;
   //
   fname := getDocPath + 'editorcache' + DirectorySeparator;
-  fname := fname + format('%.8X.txt', [crc32(0, @tempn[1], length(tempn))]);
+  chksm := crc32(0, nil, 0);
+  chksm := crc32(chksm, @tempn[1], length(tempn));
+  fname := fname + format('%.8X.txt', [chksm]);
   //
   if not fileExists(fname) then exit;
   loadFromFile(fname);
 end;
+{$IFDEF DEBUG}{$R+}{$ENDIF}
 {$ENDREGION}
 
 {$REGION TCESynMemoPositions ---------------------------------------------------}