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

git-svn-id: trunk@49308 -

rtl/sinclairql/qdosfuncs.inc

@@ -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';

rtl/sinclairql/si_prc.pp

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

rtl/sinclairql/sysutils.pp

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