mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 17:31:42 +01:00
8b5461367b
* also adjust (P)Byte usages to (P/T)TypeKind where necessary/approbiate git-svn-id: trunk@36873 -
38 lines
1.4 KiB
PHP
38 lines
1.4 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2014 by Maciej Izak
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{ sadly MinEnumSize is not handled by Push/Pop :'( }
|
|
{$MINENUMSIZE 1 this saves a lot of memory }
|
|
|
|
type
|
|
{ If you change one of the following enumeration types you have also to
|
|
change the compiler and unit typeinfo in an appropriate way!
|
|
Also if you add managed types you'll need to update tkManagedTypes in
|
|
rtti.inc }
|
|
TTypeKind = (tkUnknown,tkInteger,tkChar,tkEnumeration,tkFloat,
|
|
tkSet,tkMethod,tkSString,tkLString,tkAString,
|
|
tkWString,tkVariant,tkArray,tkRecord,tkInterface,
|
|
tkClass,tkObject,tkWChar,tkBool,tkInt64,tkQWord,
|
|
tkDynArray,tkInterfaceRaw,tkProcVar,tkUString,tkUChar,
|
|
tkHelper,tkFile,tkClassRef,tkPointer);
|
|
|
|
{$MINENUMSIZE DEFAULT}
|
|
|
|
(*
|
|
procedure InitializeArray(p, typeInfo: Pointer; count: SizeInt);
|
|
procedure FinalizeArray(p, typeInfo: Pointer; count: SizeInt);
|
|
procedure CopyArray(dest, source, typeInfo: Pointer; count: SizeInt);
|
|
*)
|
|
|
|
|