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

codetools: added SetString overloads

Browse Source 
git-svn-id: branches/fixes_2_0@63684 -
This commit is contained in:
mattias 2020-08-03 20:56:08 +00:00
parent ed18ef8486
commit 5a9fdda475
1 changed files with 7 additions and 7 deletions

14
components/codetools/identcompletiontool.pas
View File

@ -3268,13 +3268,13 @@ var
AddCompilerProc('SetLength','var A:Array;NewLength:Integer');
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');
AddCompilerProc('SetString','out S:AnsiString;Buf:PAnsiChar;Len:SizeInt');
AddCompilerProc('SetString','out S:AnsiString;Buf:PWideChar;Len:SizeInt');
AddCompilerProc('SetString','out S:ShortString;Buf:PChar;Len:SizeInt');
AddCompilerProc('SetString','out S:UnicodeString;Buf:PUnicodeChar;Len:SizeInt');
AddCompilerProc('SetString','out S:UnicodeString;Buf:PChar;Len:SizeInt');
AddCompilerProc('SetString','out S:WideString;Buf:PWideChar;Len:SizeInt');
AddCompilerProc('SetString','out S:WideString;Buf:PChar;Len:SizeInt');
end;
AddCompilerProc('SizeOf','Identifier','Integer');
AddCompilerProc('Slice','var A:Array;Count:Integer','Array');