소스 검색

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

git-svn-id: trunk@36872 -
svenbarth 8 년 전
부모
커밋
5deca8ed7b
3개의 변경된 파일29개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      .gitattributes
  2. 8 0
      rtl/java/jsystemh.inc
  3. 20 0
      rtl/java/rttih.inc

+ 1 - 0
.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

+ 8 - 0
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
 *****************************************************************************}

+ 20 - 0
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);
+*)
+
+