paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 07:59:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Tweak / optimization.

Browse Source 
git-svn-id: trunk@64372 -
This commit is contained in:
juha 2021-01-10 19:07:46 +00:00
parent b7ec76d98e
commit a9aa51a93d
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/lazutf8.pas
View File

@ -1087,10 +1087,9 @@ begin
else begin
MaxBytes:=PtrInt(PChar(s)+length(s)-StartBytePos);
EndBytePos:=UTF8CodepointStart(StartBytePos,MaxBytes,CharCount);
if EndBytePos=nil then
Result:=copy(s,StartBytePos-PChar(s)+1,MaxBytes)
else
Result:=copy(s,StartBytePos-PChar(s)+1,EndBytePos-StartBytePos);
if EndBytePos<>nil then
MaxBytes:=EndBytePos-StartBytePos;
Result:=copy(s,StartBytePos-PChar(s)+1,MaxBytes);
end;
end;

11
packager/packagesystem.pas
View File

@ -776,6 +776,7 @@ procedure TLazPackageGraphFileCache.Update;
var
I, L: Integer;
xPck: TLazPackage;
PkgFile: TPkgFile;
begin
SetLength(FPackageInfo, FGraph.Count);
FFilesList.Clear;
@ -788,13 +789,15 @@ begin
for L := 0 to xPck.FileCount-1 do
begin
FFilesList[xPck.Files[L].GetFullFilename]:=xPck.Files[L];
FFilesList[xPck.Files[L].Filename]:=xPck.Files[L];
PkgFile := xPck.Files[L];
FFilesList[PkgFile.GetFullFilename]:=PkgFile;
FFilesList[PkgFile.Filename]:=PkgFile;
end;
for L := 0 to xPck.RemovedFilesCount-1 do
begin
FRemovedFilesList[xPck.RemovedFiles[L].GetFullFilename]:=xPck.RemovedFiles[L];
FRemovedFilesList[xPck.RemovedFiles[L].Filename]:=xPck.RemovedFiles[L];
PkgFile := xPck.RemovedFiles[L];
FRemovedFilesList[PkgFile.GetFullFilename]:=PkgFile;
FRemovedFilesList[PkgFile.Filename]:=PkgFile;
end;
end;
end;