paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 13:19:20 +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 while (IdentEndPos<=MaxPos) and (IsIdentChar[Src[IdentEndPos]]) do
inc(IdentEndPos); inc(IdentEndPos);
IdentLen:=IdentEndPos-xStart; IdentLen:=IdentEndPos-xStart;
SetLength(IdentName, IdentLen); SetLength(IdentName{%H-}, IdentLen);
StrMove(PChar(IdentName), @Src[xStart], IdentLen); StrMove(PChar(IdentName), @Src[xStart], IdentLen);
// Don't try to uselessly find short identifiers // Don't try to uselessly find short identifiers
if (IdentLen<ReplaceFuncs.MinFuncLen) and (IdentName<>'Ptr') then Exit; 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 begin
S := TFileStream.Create('/proc/' + IntToStr(Pid) + '/cmdline', fmOpenRead or fmShareDenyNone); S := TFileStream.Create('/proc/' + IntToStr(Pid) + '/cmdline', fmOpenRead or fmShareDenyNone);
try try
SetLength(Result, 255); SetLength(Result{%H-}, 255);
Sz := S.Read(Result[1], 255); Sz := S.Read(Result[1], 255);
SetLength(Result, Sz); SetLength(Result, Sz);
finally finally

4
debugger/pseudoterminaldlg.pp
View File

@ -416,7 +416,7 @@ var
u: unicodestring; u: unicodestring;
begin begin
SetLength(u, Length(str)); SetLength(u{%H-}, Length(str));
(* This should probably be recoded to use a persistent table, but doing it *) (* 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 *) (* this way results in no lookup for plain text which is likely to be the *)
@ -551,7 +551,7 @@ var
u: unicodestring; u: unicodestring;
begin begin
SetLength(u, Length(str)); SetLength(u{%H-}, Length(str));
(* This should probably be recoded to use a persistent table, but doing it *) (* 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 *) (* 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 CodeExplorerViewDestroy(Sender: TObject);
procedure CodeFilterEditChange(Sender: TObject); procedure CodeFilterEditChange(Sender: TObject);
procedure CodeTreeviewMouseDown(Sender: TObject; Button: TMouseButton; procedure CodeTreeviewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); {%H-}Shift: TShiftState; X, Y: Integer);
procedure DirectivesFilterEditChange(Sender: TObject); procedure DirectivesFilterEditChange(Sender: TObject);
procedure DirRefreshSpeedButtonClick(Sender: TObject); procedure DirRefreshSpeedButtonClick(Sender: TObject);
procedure FilterEditEnter(Sender: TObject); procedure FilterEditEnter(Sender: TObject);

2
ide/main.pp
View File

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

2
ide/sourcefilemanager.pas
View File

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

2
packager/pkgvirtualuniteditor.pas
View File

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