paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 00:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix for runtime range checking

Browse Source 
git-svn-id: trunk@5512 -
This commit is contained in:
mattias 2004-05-25 22:20:36 +00:00
parent 3fb20adcaa
commit 78588945fb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/jitforms.pp
View File

@ -615,7 +615,8 @@ type
TMethodNameTable = packed record
Count : DWord;
Entries : packed array[0..0] of TMethodNameRec;
// for runtime range checking it is important to give a range
Entries : packed array[0..1000000] of TMethodNameRec;
end;
PMethodNameTable = ^TMethodNameTable;