paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 14:20:05 +02: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.
Copyright (c) 2020 by Karoly Balogh
Copyright (c) 2020-2021 by Karoly Balogh
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';
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
{$i qdosh.inc}
{$i qdosfuncs.inc}
var

1
rtl/sinclairql/sysutils.pp
View File

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