paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 01:08:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* copy and include rttih.inc (even though the functions are not available currently)

Browse Source 
git-svn-id: trunk@36872 -
This commit is contained in:
svenbarth 2017-08-11 20:28:51 +00:00
parent 2095cca98f
commit 5deca8ed7b
3 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9232,6 +9232,7 @@ rtl/java/objpash.inc svneol=native#text/plain
rtl/java/rtl.cfg svneol=native#text/plain
rtl/java/rtldefs.inc svneol=native#text/plain
rtl/java/rtti.inc svneol=native#text/plain
rtl/java/rttih.inc svneol=native#text/plain
rtl/java/sysos.inc svneol=native#text/plain
rtl/java/sysosh.inc svneol=native#text/plain
rtl/java/sysres.inc svneol=native#text/plain

8
rtl/java/jsystemh.inc
View File

@ -890,6 +890,14 @@ const
{$i varianth.inc}
{$endif FPC_HAS_FEATURE_VARIANTS}
{*****************************************************************************
RTTI support
*****************************************************************************}
{$ifdef FPC_HAS_FEATURE_RTTI}
{$i rttih.inc}
{$endif FPC_HAS_FEATURE_RTTI}
{*****************************************************************************
Internal helper routines support
*****************************************************************************}

20
rtl/java/rttih.inc Normal file
View File

@ -0,0 +1,20 @@
{
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.
**********************************************************************}
(*
procedure InitializeArray(p, typeInfo: Pointer; count: SizeInt);
procedure FinalizeArray(p, typeInfo: Pointer; count: SizeInt);
procedure CopyArray(dest, source, typeInfo: Pointer; count: SizeInt);
*)