paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-28 06:03:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@48663 -
This commit is contained in:
mattias 2015-04-06 17:49:28 +00:00
parent 6f305d5efe
commit db6d5c1a01
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codebeautifier.pas
View File

@ -343,7 +343,7 @@ type
ContextLearn: boolean = true // true = learn policies from Source
): boolean;
procedure GetDefaultSrcIndent(const Source: string; CleanPos: integer;
NewNestedComments: boolean;
{%H-}NewNestedComments: boolean;
out Indent: TFABIndentationPolicy);
procedure GetDefaultIndentPolicy(Typ, SubTyp: TFABBlockType;
out Indent: TFABIndentationPolicy);

12
components/codetools/definetemplates.pas
View File

@ -601,7 +601,7 @@ type
// Kylix templates
function CreateKylixCompilerDefinesTemplate(KylixVersion: integer;
Owner: TObject): TDefineTemplate;
function CreateKylixSrcPath(KylixVersion: integer;
function CreateKylixSrcPath({%H-}KylixVersion: integer;
const PathPrefix: string): string;
function CreateKylixDirectoryTemplate(const KylixDirectory: string;
KylixVersion: integer; Owner: TObject): TDefineTemplate;
@ -976,7 +976,7 @@ function GetDefaultSrcOSForTargetOS(const TargetOS: string): string;
function GetDefaultSrcOS2ForTargetOS(const TargetOS: string): string;
function GetDefaultSrcCPUForTargetCPU(const TargetCPU: string): string;
procedure SplitLazarusCPUOSWidgetCombo(const Combination: string;
var CPU, OS, WidgetSet: string);
out CPU, OS, WidgetSet: string);
function GetCompiledFPCVersion: integer;
function GetCompiledTargetOS: string;
function GetCompiledTargetCPU: string;
@ -1063,7 +1063,7 @@ procedure SaveFPCCacheToFile(Filename: string;
procedure ReadMakefileFPC(const Filename: string; List: TStrings);
procedure ParseMakefileFPC(const Filename, SrcOS: string;
var Dirs, SubDirs: string);
out Dirs, SubDirs: string);
function CompareFPCSourceRulesViaFilename(Rule1, Rule2: Pointer): integer;
function CompareFPCTargetConfigCacheItems(CacheItem1, CacheItem2: Pointer): integer;
@ -2571,7 +2571,7 @@ begin
end;
procedure ParseMakefileFPC(const Filename, SrcOS: string;
var Dirs, SubDirs: string);
out Dirs, SubDirs: string);
function MakeSearchPath(const s: string): string;
var
@ -2783,7 +2783,7 @@ begin
end;
procedure SplitLazarusCPUOSWidgetCombo(const Combination: string;
var CPU, OS, WidgetSet: string);
out CPU, OS, WidgetSet: string);
var
StartPos, EndPos: integer;
begin
@ -5406,7 +5406,7 @@ function TDefinePool.GetFPCVerFromFPCTemplate(Template: TDefineTemplate; out
var
p: Integer;
function ReadInt(const VarName: string; var AnInteger: integer): boolean;
function ReadInt(const VarName: string; out AnInteger: integer): boolean;
var
StartPos: Integer;
begin

2
components/codetools/finddeclarationcache.pas
View File

@ -140,7 +140,7 @@ type
function FindInRange(Identifier: PChar;
CleanStartPos, CleanEndPos: integer): PCodeTreeNodeCacheEntry;
function FindNearestAVLNode(Identifier: PChar;
CleanStartPos, CleanEndPos: integer; InFront: boolean): TAVLTreeNode;
CleanStartPos, CleanEndPos: integer; {%H-}InFront: boolean): TAVLTreeNode;
function FindNearest(Identifier: PChar;
CleanStartPos, CleanEndPos: integer;
InFront: boolean): PCodeTreeNodeCacheEntry;