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

* x86_64 fix, removed pointer to integer casts

Browse Source 
git-svn-id: trunk@6392 -
This commit is contained in:
marc 2004-12-19 15:24:45 +00:00
parent 924cd35914
commit 911977269b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/lclmemmanager.pas
View File

@ -237,10 +237,11 @@ begin
FillChar(FCurItem^,FCurSize,0);
if FItems=nil then FItems:=TList.Create;
FItems.Add(FCurItem);
FEndItem:=Pointer(integer(FCurItem)+FCurSize);
FEndItem := FCurItem;
Inc(FEndItem, FCurSize);
end;
Result:=FCurItem;
inc(integer(FCurItem),FItemSize);
Inc(FCurItem, FItemSize);
end;
procedure TLCLNonFreeMemManager.EnumerateItems(Method: TLCLEnumItemsMethod);
@ -257,12 +258,13 @@ begin
for i:=0 to Cnt-1 do begin
inc(Size,Size);
p:=FItems[i];
Last:=Pointer(integer(p)+Size);
Last := p;
Inc(Last, Size);
if i=Cnt-1 then
Last:=FEndItem;
while p<>Last do begin
Method(p);
inc(integer(p),FItemSize);
Inc(p, FItemSize);
end;
end;
end;