diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-11-27 20:54:41 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-11-27 20:54:41 +0000 |
commit | 7c0d92a1f661fde672be305ddee24a3366ea2a12 (patch) | |
tree | de39206d09568c7c1f334e50f66ab338db41f4d8 | |
parent | 1a3d1e68641c5a8d2d9fc2fd2eba292701f60d63 (diff) | |
download | fpc-7c0d92a1f661fde672be305ddee24a3366ea2a12.tar.gz |
* fix for 0012697. crcs were used using a unit from the compiler.
Maybe polynomals were changed there since this was originally implemented
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12255 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | ide/fpini.pas | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/ide/fpini.pas b/ide/fpini.pas index 9aecfadb6c..8d3038540b 100644 --- a/ide/fpini.pas +++ b/ide/fpini.pas @@ -31,7 +31,7 @@ procedure SetPrinterDevice(const Device: string); implementation -uses +uses Dos,Objects,Drivers, FVConsts, Version, @@ -362,6 +362,7 @@ var INIFile: PINIFile; OK: boolean; ts : TSwitchMode; W: word; + crcv:cardinal; begin OK:=ExistsFile(IniFileName); if OK then @@ -432,10 +433,12 @@ begin CtrlMouseAction:=INIFile^.GetIntEntry(secMouse,ieCtrlClickAction,CtrlMouseAction); {Keyboard} S:=upcase(INIFile^.GetEntry(secKeyboard,ieEditKeys,'')); - case UpdateCrc32(0,s[1],Length(s)) of - $86a4c898: {crc32 for 'MICROSOFT'} + crcv := UpdateCrc32(0,s[1],Length(s)) ; + case crcv of + $795B3767 : {crc32 for 'MICROSOFT'} EditKeys:=ekm_microsoft; - $b20b87b3: {crc32 for 'BORLAND'} + $4DF4784C + : {crc32 for 'BORLAND'} EditKeys:=ekm_borland; else EditKeys:=ekm_default; |