header mismatch in TFPList/TList
Original Reporter info from Mantis: FPCCore
-
Reporter name: FPC core team
Original Reporter info from Mantis: FPCCore
- Reporter name: FPC core team
Description:
There is a header mismatch in a recent change applied to the TList and TFPList's Error fuction.
I'm attaching a proposed patch:
Index: lists.inc =================================================================== --- lists.inc (revision 283) +++ lists.inc (working copy) @@ -390,7 +390,7 @@ if assigned(p) then Notify(p, lnDeleted); end;
-class procedure TList.Error(const Msg: string; Data: Integer);
+class procedure TList.Error(const Msg: string; Data: PtrInt);
begin
Raise EListError.CreateFmt(Msg,[Data]) at get_caller_addr(get_frame);
end;
Index: classesh.inc
===================================================================
--- classesh.inc (revision 283)
+++ classesh.inc (working copy)
@@ -156,7 +156,7 @@
function Add(Item: Pointer): Integer; {$ifdef HASINLINE} inline;{$endif}
procedure Clear;
procedure Delete(Index: Integer); {$ifdef HASINLINE} inline;{$endif}
- class procedure Error(const Msg: string; Data: Integer);
+ class procedure Error(const Msg: string; Data: PtrInt);
procedure Exchange(Index1, Index2: Integer);
function Expand: TFPList; {$ifdef HASINLINE} inline;{$endif}
function Extract(item: Pointer): Pointer;
Additional information:
Reporter: Dean Zobec
EMail: dezobec at tin dot it
Mantis conversion info:
- Mantis ID: 6011
- OS: Linux
- Fixed in version: 2.0.2