paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 13:36:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: generate local var for Length() with type SizeInt

Browse Source 
git-svn-id: trunk@63800 -
This commit is contained in:
pascal 2020-08-21 07:43:13 +00:00
parent 7fefade33f
commit da8c2d75b5
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/finddeclarationtool.pas
View File

@ -271,7 +271,8 @@ type
xtCompilerFunc,// SUCC, PREC, LOW, HIGH, ORD, LENGTH, COPY (1.1), ...
xtVariant, // variant
xtJSValue, // jsvalue only in Pas2JS, similar to variant
xtNil // nil = pointer, class, procedure, method, ...
xtNil, // nil = pointer, class, procedure, method, ...
xtSizeInt // SizeInt for Length intrinsic
);
// Do not define: TExpressionTypeDescs = set of TExpressionTypeDesc;
// There are too many enums, so the set would be big and slow
@ -322,7 +323,8 @@ var
'CompilerFunc',
'Variant',
'JSValue',
'Nil'
'Nil',
'SizeInt'
);
const
@ -334,7 +336,7 @@ const
xtAllIdentPredefinedTypes = xtAllIdentTypes - [xtContext];
xtAllIntegerTypes = [xtInt64, xtQWord, xtConstOrdInteger, xtLongint,
xtLongWord, xtWord, xtCardinal, xtSmallInt, xtShortInt,
xtByte,xtNativeInt,xtNativeUInt];
xtByte,xtNativeInt,xtNativeUInt,xtSizeInt];
xtAllBooleanTypes = [xtBoolean, xtByteBool, xtWordBool, xtLongBool,xtQWordBool];
xtAllRealTypes = [xtReal, xtConstReal, xtSingle, xtDouble,
xtExtended, xtCExtended, xtCurrency, xtComp];
@ -10599,7 +10601,7 @@ begin
else if (CompareIdentifiers(IdentPos,'LENGTH')=0) then
begin
if ParamList.Count<>1 then exit;
Result.Desc:=xtConstOrdInteger;
Result.Desc:=xtSizeInt;
end
else if (CompareIdentifiers(IdentPos,'COPY')=0) then
begin
@ -13580,7 +13582,8 @@ begin
xtShortInt,
xtByte,
xtNativeInt,
xtNativeUInt:
xtNativeUInt,
xtSizeInt:
Result:=ExpressionTypeDescNames[ExprType.Desc];
xtBoolean,

2
components/codetools/tests/moduletests/fdt_guesstype1.pas
View File

@ -7,7 +7,7 @@ uses
procedure DoIt(s: string);
begin
i{guesstype:integer}:=length(s);
i{guesstype:sizeint}:=length(s);
d{guesstype:string}:=copy(s,1,3);
i{guesstype:integer}:=default(integer);
end;