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

codetools: add WordBool and QWordBool predefined fpc types

Browse Source 
git-svn-id: trunk@23505 -
This commit is contained in:
paul 2010-01-20 14:45:36 +00:00
parent 23177da4f2
commit 6a33b4b69e
3 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/finddeclarationtool.pas
View File

@ -248,7 +248,9 @@ type
xtQWord, // qword
xtBoolean, // boolean
xtByteBool, // bytebool
xtWordBool, // wordbool
xtLongBool, // longbool
xtQWordBool, // qwordbool
xtString, // string
xtAnsiString, // ansistring
xtShortString, // shortstring
@ -293,7 +295,9 @@ const
'QWord',
'Boolean',
'ByteBool',
'WordBool',
'LongBool',
'QWordBool',
'String',
'AnsiString',
'ShortString',
@ -324,7 +328,7 @@ const
xtAllIntegerTypes = [xtInt64, xtQWord, xtConstOrdInteger, xtLongint,
xtLongWord, xtWord, xtCardinal, xtSmallInt, xtShortInt,
xtByte];
xtAllBooleanTypes = [xtBoolean, xtByteBool, xtLongBool];
xtAllBooleanTypes = [xtBoolean, xtByteBool, xtWordBool, xtLongBool,xtQWordBool];
xtAllRealTypes = [xtReal, xtConstReal, xtSingle, xtDouble, xtExtended,
xtCurrency, xtComp];
xtAllStringTypes = [xtConstString, xtShortString, xtString, xtAnsiString];
@ -977,8 +981,12 @@ begin
Result:=xtBoolean
else if CompareIdentifiers(Identifier,'BYTEBOOL')=0 then
Result:=xtByteBool
else if CompareIdentifiers(Identifier,'WORDBOOL')=0 then
Result:=xtWordBool
else if CompareIdentifiers(Identifier,'LONGBOOL')=0 then
Result:=xtLongBool
else if CompareIdentifiers(Identifier,'QWORDBOOL')=0 then
Result:=xtQWordBool
else if CompareIdentifiers(Identifier,'CHAR')=0 then
Result:=xtChar
else if CompareIdentifiers(Identifier,'WIDECHAR')=0 then
@ -5048,7 +5056,7 @@ function TFindDeclarationTool.FindExpressionResultType(
- the type of a subrange is the type of the first constant/enum/number/char
- predefined types:
ordinal:
int64, cardinal, QWord, boolean, bytebool, longbool, char
int64, cardinal, QWord, boolean, bytebool, wordbool, qwordbool, longbool, char
real:
real, single, double, extended, comp, currency
@ -8971,7 +8979,9 @@ begin
xtQWord,
xtBoolean,
xtByteBool,
xtWordBool,
xtLongBool,
xtQWordBool,
xtPointer,
xtFile,
xtText,
@ -9623,7 +9633,9 @@ begin
xtQWord,
xtBoolean,
xtByteBool,
xtWordBool,
xtLongBool,
xtQWordBool,
xtString,
xtAnsiString,
xtShortString,
@ -9653,7 +9665,9 @@ begin
xtBoolean,
xtByteBool,
xtLongBool:
xtWordBool,
xtLongBool,
xtQWordBool:
Result:=ExpressionTypeDescNames[xtBoolean];
xtString,

4
components/codetools/identcompletiontool.pas
View File

@ -1272,7 +1272,9 @@ begin
AddBaseType('QWord');
AddBaseType('Boolean');
AddBaseType('ByteBool');
AddBaseType('WordBool');
AddBaseType('LongBool');
AddBaseType('QWordBool');
AddBaseType('String');
AddBaseType('AnsiString');
AddBaseType('ShortString');
@ -2353,7 +2355,7 @@ begin
case ExprType.Desc of
xtBoolean,xtByteBool,xtLongBool:
xtBoolean,xtByteBool,xtWordBool,xtLongBool,xtQWordBool:
begin
List.Add('True');
List.Add('False');

3
components/codetools/keywordfunclists.pas
View File

@ -1422,6 +1422,8 @@ begin
Add('ANSISTRING' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('BOOLEAN' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('BYTEBOOL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('WORDBOOL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('QWORDBOOL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('CARDINAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('CHAR' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('COMP' ,{$ifdef FPC}@{$endif}AllwaysTrue);
@ -1460,6 +1462,7 @@ begin
with WordIsPredefinedDelphiIdentifier do begin
Add('ANSISTRING' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('BOOLEAN' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('WORDBOOL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('CARDINAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('CHAR' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('COMP' ,{$ifdef FPC}@{$endif}AllwaysTrue);