paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 11:22:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: format predefined functions as codetools format other functions

Browse Source 
git-svn-id: trunk@20877 -
This commit is contained in:
paul 2009-07-17 16:46:17 +00:00
parent 73afc18adf
commit 7f4c2bd076
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/codetools/identcompletiontool.pas
View File

@ -1091,40 +1091,40 @@ var
begin
if Context.Node.Desc in AllPascalStatements then begin
AddCompilerProcedure('Assert','Condition: Boolean; const Message: String');
AddCompilerFunction('Assigned','P: Pointer','Boolean');
AddCompilerProcedure('Assert','Condition:Boolean;const Message:String');
AddCompilerFunction('Assigned','P:Pointer','Boolean');
AddCompilerFunction('Addr','identifier','Pointer');
AddCompilerProcedure('Break','');
AddCompilerFunction('Concat','Args: String', 'String');
AddCompilerFunction('Concat','Args:String', 'String');
AddCompilerProcedure('Continue','');
AddCompilerFunction('Copy','const s: String; FromPosition, Count: Integer', 'String');
AddCompilerProcedure('Dec','var X: Ordinal; N: Integer = 1');
AddCompilerFunction('Copy','const S:String;FromPosition,Count:Integer', 'String');
AddCompilerProcedure('Dec','var X:Ordinal;N:Integer=1');
AddCompilerProcedure('Dispose','Pointer');
AddCompilerProcedure('Exclude','var S: set; X: Ordinal');
AddCompilerProcedure('Exclude','var S:set;X:Ordinal');
AddCompilerProcedure('Exit','');
AddCompilerProcedure('Finalize','identifier');
AddCompilerFunction('get_frame','','Pointer');
AddCompilerFunction('High','Argument','Ordinal');
AddCompilerProcedure('Inc','var X: Ordinal; N: Integer = 1');
AddCompilerProcedure('Include','var S: set; X: Ordinal');
AddCompilerProcedure('Inc','var X:Ordinal;N:Integer=1');
AddCompilerProcedure('Include','var S:set;X:Ordinal');
AddCompilerProcedure('Initialize','identifier');
AddCompilerFunction('Length','A: array','Ordinal');
AddCompilerFunction('Length','A:array','Ordinal');
AddCompilerFunction('Low','Argument','Ordinal');
AddCompilerProcedure('New','Pointer');
AddCompilerFunction('Ord','X: Ordinal', 'Ordinal');
AddCompilerFunction('Pred','X: Ordinal', 'Ordinal');
AddCompilerFunction('Ord','X:Ordinal', 'Ordinal');
AddCompilerFunction('Pred','X:Ordinal', 'Ordinal');
AddCompilerProcedure('Read','');
AddCompilerProcedure('ReadLn','');
AddCompilerProcedure('SetLength','var A: array; NewLength: Integer');
AddCompilerProcedure('SetLength','var A:array;NewLength:Integer');
AddCompilerFunction('SizeOf','identifier','Integer');
AddCompilerFunction('Slice','var A: array; Count: Integer','array');
AddCompilerProcedure('Str','const X[:Width[:Decimals]]; var S: String');
AddCompilerFunction('Slice','var A:array;Count:Integer','array');
AddCompilerProcedure('Str','const X[:Width[:Decimals]];var S:String');
AddCompilerFunction('Succ','X: Ordinal', 'Ordinal');
AddCompilerFunction('TypeInfo','identifier', 'Pointer');
AddCompilerFunction('TypeOf','identifier', 'Pointer');
AddCompilerProcedure('Val','S: String; var V; var Code: Integer');
AddCompilerProcedure('Write','Args : Arguments');
AddCompilerProcedure('WriteLn','Args : Arguments');
AddCompilerProcedure('Val','S:String;var V;var Code:Integer');
AddCompilerProcedure('Write','Args:Arguments');
AddCompilerProcedure('WriteLn','Args:Arguments');
if Context.Tool.NodeIsInAMethod(Context.Node)
and (not CurrentIdentifierList.HasIdentifier('Self','')) then begin