paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 04:18:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added intrinsic GetTypeKind

Browse Source 
git-svn-id: trunk@63832 -
This commit is contained in:
mattias 2020-08-26 19:09:33 +00:00
parent 09ee5f1c56
commit 9e19eed0b3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/identcompletiontool.pas
View File

@ -1503,6 +1503,7 @@ begin
AddCompilerProcedure('Str','const X[:Width[:Decimals]];var S:String');
AddCompilerFunction('Succ','X:Ordinal', 'Ordinal');
AddCompilerFunction('TypeInfo','Identifier', 'Pointer');
AddCompilerFunction('GetTypeKind','Identifier', 'TTypeKind');
AddCompilerFunction('TypeOf','Identifier', 'Pointer');
AddCompilerProcedure('Val','S:String;var V;var Code:Integer');
AddCompilerFunction('Unaligned','var X','var'); // Florian declaration :)
@ -2619,6 +2620,7 @@ begin
AddKeyWord('ThreadName');
AddKeyWord('TypedAddress');
AddKeyWord('TypeInfo');
AddKeyWord('GetTypeKind');
AddKeyWord('UnDef');
AddKeyWord('UnitPath');
AddKeyWord('VarParaCopyOutCheck');
@ -3288,6 +3290,7 @@ var
AddCompilerProc('Str','const X[:Width[:Decimals]];var S:String');
AddCompilerProc('Succ','X:Ordinal', 'Ordinal');
AddCompilerProc('TypeInfo','Identifier', 'Pointer');
AddCompilerProc('GetTypeKind','Identifier', 'TTypeKind');
AddCompilerProc('TypeOf','Identifier', 'Pointer');
AddCompilerProc('Val','S:String;var V;var Code:Integer');
AddCompilerProc('Unaligned','var X','var');