Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fixed range check error when compiling with -dTest_Double_checksum
(although it crashes later for other reasons)

git-svn-id: branches/jvmbackend@18601 -

Jonas Maebe 14 years ago
parent
16cb75a5da
commit
c943d703fd
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      compiler/ppu.pas

+ 1 - 1
compiler/ppu.pas
View File 

@@ -38,7 +38,7 @@ var
 
 const
 
 const
 
   CRC_array_Size = 200000;
 
   CRC_array_Size = 200000;
 
 type
 
 type
 
-  tcrc_array = array[0..crc_array_size] of longint;
 
+  tcrc_array = array[0..crc_array_size] of dword;
 
   pcrc_array = ^tcrc_array;
 
   pcrc_array = ^tcrc_array;
 
 {$endif Test_Double_checksum}
 
 {$endif Test_Double_checksum}