[fpc-devel] TTypeData

[Michael Van Canneyt]

On Fri, 18 Apr 2008, Ricardo Aguiar wrote:

> 
> 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.

tkBool is no longer used, as far as I know, it's tkEnumeration ?

Michael.