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

codetools: cextended

Browse Source 
git-svn-id: trunk@29731 -
This commit is contained in:
mattias 2011-03-05 09:53:59 +00:00
parent cf5a42b000
commit cbc1fddf56
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/finddeclarationtool.pas
View File

@ -240,6 +240,7 @@ type
xtSingle, // single xtSingle, // single
xtDouble, // double xtDouble, // double
xtExtended, // extended xtExtended, // extended
xtCExtended, // cextended
xtCurrency, // currency xtCurrency, // currency
xtComp, // comp xtComp, // comp
xtInt64, // int64 xtInt64, // int64
@ -287,6 +288,7 @@ const
'Single', 'Single',
'Double', 'Double',
'Extended', 'Extended',
'CExtended',
'Currency', 'Currency',
'Comp', 'Comp',
'Int64', 'Int64',
@ -328,8 +330,8 @@ const
xtLongWord, xtWord, xtCardinal, xtSmallInt, xtShortInt, xtLongWord, xtWord, xtCardinal, xtSmallInt, xtShortInt,
xtByte]; xtByte];
xtAllBooleanTypes = [xtBoolean, xtByteBool, xtWordBool, xtLongBool,xtQWordBool]; xtAllBooleanTypes = [xtBoolean, xtByteBool, xtWordBool, xtLongBool,xtQWordBool];
xtAllRealTypes = [xtReal, xtConstReal, xtSingle, xtDouble, xtExtended, xtAllRealTypes = [xtReal, xtConstReal, xtSingle, xtDouble,
xtCurrency, xtComp]; xtExtended, xtCExtended, xtCurrency, xtComp];
xtAllStringTypes = [xtConstString, xtShortString, xtString, xtAnsiString]; xtAllStringTypes = [xtConstString, xtShortString, xtString, xtAnsiString];
xtAllWideStringTypes = [xtConstString, xtWideString, xtUnicodeString]; xtAllWideStringTypes = [xtConstString, xtWideString, xtUnicodeString];
xtAllPointerTypes = [xtPointer, xtNil]; xtAllPointerTypes = [xtPointer, xtNil];
@ -1004,6 +1006,8 @@ begin
Result:=xtDouble Result:=xtDouble
else if CompareIdentifiers(Identifier,'EXTENDED')=0 then else if CompareIdentifiers(Identifier,'EXTENDED')=0 then
Result:=xtExtended Result:=xtExtended
else if CompareIdentifiers(Identifier,'CEXTENDED')=0 then
Result:=xtCExtended
else if CompareIdentifiers(Identifier,'COMP')=0 then else if CompareIdentifiers(Identifier,'COMP')=0 then
Result:=xtComp Result:=xtComp
else if CompareIdentifiers(Identifier,'FILE')=0 then else if CompareIdentifiers(Identifier,'FILE')=0 then
@ -5334,7 +5338,7 @@ function TFindDeclarationTool.FindExpressionResultType(
int64, cardinal, QWord, boolean, bytebool, wordbool, qwordbool, longbool, char int64, cardinal, QWord, boolean, bytebool, wordbool, qwordbool, longbool, char
real: real:
real, single, double, extended, comp, currency real, single, double, extended, cextended, comp, currency
- predefined functions: - predefined functions:
function pred(ordinal type): ordinal constant of same type; function pred(ordinal type): ordinal constant of same type;
@ -9443,6 +9447,7 @@ begin
xtSingle, xtSingle,
xtDouble, xtDouble,
xtExtended, xtExtended,
xtCExtended,
xtCurrency, xtCurrency,
xtComp, xtComp,
xtInt64, xtInt64,
@ -10085,6 +10090,7 @@ begin
xtSingle, xtSingle,
xtDouble, xtDouble,
xtExtended, xtExtended,
xtCExtended,
xtCurrency, xtCurrency,
xtComp, xtComp,
xtInt64, xtInt64,
@ -10102,6 +10108,7 @@ begin
xtSingle, xtSingle,
xtDouble, xtDouble,
xtExtended, xtExtended,
xtCExtended,
xtCurrency, xtCurrency,
xtComp, xtComp,
xtInt64, xtInt64,

1
components/codetools/identcompletiontool.pas
View File

@ -1318,6 +1318,7 @@ begin
AddBaseType('Single'); AddBaseType('Single');
AddBaseType('Double'); AddBaseType('Double');
AddBaseType('Extended'); AddBaseType('Extended');
AddBaseType('CExtended');
AddBaseType('Currency'); AddBaseType('Currency');
AddBaseType('Comp'); AddBaseType('Comp');
AddBaseType('Int64'); AddBaseType('Int64');