diff --git a/.gitattributes b/.gitattributes index 2426027704..786f4db9e6 100644 --- a/.gitattributes +++ b/.gitattributes @@ -9788,6 +9788,7 @@ rtl/macos/MPWmake -text rtl/macos/Makefile svneol=native#text/plain rtl/macos/Makefile.fpc svneol=native#text/plain rtl/macos/README.txt svneol=native#text/plain +rtl/macos/classes.pp svneol=native#text/plain rtl/macos/dos.pp svneol=native#text/plain rtl/macos/macos.pp svneol=native#text/plain rtl/macos/macostp.inc svneol=native#text/plain @@ -9802,6 +9803,7 @@ rtl/macos/sysos.inc svneol=native#text/plain rtl/macos/sysosh.inc svneol=native#text/plain rtl/macos/system.pp svneol=native#text/plain rtl/macos/sysutils.pp svneol=native#text/plain +rtl/macos/tthread.inc svneol=native#text/plain rtl/mips/cpuh.inc svneol=native#text/plain rtl/mips/int64p.inc svneol=native#text/plain rtl/mips/makefile.cpu svneol=native#text/plain diff --git a/rtl/macos/classes.pp b/rtl/macos/classes.pp new file mode 100644 index 0000000000..6d257f525b --- /dev/null +++ b/rtl/macos/classes.pp @@ -0,0 +1,45 @@ +{ + This file is part of the Free Component Library (FCL) + Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl + + Classes unit for BeOS + + 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. + + **********************************************************************} + +{$mode objfpc} + +{ determine the type of the resource/form file } +{$define Win16Res} + +unit Classes; + +interface + +uses + sysutils, + rtlconsts, + types, + typinfo; + +{$i classesh.inc} + +implementation + +{ OS - independent class implementations are in /inc directory. } +{$i classes.inc} + + +initialization + CommonInit; + +finalization + CommonCleanup; + +end. diff --git a/rtl/macos/tthread.inc b/rtl/macos/tthread.inc new file mode 100644 index 0000000000..24e7e37f19 --- /dev/null +++ b/rtl/macos/tthread.inc @@ -0,0 +1,86 @@ +{ + This file is part of the Free Component Library (FCL) + Copyright (c) 1999-2000 by the Free Pascal development team + + 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. + + **********************************************************************} +{****************************************************************************} +{* TThread *} +{****************************************************************************} + + +procedure TThread.CallOnTerminate; + +begin +end; + + +function TThread.GetPriority: TThreadPriority; + +begin + GetPriority:=tpNormal; +end; + + +procedure TThread.SetPriority(Value: TThreadPriority); + +begin +end; + + +procedure TThread.SetSuspended(Value: Boolean); + +begin +end; + + +procedure TThread.DoTerminate; + +begin +end; + + +procedure TThread.SysCreate(CreateSuspended: Boolean; const StackSize: SizeUInt); + +begin + {IsMultiThread := TRUE; } +end; + + +procedure TThread.SysDestroy; + +begin +end; + + +procedure TThread.Resume; + +begin +end; + + +procedure TThread.Suspend; + +begin +end; + + +procedure TThread.Terminate; + +begin +end; + + +function TThread.WaitFor: Integer; + +begin + WaitFor:=0; +end; + +