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

codetools: changed some types of fpc intrinsics from Integer to SizeInt

Browse Source 
git-svn-id: trunk@63799 -
This commit is contained in:
pascal 2020-08-21 06:40:19 +00:00
parent 4787a58f27
commit 7fefade33f
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/identcompletiontool.pas
View File

@ -1448,12 +1448,12 @@ begin
if FPCFulVersion>=30100 then
begin
// FromPosition and Count parameters are optional
AddCompilerFunction('Copy','const S:string[;FromPosition,Count:Integer]', 'string');
AddCompilerFunction('Copy','const A:array[;FromPosition,Count:Integer]', 'string');
AddCompilerFunction('Copy','const S:string[;FromPosition,Count:SizeInt]', 'string');
AddCompilerFunction('Copy','const A:array[;FromPosition,Count:SizeInt]', 'string');
end else
begin
AddCompilerFunction('Copy','const S:string;FromPosition,Count:Integer', 'string');
AddCompilerFunction('Copy','const A:array;FromPosition,Count:Integer', 'string');
AddCompilerFunction('Copy','const S:string;FromPosition,Count:SizeInt', 'string');
AddCompilerFunction('Copy','const A:array;FromPosition,Count:SizeInt', 'string');
end;
AddCompilerProcedure('Dec','var X:Ordinal;N:Integer=1');
AddCompilerFunction('Default','T:Type','const');
@ -1473,8 +1473,8 @@ begin
AddCompilerProcedure('Inc','var X:Ordinal;N:Integer=1');
AddCompilerProcedure('Include','var S:Set;X:Ordinal');
AddCompilerProcedure('Initialize','var X');
AddCompilerFunction('Length','S:String','Ordinal');
AddCompilerFunction('Length','A:Array','Ordinal');
AddCompilerFunction('Length','S:String','SizeInt');
AddCompilerFunction('Length','A:Array','SizeInt');
AddCompilerFunction('Low','Arg:TypeOrVariable','Ordinal');
AddCompilerProcedure('New','var X:Pointer');
AddCompilerFunction('ObjCSelector','String','SEL');
@ -1486,8 +1486,8 @@ begin
AddCompilerProcedure('ReadLn','');
AddCompilerProcedure('ReadStr','S:String;var Args:Arguments');
AddCompilerFunction('Seg','var X','LongInt');
AddCompilerProcedure('SetLength','var S:String;NewLength:Integer');
AddCompilerProcedure('SetLength','var A:Array;NewLength:Integer');
AddCompilerProcedure('SetLength','var S:String;NewLength:SizeInt');
AddCompilerProcedure('SetLength','var A:Array;NewLength:SizeInt');
if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then begin
AddCompilerProcedure('SetString','out S:RawByteString;Buf:PAnsiChar;Len:SizeInt');
AddCompilerProcedure('SetString','out S:AnsiString;Buf:PAnsiChar;Len:SizeInt');