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