[fpc-devel] TTypeData

[Ricardo Aguiar]

Greetings!

I was looking at typinfo unit source code and I saw the code below:


80:      TTypeData =
81:{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
82:      packed
83:{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
84:      record
85:         case TTypeKind of
86:            tkUnKnown,tkLString,tkWString,tkAString,tkVariant:
87:              ();
88:            tkInteger,tkChar,tkEnumeration,tkWChar,tkSet:
89:              (OrdType : TOrdType;
90:               case TTypeKind of
91:                  tkInteger,tkChar,tkEnumeration,tkBool,tkWChar : (
92:                    MinValue,MaxValue : Longint;
93:                    case TTypeKind of
94:                      tkEnumeration:
95:                        (
96:                        BaseType : PTypeInfo;

Should the line 88 include also tkBool? Because if not, tkBool will not 
be considered by TTypeData. 

Is that right? Or I am missing some point? I am new to FPC programming.

Hugs.
Ric.