paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 19:38:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ made FCL to build on MorphOS

Browse Source 
git-svn-id: trunk@4602 -
This commit is contained in:
Károly Balogh 2006-09-10 15:15:33 +00:00
parent bca9b6c132
commit 4a840be62c
4 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -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

2
fcl/fpcunit/fpcunit.pp
View File

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

22
fcl/morphos/eventlog.inc Normal file
View File

@ -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}

22
fcl/morphos/pipes.inc Normal file
View File

@ -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;