qlunits: fix SMS unit build, declare all const/vars/types before functions, and minor tweaks

git-svn-id: trunk@49391 -

packages/qlunits/src/qdos.pas

@@ -142,13 +142,14 @@ type
   end;
   PWindowDef = ^TWindowDef;
 
+{ Variable/type includes before function declarations }
+{$i qdos_sysvars.inc}
 
 { the functions declared in qdosfuncs.inc are implemented in the system unit. They're included
   here via externals, do avoid double implementation of assembler wrappers. for this reason,
   qdosfuncs.inc in packages/qlunits must be kept identical to the one in rtl/sinclairql (KB). }
 
 {$i qdosfuncs.inc}
-{$i qdos_sysvars.inc}
 
 { other functions, not used/implemented by the RTL }
 

packages/qlunits/src/sms.pas

@@ -22,12 +22,14 @@ uses
   qdos;
 
 
+{ Variable/type includes before function declarations }
+{$i sms_sysvars.inc}
+
 { the functions declared in smsfuncs.inc are implemented in the system unit. They're included
   here via externals, do avoid double implementation of assembler wrappers. for this reason,
   smsfuncs.inc in packages/qlunits must be kept identical to the one in rtl/sinclairql (KB). }
 
 {$i smsfuncs.inc}
-{$i sms_sysvars.inc}
 
 
 implementation

packages/qlunits/src/sms_sysvars.inc

@@ -12,7 +12,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-{
+
 
 { This file holds the system variables for an SMSQ system and uses
   the SMSQ naming convention. ND. }
@@ -220,7 +220,7 @@ Type
     sys_xdly: Byte;      { Suspend delay after executing another job [SMSQ/E 3.13+] }
     sys_ouch: Byte;      { Ouch flag (currently used to activate SGC debug) [SMSQ] }
 
-  end; 
+  end;
 
   pSystemVariables = ^SystemVariables;