--- Merging r31182 into '.':

U    rtl/inc/system.fpd
--- Recording mergeinfo for merge of r31182 into '.':
 U   .
--- Merging r31183 into '.':
U    packages/fcl-passrc/tests/testpassrc.lpi
U    packages/fcl-passrc/src/pparser.pp
U    packages/fcl-passrc/src/pastree.pp
--- Recording mergeinfo for merge of r31183 into '.':
 G   .
--- Merging r31184 into '.':
U    utils/fpdoc/css.inc
U    utils/fpdoc/dglobals.pp
U    utils/fpdoc/testunit.xml
U    utils/fpdoc/fpdoc.lpi
U    utils/fpdoc/dw_ipflin.pas
U    utils/fpdoc/testunit.pp
U    utils/fpdoc/dw_linrtf.pp
U    utils/fpdoc/dw_html.pp
U    utils/fpdoc/fpdoc.css
U    utils/fpdoc/dw_man.pp
U    utils/fpdoc/dwlinear.pp
U    utils/fpdoc/dw_latex.pp
U    utils/fpdoc/dw_txt.pp
--- Recording mergeinfo for merge of r31184 into '.':
 G   .

# revisions: 31182,31183,31184


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_3_0@31203 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 0 deletions

diff --git a/rtl/inc/system.fpd b/rtl/inc/system.fpd
index 4f1fea5c0f..d7fcd8e64e 100644
--- a/rtl/inc/system.fpd
+++ b/rtl/inc/system.fpd
@@ -76,6 +76,8 @@ Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : Pac
 Procedure UnPack(Const Z : PackedArrayType; Out A : UnpackedArrayType; StartIndex : TIndexType);
 Function Slice(Const A : ArrayType; ACount : Integer) : ArrayType2;
 Function TypeInfo(Const T : AnyType) : Pointer;
+Procedure Fail;
+Function TypeOf(T : TObjectType) : Pointer;
  
 {$IFNDEF GO32V2}
 Var