paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 05:59:30 +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 if FPCFulVersion>=30100 then
begin begin
// FromPosition and Count parameters are optional // FromPosition and Count parameters are optional
AddCompilerFunction('Copy','const S:string[;FromPosition,Count:Integer]', 'string'); AddCompilerFunction('Copy','const S:string[;FromPosition,Count:SizeInt]', 'string');
AddCompilerFunction('Copy','const A:array[;FromPosition,Count:Integer]', 'string'); AddCompilerFunction('Copy','const A:array[;FromPosition,Count:SizeInt]', 'string');
end else end else
begin begin
AddCompilerFunction('Copy','const S:string;FromPosition,Count:Integer', 'string'); AddCompilerFunction('Copy','const S:string;FromPosition,Count:SizeInt', 'string');
AddCompilerFunction('Copy','const A:array;FromPosition,Count:Integer', 'string'); AddCompilerFunction('Copy','const A:array;FromPosition,Count:SizeInt', 'string');
end; end;
AddCompilerProcedure('Dec','var X:Ordinal;N:Integer=1'); AddCompilerProcedure('Dec','var X:Ordinal;N:Integer=1');
AddCompilerFunction('Default','T:Type','const'); AddCompilerFunction('Default','T:Type','const');
@ -1473,8 +1473,8 @@ begin
AddCompilerProcedure('Inc','var X:Ordinal;N:Integer=1'); AddCompilerProcedure('Inc','var X:Ordinal;N:Integer=1');
AddCompilerProcedure('Include','var S:Set;X:Ordinal'); AddCompilerProcedure('Include','var S:Set;X:Ordinal');
AddCompilerProcedure('Initialize','var X'); AddCompilerProcedure('Initialize','var X');
AddCompilerFunction('Length','S:String','Ordinal'); AddCompilerFunction('Length','S:String','SizeInt');
AddCompilerFunction('Length','A:Array','Ordinal'); AddCompilerFunction('Length','A:Array','SizeInt');
AddCompilerFunction('Low','Arg:TypeOrVariable','Ordinal'); AddCompilerFunction('Low','Arg:TypeOrVariable','Ordinal');
AddCompilerProcedure('New','var X:Pointer'); AddCompilerProcedure('New','var X:Pointer');
AddCompilerFunction('ObjCSelector','String','SEL'); AddCompilerFunction('ObjCSelector','String','SEL');
@ -1486,8 +1486,8 @@ begin
AddCompilerProcedure('ReadLn',''); AddCompilerProcedure('ReadLn','');
AddCompilerProcedure('ReadStr','S:String;var Args:Arguments'); AddCompilerProcedure('ReadStr','S:String;var Args:Arguments');
AddCompilerFunction('Seg','var X','LongInt'); AddCompilerFunction('Seg','var X','LongInt');
AddCompilerProcedure('SetLength','var S:String;NewLength:Integer'); AddCompilerProcedure('SetLength','var S:String;NewLength:SizeInt');
AddCompilerProcedure('SetLength','var A:Array;NewLength:Integer'); AddCompilerProcedure('SetLength','var A:Array;NewLength:SizeInt');
if Scanner.Values.IsDefined('FPC_HAS_CPSTRING') then begin 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:PAnsiChar;Len:SizeInt');