From cbc1fddf567d03a7c151eed6f847d9bc7fc69a4e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 5 Mar 2011 09:53:59 +0000
Subject: [PATCH] codetools: cextended

git-svn-id: trunk@29731 -
---
 components/codetools/finddeclarationtool.pas | 13 ++++++++++---
 components/codetools/identcompletiontool.pas |  1 +
 2 files changed, 11 insertions(+), 3 deletions(-)

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