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. _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel