mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-25 08:19:25 +02:00
* x86_64 fix, removed pointer to integer casts
git-svn-id: trunk@6392 -
This commit is contained in:
parent
924cd35914
commit
911977269b
@ -237,10 +237,11 @@ begin
|
|||||||
FillChar(FCurItem^,FCurSize,0);
|
FillChar(FCurItem^,FCurSize,0);
|
||||||
if FItems=nil then FItems:=TList.Create;
|
if FItems=nil then FItems:=TList.Create;
|
||||||
FItems.Add(FCurItem);
|
FItems.Add(FCurItem);
|
||||||
FEndItem:=Pointer(integer(FCurItem)+FCurSize);
|
FEndItem := FCurItem;
|
||||||
|
Inc(FEndItem, FCurSize);
|
||||||
end;
|
end;
|
||||||
Result:=FCurItem;
|
Result:=FCurItem;
|
||||||
inc(integer(FCurItem),FItemSize);
|
Inc(FCurItem, FItemSize);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TLCLNonFreeMemManager.EnumerateItems(Method: TLCLEnumItemsMethod);
|
procedure TLCLNonFreeMemManager.EnumerateItems(Method: TLCLEnumItemsMethod);
|
||||||
@ -257,12 +258,13 @@ begin
|
|||||||
for i:=0 to Cnt-1 do begin
|
for i:=0 to Cnt-1 do begin
|
||||||
inc(Size,Size);
|
inc(Size,Size);
|
||||||
p:=FItems[i];
|
p:=FItems[i];
|
||||||
Last:=Pointer(integer(p)+Size);
|
Last := p;
|
||||||
|
Inc(Last, Size);
|
||||||
if i=Cnt-1 then
|
if i=Cnt-1 then
|
||||||
Last:=FEndItem;
|
Last:=FEndItem;
|
||||||
while p<>Last do begin
|
while p<>Last do begin
|
||||||
Method(p);
|
Method(p);
|
||||||
inc(integer(p),FItemSize);
|
Inc(p, FItemSize);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user