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

jcf: reduce amount of warnings

Browse Source 
git-svn-id: trunk@17838 -
This commit is contained in:
paul 2008-12-15 04:41:38 +00:00
parent 2ad9a36af2
commit 035d9ead5b
13 changed files with 184 additions and 319 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

470
components/jcf2/CommandLine/Lazarus/jcf.lpi
View File

File diff suppressed because it is too large Load Diff

2
components/jcf2/Parse/TokenUtils.pas
View File

@ -179,7 +179,7 @@ uses
JcfUnicode,
JcfStringUtils,
ParseTreeNodeType, Tokens, Nesting,
SetReturns, AsmKeywords;
AsmKeywords;
function NewReturn: TSourceToken;

2
components/jcf2/Process/Align/AlignBase.pas
View File

@ -75,7 +75,7 @@ implementation
uses
{ delphi }SysUtils, Math,
{ jcl }
{ jcf } JcfSettings, TokenUtils, SetAlign, ParseTreeNodeType;
{ jcf } JcfSettings, TokenUtils, ParseTreeNodeType;
{ TAlignBase }

2
components/jcf2/Process/Capitalisation/Capitalisation.pas
View File

@ -53,7 +53,7 @@ uses
SysUtils,
{ local }
JcfStringUtils,
SourceToken, SettingsTypes, Tokens, ParseTreeNodeType,
SourceToken, SettingsTypes, Tokens,
JcfSettings, FormatFlags, TokenUtils;
procedure FixCaps(const pct: TSourceToken; const caps: TCapitalisationType);

8
components/jcf2/Process/FormatFlags.pas
View File

@ -62,8 +62,8 @@ type
TFormatFlags = set of TFormatFlag;
{ read a comment for comment enabled flag data }
function ReadCommentJcfFlags(psComment: string; var psError: string;
var peFlags: TFormatFlags; var pbOn: boolean): boolean;
function ReadCommentJcfFlags(psComment: string; out psError: string;
out peFlags: TFormatFlags; out pbOn: boolean): boolean;
const
FORMAT_COMMENT_PREFIX = '//jcf:';
@ -164,8 +164,8 @@ end;
psFlags returns the set of flags referenced
pbOn tells if they were turned on or off
}
function ReadCommentJcfFlags(psComment: string; var psError: string;
var peFlags: TFormatFlags; var pbOn: boolean): boolean;
function ReadCommentJcfFlags(psComment: string; out psError: string;
out peFlags: TFormatFlags; out pbOn: boolean): boolean;
var
lsPrefix, lsRest: string;
lsSetting, lsState: string;

2
components/jcf2/Process/Indent/Indenter.pas
View File

@ -56,7 +56,7 @@ uses
{ local }
JcfStringUtils,
SourceToken, Nesting, FormatFlags, JcfSettings, TokenUtils,
Tokens, ParseTreeNode, ParseTreeNodeType, SetIndent, SetAsm;
Tokens, ParseTreeNode, ParseTreeNodeType;
{ true if the specified token type occurs before pt on the line }
function HasPreceedingTokenTypeOnLine(const pt: TSourceToken; const ptt: TTokenTypeSet): Boolean;

2
components/jcf2/Process/Obfuscate/RemoveReturn.pas
View File

@ -43,7 +43,7 @@ type
implementation
uses ParseTreeNode, SourceToken, Tokens, ParseTreeNodeType, FormatFlags;
uses SourceToken, Tokens, ParseTreeNodeType, FormatFlags;
constructor TRemoveReturn.Create;
begin

4
components/jcf2/Process/Returns/LongLineBreaker.pas
View File

@ -67,7 +67,7 @@ uses
{ local }
JcfStringUtils,
SourceToken, FormatFlags, JcfSettings, SetReturns,
TokenUtils, JcfMiscFunctions, Tokens, ParseTreeNode, ParseTreeNodeType;
TokenUtils, JcfMiscFunctions, Tokens, ParseTreeNodeType;
function IsLineBreaker(const pcToken: TSourceToken): boolean;
begin
@ -242,7 +242,7 @@ end;
{ scoring - based on the current token,
score how aestetically pleasing a line break after this token would be }
procedure ScoreToken(const pcToken: TSourceToken;
var piScoreBefore, piScoreAfter: integer);
out piScoreBefore, piScoreAfter: integer);
const
BAD4 = -40;
BAD3 = -30;

2
components/jcf2/Process/Returns/ReturnBefore.pas
View File

@ -59,7 +59,7 @@ implementation
uses
TokenUtils,
SourceToken, Tokens, ParseTreeNode,
Nesting, ParseTreeNodeType, JcfSettings,
ParseTreeNodeType, JcfSettings,
FormatFlags, SettingsTypes;
const

3
components/jcf2/Process/Warnings/WarnAssignToFunctionName.pas
View File

@ -67,8 +67,7 @@ uses
{ delphi }
{$IFNDEF FPC}Windows,{$ENDIF} SysUtils,
{ local }
ParseTreeNode, ParseTreeNodeType, SourceToken, Tokens, TokenUtils,
BaseVisitor;
ParseTreeNode, ParseTreeNodeType, SourceToken, Tokens, TokenUtils;

2
components/jcf2/Process/Warnings/WarnCaseNoElse.pas
View File

@ -57,7 +57,7 @@ type
implementation
uses
ParseTreeNode, ParseTreeNodeType, BaseVisitor;
ParseTreeNode, ParseTreeNodeType;

2
components/jcf2/Process/Warnings/WarnEmptyBlock.pas
View File

@ -48,7 +48,7 @@ type
implementation
uses ParseTreeNode, ParseTreeNodeType, BaseVisitor;
uses ParseTreeNode, ParseTreeNodeType;
constructor TWarnEmptyBlock.Create;
begin

2
components/jcf2/Settings/SetAsm.pas
View File

@ -30,7 +30,7 @@ interface
uses
JCFSetBase,
SettingsTypes, SettingsStream, IntList;
SettingsTypes, SettingsStream;
type