+ made FCL to build on MorphOS

git-svn-id: trunk@4602 -

.gitattributes

@@ -895,6 +895,8 @@ fcl/inc/xregreg.inc svneol=native#text/plain
 fcl/inc/zipper.pp svneol=native#text/plain
 fcl/inc/zstream.pp svneol=native#text/plain
 fcl/linux/syncobjs.pp svneol=native#text/plain
+fcl/morphos/eventlog.inc svneol=native#text/plain
+fcl/morphos/pipes.inc svneol=native#text/plain
 fcl/net/Makefile svneol=native#text/plain
 fcl/net/Makefile.fpc svneol=native#text/plain
 fcl/net/fpmake.inc svneol=native#text/plain

fcl/fpcunit/fpcunit.pp

@@ -18,7 +18,9 @@ unit fpcunit;
 {$h+}
 
 interface
+{$IFNDEF MORPHOS}
 {$DEFINE SHOWLINEINFO}
+{$ENDIF}
 { Uncomment this define to remove the DUnit compatibility interface. }
 {$DEFINE DUnit}
 

fcl/morphos/eventlog.inc

@@ -0,0 +1,22 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2003 by the Free Pascal development team
+
+    Generic event logging facility.
+
+    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.
+
+ **********************************************************************}
+
+{ ---------------------------------------------------------------------
+    Include event log that maps to file event log.
+  ---------------------------------------------------------------------}
+
+{$i felog.inc}
+
+

fcl/morphos/pipes.inc

@@ -0,0 +1,22 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999-2000 by Michael Van Canneyt
+
+    AmigaOS specific part of pipe stream.
+
+    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.
+
+ **********************************************************************}
+
+// Unsupported for the moment...
+
+Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
+
+begin
+  Result := False;
+end;