UPD: Make sPos function inline

This commit is contained in:
Alexander Koblov 2016-08-02 06:51:14 +00:00
commit ba8752143c
2 changed files with 3 additions and 2 deletions

View file

@ -1016,6 +1016,7 @@ end;"/>
<Unit107>
<Filename Value="filesources\uarchivefilesource.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uArchiveFileSource"/>
</Unit107>
<Unit108>
<Filename Value="filesources\uarchivefilesourceutil.pas"/>

View file

@ -70,7 +70,7 @@ function PosMem(pDataAddr: PChar; iDataLength, iStartPos: PtrInt; const sSearchT
var
SearchTextLength: Integer;
function sPos2(pAdr: PChar):Boolean;
function sPos2(pAdr: PChar):Boolean; inline;
var
i: Integer;
begin
@ -203,7 +203,7 @@ function FindMmap(const sFileName, sFindData:String; bCase:Boolean;
xIndex:Integer;
DataLength: Integer;
function sPos(pAdr:PChar):Boolean;
function sPos(pAdr:PChar):Boolean; inline;
var
i:Integer;
begin