From 4c872834ab7434e74d74a0e2fffa087266aaa699 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 22 Nov 2004 22:48:10 +0000
Subject: [PATCH] + Added phony documentation declarations

---
 rtl/inc/system.fpd  | 53 +++++++++++++++++++++++++++++++++++++++++++++
 rtl/inc/systemh.inc | 13 ++++++++++-
 2 files changed, 65 insertions(+), 1 deletion(-)
 create mode 100644 rtl/inc/system.fpd

diff --git a/rtl/inc/system.fpd b/rtl/inc/system.fpd
new file mode 100644
index 0000000000..4d781ad512
--- /dev/null
+++ b/rtl/inc/system.fpd
@@ -0,0 +1,53 @@
+{
+    $Id$
+    This file is part of the Free Pascal Run time library.
+    Copyright (c) 1999-2000 by the Free Pascal development team
+
+    This File contains extra, phony declarations used in fpdoc.
+
+    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.
+
+ **********************************************************************}
+
+Function Addr (X : TAnytype) : Pointer;
+Procedure Assert(Expr : Boolean); 
+Procedure Assert(Expr : Boolean; const Msg : string);
+Function Assigned (P : Pointer) : Boolean;
+Procedure Break;
+Function Concat (Const S1,S2,S3,Sn  : String) : String;
+Procedure Continue;
+Procedure Dec(Var X : TOrdinal);
+Procedure Dec(Var X : TOrdinal; Decrement : TOrdinal);
+Procedure Dispose (P : Pointer);
+Procedure Dispose (P : TypedPointer; Des : TProcedure);
+Procedure Exclude (Var S : TSetType; E : TSetElement);
+Procedure Exit(Const X : TAnyType);
+Procedure Exit;
+Function High (Arg: TypeOrVariable) : TOrdinal;
+Procedure Inc (Var X : TOrdinal);
+Procedure Inc (Var X : TOrdinal; Increment : TOrdinal);
+Procedure Include (Var S : TSetType; E : TSetElement);
+Function Low (Arg: TypeOrVariable) : TOrdinal;
+Procedure New (Var P : Pointer);
+Procedure New (Var P : Pointer; Cons : TProcedure);
+Function Ofs (Var X) : Longint;
+Function Ord (X : TOrdinal) : Longint;
+Function Pred (X : TOrdinal) : TOrdinal;
+Procedure Read (Var F : Text; Args : Arguments);
+Procedure ReadLn (Var F : Text; Args : Arguments);
+Procedure Read (Args : Arguments);
+Procedure ReadLn (Args : Arguments);
+Function Seg (Var X) : Longint;
+Function SizeOf (X : TAnyType) : Longint;
+Procedure Str (Var X : TNumericType; Var S : String);
+Function Succ (X : TOrdinal) : TOrdinal;
+Procedure Val (const S : string;Var V;var Code : word);
+Procedure Write (Args : Arguments);
+Procedure Writeln (Args : Arguments);
+Procedure Write (Var F : Text; Args : Arguments);
+Procedure WriteLn (Var F : Text; Args : Arguments);
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index a070bdf5c0..004bfc5768 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -785,9 +785,20 @@ const
 
 {$i compproc.inc}
 
+{*****************************************************************************
+                   FPDoc phony declarations.
+*****************************************************************************}
+
+{$ifdef fpdocsystem}
+{$i system.fpd}
+{$endif}
+
 {
   $Log$
-  Revision 1.108  2004-11-17 22:19:04  peter
+  Revision 1.109  2004-11-22 22:48:10  michael
+  + Added phony documentation declarations
+
+  Revision 1.108  2004/11/17 22:19:04  peter
   internconst, internproc and some external declarations moved to interface
 
   Revision 1.107  2004/11/09 23:10:22  peter