paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 20:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed dynamicarray.seek() with pos equals multiple of $10000

Browse Source
This commit is contained in:
peter 2001-05-04 19:50:04 +00:00
parent 3c5793d8c6
commit 351fdd970e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cclasses.pas
View File

@ -1585,7 +1585,7 @@ end;
procedure tdynamicarray.seek(i:integer); procedure tdynamicarray.seek(i:integer);
begin begin
if (i<FPosnblock^.pos) or (i>FPosnblock^.pos+blocksize) then if (i<FPosnblock^.pos) or (i>=FPosnblock^.pos+blocksize) then
begin begin
{ set FPosnblock correct if the size is bigger then { set FPosnblock correct if the size is bigger then
the current block } the current block }
@ -1738,7 +1738,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.6 2001-04-13 01:22:06 peter Revision 1.7 2001-05-04 19:50:04 peter
* fixed dynamicarray.seek() with pos equals multiple of $10000
Revision 1.6 2001/04/13 01:22:06 peter
* symtable change to classes * symtable change to classes
* range check generation and errors fixed, make cycle DEBUG=1 works * range check generation and errors fixed, make cycle DEBUG=1 works
* memory leaks fixed * memory leaks fixed