paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 03:10:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* change result type of AddItem from integer to sw_integer

Browse Source 
git-svn-id: trunk@13538 -
This commit is contained in:
florian 2009-08-15 21:02:22 +00:00
parent 965828b6de
commit e0cf3b0478
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/whtml.pas
View File

@ -120,7 +120,7 @@ Type
TTopicLinkCollection = object(TStringCollection)
procedure Insert(Item: Pointer); virtual;
function At(Index: sw_Integer): PString;
function AddItem(Item: string): integer;
function AddItem(Item: string): sw_integer;
end;
function EncodeHTMLCtx(FileID: integer; LinkNo: word): longint;
@ -901,7 +901,7 @@ begin
At:=inherited At(Index);
end;
function TTopicLinkCollection.AddItem(Item: string): integer;
function TTopicLinkCollection.AddItem(Item: string): sw_integer;
var Idx: sw_integer;
begin
if Item='' then Idx:=-1 else