diff --git a/.gitattributes b/.gitattributes index fe4a1d647d..ca1755aaef 100644 --- a/.gitattributes +++ b/.gitattributes @@ -8397,6 +8397,7 @@ rtl/aros/timerd.inc svneol=native#text/plain rtl/aros/x86_64/prt0.as svneol=native#text/plain rtl/atari/Makefile svneol=native#text/plain rtl/atari/Makefile.fpc svneol=native#text/plain +rtl/atari/classes.pp svneol=native#text/plain rtl/atari/prt0.as svneol=native#text/plain rtl/atari/rtldefs.inc svneol=native#text/plain rtl/atari/sysdir.inc svneol=native#text/plain @@ -8405,6 +8406,7 @@ rtl/atari/sysheap.inc svneol=native#text/plain rtl/atari/sysos.inc svneol=native#text/plain rtl/atari/sysosh.inc svneol=native#text/plain rtl/atari/system.pp svneol=native#text/plain +rtl/atari/tthread.inc svneol=native#text/plain rtl/avr/avr.inc svneol=native#text/plain rtl/avr/int64p.inc svneol=native#text/plain rtl/avr/makefile.cpu svneol=native#text/plain diff --git a/rtl/atari/classes.pp b/rtl/atari/classes.pp new file mode 100644 index 0000000000..5f7db50c2f --- /dev/null +++ b/rtl/atari/classes.pp @@ -0,0 +1,49 @@ +{ + This file is part of the Free Component Library (FCL) + Copyright (c) 2016 by the Free Pascal development team + + Classes unit for Atari + + 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, +{$ifdef FPC_TESTGENERICS} + fgl, +{$endif} + 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/atari/tthread.inc b/rtl/atari/tthread.inc new file mode 100644 index 0000000000..24e7e37f19 --- /dev/null +++ b/rtl/atari/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; + +