paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add some Delphi-compatible type kind aliases

Browse Source 
git-svn-id: trunk@37707 -
This commit is contained in:
svenbarth 2017-12-09 16:18:19 +00:00
parent c15bcc693d
commit c07e723d37
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/rttih.inc
View File

@ -28,6 +28,15 @@ type
{$MINENUMSIZE DEFAULT}
const
{ some Delphi-compatible aliases }
tkAnsiChar = tkChar;
tkWideChar = tkWChar;
tkShortString = tkSString;
tkAnsiString = tkAString;
tkWideString = tkWString;
tkUnicodeString = tkUString;
procedure InitializeArray(p, typeInfo: Pointer; count: SizeInt);
procedure FinalizeArray(p, typeInfo: Pointer; count: SizeInt);
procedure CopyArray(dest, source, typeInfo: Pointer; count: SizeInt);