paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 10:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@64564 -
This commit is contained in:
mattias 2021-02-13 12:39:19 +00:00
parent 436b2d3a74
commit f0061abfac
7 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convcodetool.pas
View File

@ -675,7 +675,7 @@ var
while (IdentEndPos<=MaxPos) and (IsIdentChar[Src[IdentEndPos]]) do
inc(IdentEndPos);
IdentLen:=IdentEndPos-xStart;
SetLength(IdentName, IdentLen);
SetLength(IdentName{%H-}, IdentLen);
StrMove(PChar(IdentName), @Src[xStart], IdentLen);
// Don't try to uselessly find short identifiers
if (IdentLen<ReplaceFuncs.MinFuncLen) and (IdentName<>'Ptr') then Exit;

2
debugger/debugattachdialog.pas
View File

@ -110,7 +110,7 @@ function EnumerateProcesses(AList: TRunningProcessInfoList): boolean;
begin
S := TFileStream.Create('/proc/' + IntToStr(Pid) + '/cmdline', fmOpenRead or fmShareDenyNone);
try
SetLength(Result, 255);
SetLength(Result{%H-}, 255);
Sz := S.Read(Result[1], 255);
SetLength(Result, Sz);
finally

4
debugger/pseudoterminaldlg.pp
View File

@ -416,7 +416,7 @@ var
u: unicodestring;
begin
SetLength(u, Length(str));
SetLength(u{%H-}, Length(str));
(* This should probably be recoded to use a persistent table, but doing it *)
(* this way results in no lookup for plain text which is likely to be the *)
@ -551,7 +551,7 @@ var
u: unicodestring;
begin
SetLength(u, Length(str));
SetLength(u{%H-}, Length(str));
(* This should probably be recoded to use a persistent table, but doing it *)
(* this way results in no lookup for plain text which is likely to be the *)

2
ide/codeexplorer.pas
View File

@ -134,7 +134,7 @@ type
procedure CodeExplorerViewDestroy(Sender: TObject);
procedure CodeFilterEditChange(Sender: TObject);
procedure CodeTreeviewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{%H-}Shift: TShiftState; X, Y: Integer);
procedure DirectivesFilterEditChange(Sender: TObject);
procedure DirRefreshSpeedButtonClick(Sender: TObject);
procedure FilterEditEnter(Sender: TObject);

2
ide/main.pp
View File

@ -5303,7 +5303,7 @@ end;
procedure TMainIDE.PackageTranslated(APackage: TLazPackage);
begin
//if APackage=PackageGraph.SynEditPackage then
if APackage=PackageGraph.SynEditPackage then ;
// EditorOpts.TranslateResourceStrings; // ToDo
end;

2
ide/sourcefilemanager.pas
View File

@ -38,7 +38,7 @@ uses
LResources, LCLMemManager,
// LazUtils
LConvEncoding, LazFileCache, FileUtil, LazFileUtils, LazLoggerBase, LazUtilities,
LazStringUtils, LazUTF8, LazTracer, AvgLvlTree,
LazUTF8, LazTracer, AvgLvlTree,
// Codetools
{$IFDEF IDE_MEM_CHECK}
MemCheck,

2
packager/pkgvirtualuniteditor.pas
View File

@ -68,7 +68,7 @@ begin
Result:= mrCancel;
if not Assigned(PkgFile) then exit;
SetLength(Str, 2);
SetLength(Str{%H-}, 2);
Str[0]:= PkgFile.Filename;
Str[1]:= PkgFile.Unit_Name;