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

codetools: identifier completion: added SetString for FPC 2.7.1+, from Ondrej

Browse Source 
git-svn-id: trunk@50033 -
This commit is contained in:
mattias 2015-10-11 17:46:08 +00:00
parent 412b1ebab6
commit 2e77744a8c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -1353,6 +1353,8 @@ begin
AddCompilerFunction('Seg','var X','LongInt'); AddCompilerFunction('Seg','var X','LongInt');
AddCompilerProcedure('SetLength','var S:String;NewLength:Integer'); AddCompilerProcedure('SetLength','var S:String;NewLength:Integer');
AddCompilerProcedure('SetLength','var A:Array;NewLength:Integer'); AddCompilerProcedure('SetLength','var A:Array;NewLength:Integer');
if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then
AddCompilerProcedure('SetString','out S:RawByteString;Buf:PAnsiChar;Len:SizeInt');
AddCompilerFunction('SizeOf','Identifier','Integer'); AddCompilerFunction('SizeOf','Identifier','Integer');
AddCompilerFunction('Slice','var A:Array;Count:Integer','Array'); AddCompilerFunction('Slice','var A:Array;Count:Integer','Array');
AddCompilerProcedure('Str','const X[:Width[:Decimals]];var S:String'); AddCompilerProcedure('Str','const X[:Width[:Decimals]];var S:String');