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

Small changes to chmbase. Changes parameter to const. Small formating changes.

Browse Source 
git-svn-id: trunk@36912 -
This commit is contained in:
andrew 2017-08-14 23:29:40 +00:00
parent 8aa90d0967
commit 9bff5e1d2f
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/chm/src/chmbase.pas
View File

@ -125,7 +125,7 @@ const
function WriteCompressedInteger(Buffer: Pointer; ANumber: DWord): DWord;
// stupid needed function
function ChmCompareText(S1, S2: String): Integer; inline;
function ChmCompareText(const S1, S2: String): Integer; inline;
implementation
@ -137,18 +137,20 @@ var
Sanity: Integer = 0;
begin
try
temp := Stream.ReadByte;
while temp >= $80 do begin
total := total shl 7;
total := total + temp and $7f;
temp := Stream.ReadByte;
Inc(Sanity);
if Sanity > 8 then begin
Result := 0;
Exit;
while temp >= $80 do
begin
total := total shl 7;
total := total + temp and $7f;
temp := Stream.ReadByte;
Inc(Sanity);
if Sanity > 8 then
begin
Result := 0;
Exit;
end;
end;
end;
Result := (total shl 7) + temp;
Result := (total shl 7) + temp;
except
Result := 0;
end;
@ -200,7 +202,7 @@ begin
{$endif}
end;
function ChmCompareText(S1, S2: String): Integer; inline;
function ChmCompareText(const S1, S2: String): Integer;
begin
// for our purposes the CompareText function will not work.
Result := CompareStr(LowerCase(S1), Lowercase(S2));