paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tosunits: rename gemcommon to gemcmmn so the unit name fits 8.3 limitations

Browse Source
This commit is contained in:
Karoly Balogh 2022-02-13 18:46:40 +01:00
parent 364a091474
commit 6502f7b35a
5 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/tosunits/fpmake.pp
View File

@ -35,7 +35,7 @@ begin
T:=P.Targets.AddUnit('vdi.pas');
T:=P.Targets.AddUnit('aes.pas');
T:=P.Targets.AddUnit('gem.pas');
T:=P.Targets.AddUnit('gemcommon.pas');
T:=P.Targets.AddUnit('gemcmmn.pas');
T:=P.Targets.AddUnit('nf_ops.pas');
P.ExamplePath.Add('examples');

8
packages/tosunits/src/aes.pas
View File

@ -20,7 +20,7 @@ unit aes;
interface
uses gemcommon;
uses gemcmmn;
{ The API description of this file is based on the information available
online at: https://freemint.github.io/tos.hyp/en/index.html }
@ -28,9 +28,9 @@ uses gemcommon;
{$I aestypes.inc}
type
ARRAY_8 = gemcommon.ARRAY_8;
PMFORM = gemcommon.PMFORM;
TMFORM = gemcommon.TMFORM;
ARRAY_8 = gemcmmn.ARRAY_8;
PMFORM = gemcmmn.PMFORM;
TMFORM = gemcmmn.TMFORM;
function appl_exit: smallint;
function appl_read(ap_rid: smallint; ap_rlength: smallint; ap_rpbuff: pointer): smallint;

2
packages/tosunits/src/gem.pas
View File

@ -25,7 +25,7 @@ unit gem;
interface
uses aes, vdi, gemcommon;
uses aes, vdi, gemcmmn;
const
LWhite = DWHITE;

2
packages/tosunits/src/gemcommon.pas → packages/tosunits/src/gemcmmn.pas
View File

@ -21,7 +21,7 @@
{$MODESWITCH OUT+}
{$PACKRECORDS 2}
unit gemcommon;
unit gemcmmn;
interface

8
packages/tosunits/src/vdi.pas
View File

@ -20,7 +20,7 @@ unit vdi;
interface
uses gemcommon;
uses gemcmmn;
{ The API description of this file is based on the information available
online at: https://freemint.github.io/tos.hyp/en/index.html }
@ -28,9 +28,9 @@ uses gemcommon;
{$I vditypes.inc}
type
ARRAY_8 = gemcommon.ARRAY_8;
PMFORM = gemcommon.PMFORM;
TMFORM = gemcommon.TMFORM;
ARRAY_8 = gemcmmn.ARRAY_8;
PMFORM = gemcmmn.PMFORM;
TMFORM = gemcmmn.TMFORM;
procedure vdi;
procedure vdi(pb: PVDIPB);