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

tests: fix range check error

Browse Source 
git-svn-id: trunk@42523 -
This commit is contained in:
martin 2013-08-30 08:51:16 +00:00
parent 25b5b1428e
commit 46fe5c5c38
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/bugs/bug8432.pas
View File

@ -73,13 +73,13 @@ begin
with FMap do
begin
for i := 0 to 255 do begin
ID := i shl 24;
ID := dword(i) shl 24;
AInt:=i;
Add(ID,AInt);
end;
for i := 0 to 255 do begin
AInt:= 0;
ID := i shl 24;
ID := dword(i) shl 24;
GetData(ID,AInt);
AssertEquals('Wrong entry for '+ IntToStr(i), i, AInt);
end;