- Fixed some range violations

2011-03-29 22:04:39 +02:00
parent bfe71ae93f
commit 086e6dbb7b
3 changed files with 10 additions and 7 deletions
--- a/UOLib/UArt.pas
+++ b/UOLib/UArt.pas
@@ -60,7 +60,7 @@ implementation

 type
  PWordArray = ^TWordArray;
-  TWordArray = array[0..16383] of Word;
+  TWordArray = array[0..(MaxInt div SizeOf(Word) - 1)] of Word;

 constructor TArt.Create(AData: TStream; AIndex: TGenericIndex; AArtType: TArtType);
 begin