diff --git a/.gitattributes b/.gitattributes index b0f98a22c6..96ec9db366 100644 --- a/.gitattributes +++ b/.gitattributes @@ -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 diff --git a/rtl/java/jsystemh.inc b/rtl/java/jsystemh.inc index 80cd8264e1..201ad4c783 100644 --- a/rtl/java/jsystemh.inc +++ b/rtl/java/jsystemh.inc @@ -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 *****************************************************************************} diff --git a/rtl/java/rttih.inc b/rtl/java/rttih.inc new file mode 100644 index 0000000000..55cbd0bd60 --- /dev/null +++ b/rtl/java/rttih.inc @@ -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); +*) + +