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

* fixed bug in tdynamicarray.align (merged)

Browse Source
This commit is contained in:
Jonas Maebe 2000-11-03 19:41:06 +00:00
parent 767ecef9bb
commit 54fa8b2d7b
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/cobjects.pas
View File

@ -1550,8 +1550,8 @@ end;
j:=i-j;
if posnblock^.used+j>blocksize then
begin
posnblock^.used:=blocksize;
dec(j,blocksize-posnblock^.used);
posnblock^.used:=blocksize;
grow;
posnblock:=lastblock;
end;
@ -1843,7 +1843,10 @@ end;
end.
{
$Log$
Revision 1.16 2000-10-31 22:02:46 peter
Revision 1.17 2000-11-03 19:41:06 jonas
* fixed bug in tdynamicarray.align (merged)
Revision 1.16 2000/10/31 22:02:46 peter
* symtable splitted, no real code changes
Revision 1.15 2000/10/14 10:14:46 peter