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

codetools: added SetString overloads

Browse Source 
git-svn-id: trunk@63683 -
This commit is contained in:
mattias 2020-08-03 20:55:53 +00:00
parent 708776f819
commit ec9a94e00b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/identcompletiontool.pas
View File

@ -3275,13 +3275,13 @@ var
AddCompilerProc('SetLength','var A:Array;NewLength:Integer'); AddCompilerProc('SetLength','var A:Array;NewLength:Integer');
if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then begin if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then begin
AddCompilerProc('SetString','out S:RawByteString;Buf:PAnsiChar;Len:SizeInt'); AddCompilerProc('SetString','out S:RawByteString;Buf:PAnsiChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:AnsiString;Buf:PAnsiChar;Len:SizeInt'); AddCompilerProc('SetString','out S:AnsiString;Buf:PAnsiChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:AnsiString;Buf:PWideChar;Len:SizeInt'); AddCompilerProc('SetString','out S:AnsiString;Buf:PWideChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:ShortString;Buf:PChar;Len:SizeInt'); AddCompilerProc('SetString','out S:ShortString;Buf:PChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:UnicodeString;Buf:PUnicodeChar;Len:SizeInt'); AddCompilerProc('SetString','out S:UnicodeString;Buf:PUnicodeChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:UnicodeString;Buf:PChar;Len:SizeInt'); AddCompilerProc('SetString','out S:UnicodeString;Buf:PChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:WideString;Buf:PWideChar;Len:SizeInt'); AddCompilerProc('SetString','out S:WideString;Buf:PWideChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:WideString;Buf:PChar;Len:SizeInt'); AddCompilerProc('SetString','out S:WideString;Buf:PChar;Len:SizeInt');
end; end;
AddCompilerProc('SizeOf','Identifier','Integer'); AddCompilerProc('SizeOf','Identifier','Integer');
AddCompilerProc('Slice','var A:Array;Count:Integer','Array'); AddCompilerProc('Slice','var A:Array;Count:Integer','Array');