paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +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;
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 }

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

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

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

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