paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 06:20:05 +01:00
Code Issues Packages Projects Releases Wiki Activity

sinclairql: include qdosh.inc directly. this will allow easier sharing of qdosfuncs.inc with the qlunits package

Browse Source 
git-svn-id: trunk@49308 -
This commit is contained in:
Károly Balogh 2021-05-01 11:48:39 +00:00
parent 394fd2037a
commit 53674e387f
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/sinclairql/qdosfuncs.inc
View File

@ -1,6 +1,6 @@
{ {
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 2020 by Karoly Balogh Copyright (c) 2020-2021 by Karoly Balogh
Headers to QDOS OS functions used by the Sinclair QL RTL Headers to QDOS OS functions used by the Sinclair QL RTL
@ -13,7 +13,6 @@
**********************************************************************} **********************************************************************}
{$i qdosh.inc}
procedure mt_frjob(jobID: Tjobid; exitCode: longint); external name '_mt_frjob'; procedure mt_frjob(jobID: Tjobid; exitCode: longint); external name '_mt_frjob';
function mt_inf(sys_vars: ppchar; ver_ascii: plongint): Tjobid; external name '_mt_inf'; function mt_inf(sys_vars: ppchar; ver_ascii: plongint): Tjobid; external name '_mt_inf';

1
rtl/sinclairql/si_prc.pp
View File

@ -19,6 +19,7 @@ interface
implementation implementation
{$i qdosh.inc}
{$i qdosfuncs.inc} {$i qdosfuncs.inc}
var var

1
rtl/sinclairql/sysutils.pp
View File

@ -53,6 +53,7 @@ uses
{ Include platform independent implementation part } { Include platform independent implementation part }
{$i sysutils.inc} {$i sysutils.inc}
{$i qdosh.inc}
{$i qdosfuncs.inc} {$i qdosfuncs.inc}
{$i smsfuncs.inc} {$i smsfuncs.inc}