paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:26:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@49391 -
This commit is contained in:
Károly Balogh 2021-05-22 08:21:10 +00:00
parent 2bf7676f00
commit c9f875b15f
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/qlunits/src/qdos.pas
View File

@ -142,13 +142,14 @@ type
end; end;
PWindowDef = ^TWindowDef; 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 { 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, 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). } qdosfuncs.inc in packages/qlunits must be kept identical to the one in rtl/sinclairql (KB). }
{$i qdosfuncs.inc} {$i qdosfuncs.inc}
{$i qdos_sysvars.inc}
{ other functions, not used/implemented by the RTL } { other functions, not used/implemented by the RTL }

4
packages/qlunits/src/sms.pas
View File

@ -22,12 +22,14 @@ uses
qdos; 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 { 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, 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). } smsfuncs.inc in packages/qlunits must be kept identical to the one in rtl/sinclairql (KB). }
{$i smsfuncs.inc} {$i smsfuncs.inc}
{$i sms_sysvars.inc}
implementation implementation

4
packages/qlunits/src/sms_sysvars.inc
View File

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