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

codetools: added SetString overloads

Browse Source 
git-svn-id: branches/fixes_2_0@63680 -
This commit is contained in:
mattias 2020-08-03 20:50:54 +00:00
parent e400755e2b
commit 7b87b59dda
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/identcompletiontool.pas
View File

@ -1488,8 +1488,16 @@ 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 if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then begin
AddCompilerProcedure('SetString','out S:RawByteString;Buf:PAnsiChar;Len:SizeInt'); AddCompilerProcedure('SetString','out S:RawByteString;Buf:PAnsiChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:AnsiString;Buf:PAnsiChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:AnsiString;Buf:PWideChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:ShortString;Buf:PChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:UnicodeString;Buf:PUnicodeChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:UnicodeString;Buf:PChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:WideString;Buf:PWideChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:WideString;Buf:PChar;Len:SizeInt');
end;
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');