diff --git a/ide/etmakemsgparser.pas b/ide/etmakemsgparser.pas index 1efe99796f..ebde565335 100644 --- a/ide/etmakemsgparser.pas +++ b/ide/etmakemsgparser.pas @@ -131,7 +131,7 @@ begin inc(e); inc(len); end; - SetLength(Result,len); + SetLength(Result{%H-},len); if len>0 then System.Move(p^,Result[1],len); end; @@ -344,7 +344,7 @@ begin Run:=p; while not (Run^ in [' ',#9,#0]) do inc(Run); if Run^<>#0 then begin - SetLength(Filename,Run-p); + SetLength(Filename{%H-},Run-p); System.Move(p^,Filename[1],length(Filename)); Filename:=TrimFilename(Filename); if FilenameIsAbsolute(Filename) diff --git a/ide/projecticon.pas b/ide/projecticon.pas index 05fadc6d1a..7cdcba14fe 100644 --- a/ide/projecticon.pas +++ b/ide/projecticon.pas @@ -225,7 +225,7 @@ begin try fs:=TFileStream.Create(IcoFileName,fmOpenRead); try - SetLength(NewData, fs.Size); + SetLength(NewData{%H-}, fs.Size); if length(NewData)>0 then fs.Read(NewData[0],length(NewData)); IconData := NewData; diff --git a/packager/packagedefs.pas b/packager/packagedefs.pas index ed147a7fed..391efac28d 100644 --- a/packager/packagedefs.pas +++ b/packager/packagedefs.pas @@ -89,13 +89,13 @@ type FPkgFile: TPkgFile; procedure SetPkgFile(const AValue: TPkgFile); protected - function CanBeCreatedInDesigner: boolean; override; procedure ConsistencyCheck; override; function GetPriority: TComponentPriority; override; public constructor Create(ThePkgFile: TPkgFile; TheComponentClass: TComponentClass; const ThePageName: string); destructor Destroy; override; + function CanBeCreatedInDesigner: boolean; override; function GetUnitName: string; override; public property PkgFile: TPkgFile read FPkgFile write SetPkgFile; diff --git a/packager/packagelinks.pas b/packager/packagelinks.pas index 30cc91eabd..14b5245226 100644 --- a/packager/packagelinks.pas +++ b/packager/packagelinks.pas @@ -44,7 +44,7 @@ uses Forms, // LazUtils Laz2_XMLCfg, LazFileCache, LazFileUtils, FileUtil, LazUtilities, LazTracer, - AvgLvlTree, LazConfigStorage, + AvgLvlTree, // Codetools FileProcs, CodeToolManager, // BuildIntf