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

codetools: added SetString overloads

Browse Source 
git-svn-id: trunk@63681 -
This commit is contained in:
mattias 2020-08-03 20:53:27 +00:00
parent 9f37792f79
commit 708776f819
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

@ -3273,8 +3273,16 @@ var
AddCompilerProc('Seg','var X','LongInt');
AddCompilerProc('SetLength','var S:String;NewLength:Integer');
AddCompilerProc('SetLength','var A:Array;NewLength:Integer');
if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then
if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then begin
AddCompilerProc('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;
AddCompilerProc('SizeOf','Identifier','Integer');
AddCompilerProc('Slice','var A:Array;Count:Integer','Array');
AddCompilerProc('Str','const X[:Width[:Decimals]];var S:String');