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

codetools: add Insert compiler intrinsic from FPC 3.1.1

Browse Source 
git-svn-id: trunk@52567 -
This commit is contained in:
ondrej 2016-06-22 18:16:03 +00:00
parent 243ffe08c1
commit 72d7b7a01a
2 changed files with 9 additions and 2 deletions

10
components/codetools/identcompletiontool.pas
View File

@ -1395,8 +1395,11 @@ begin
AddCompilerFunction('Copy','const S:StringOrArray;FromPosition,Count:Integer', 'String');
AddCompilerProcedure('Dec','var X:Ordinal;N:Integer=1');
AddCompilerFunction('Default','T:Type','const');
if StrToIntDef(Scanner.Values['FPC_FULLVERSION'],0)>=30100 then //Delete is available as intrinsic since FPC 3.1
if StrToIntDef(Scanner.Values['FPC_FULLVERSION'],0)>=30100 then //Delete and Insert are available as intrinsic since FPC 3.1
begin
AddCompilerProcedure('Delete','var S:string;Index,Count:Integer');
AddCompilerProcedure('Insert','const Source:string;var Dest:string;Index:Integer');
end;
AddCompilerProcedure('Dispose','var X:Pointer');
AddCompilerProcedure('Exclude','var S:Set;X:Ordinal');
AddCompilerProcedure('Exit','');
@ -2952,8 +2955,11 @@ var
AddCompilerProc('Finalize','var X');
AddCompilerProc('get_frame','','Pointer');
AddCompilerProc('High','Arg:TypeOrVariable','Ordinal');
if StrToIntDef(Scanner.Values['FPC_FULLVERSION'],0)>=30100 then //Delete is available as intrinsic since FPC 3.1
if StrToIntDef(Scanner.Values['FPC_FULLVERSION'],0)>=30100 then //Delete and Insert are available as intrinsic since FPC 3.1
begin
AddCompilerProc('Delete','var S:string;Index,Count:Integer');
AddCompilerProc('Insert','const Source:string;var Dest:string;Index:Integer');
end;
AddCompilerProc('Inc','var X:Ordinal;N:Integer=1');
AddCompilerProc('Include','var S:Set;X:Ordinal');
AddCompilerProc('Initialize','var X');

1
components/codetools/keywordfunclists.pas
View File

@ -1248,6 +1248,7 @@ begin
Add('DEFAULT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('DELETE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('INITIALIZE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('INSERT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FINALIZE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('COPY' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SIZEOF' ,{$ifdef FPC}@{$endif}AllwaysTrue);