diff options
Diffstat (limited to 'rtl/morphos/exec.pp')
| -rw-r--r-- | rtl/morphos/exec.pp | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/rtl/morphos/exec.pp b/rtl/morphos/exec.pp deleted file mode 100644 index 60b27d690a..0000000000 --- a/rtl/morphos/exec.pp +++ /dev/null @@ -1,51 +0,0 @@ -{ - This file is part of the Free Pascal run time library. - Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu> - - exec.library interface unit for MorphOS/PowerPC - - MorphOS port was done on a free Pegasos II/G4 machine - provided by Genesi S.a.r.l. <www.genesi.lu> - - 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. - - **********************************************************************} - -unit exec; - -interface - -var - ExecBase: Pointer; - -{$include execd.inc} -{$include execf.inc} - - -function NewGetTaskAttrs(Task : PTask; - Data : Pointer; - DataSize: Cardinal; - TType : Cardinal; - Tags : array of DWord): Cardinal; Inline; - -implementation - - -function NewGetTaskAttrs(Task : PTask; - Data : Pointer; - DataSize: Cardinal; - TType : Cardinal; - Tags : array of DWord): Cardinal; Inline; -begin - NewGetTaskAttrs:=NewGetTaskAttrsA(Task,Data,DataSize,TType,@Tags); -end; - - -begin - ExecBase:=MOS_ExecBase; -end. |