From 357b6ee52bde24703ea86b96a2d567de2e4339f0 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 8 Feb 2005 16:10:29 +0000
Subject: [PATCH]   * TTOrdType -> TOrdType

---
 rtl/objpas/typinfo.pp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 515869a433..dfd015e402 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -42,7 +42,7 @@ unit typinfo;
                    tkClass,tkObject,tkWChar,tkBool,tkInt64,tkQWord,
                    tkDynArray,tkInterfaceRaw);
 
-       TTOrdType  = (otSByte,otUByte,otSWord,otUWord,otSLong,otULong);
+       TOrdType  = (otSByte,otUByte,otSWord,otUWord,otSLong,otULong);
 
        TFloatType = (ftSingle,ftDouble,ftExtended,ftComp,ftCurr);
        TMethodKind = (mkProcedure,mkFunction,mkConstructor,mkDestructor,
@@ -86,7 +86,7 @@ unit typinfo;
             tkUnKnown,tkLString,tkWString,tkAString,tkVariant:
               ();
             tkInteger,tkChar,tkEnumeration,tkWChar:
-              (OrdType : TTOrdType;
+              (OrdType : TOrdType;
                case TTypeKind of
                   tkInteger,tkChar,tkEnumeration,tkBool,tkWChar : (
                     MinValue,MaxValue : Longint;
@@ -641,7 +641,7 @@ var
   TypeInfo: PTypeInfo;
   AMethod : TMethod;
   DataSize: Integer;
-  OrdType: TTOrdType;
+  OrdType: TOrdType;
   Signed: Boolean;
 begin
   Result:=0;
@@ -1496,7 +1496,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.34  2004-12-30 18:11:43  michael
+  Revision 1.35  2005-02-08 16:10:29  florian
+    * TTOrdType -> TOrdType
+
+  Revision 1.34  2004/12/30 18:11:43  michael
   + Fix for WideString props
 
   Revision 1.33  2004/12/28 15:30:04  florian