Browse Source

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

Karoly Balogh 3 years ago
parent
commit
6502f7b35a

+ 1 - 1
packages/tosunits/fpmake.pp

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

+ 4 - 4
packages/tosunits/src/aes.pas

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

+ 1 - 1
packages/tosunits/src/gem.pas

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

+ 1 - 1
packages/tosunits/src/gemcommon.pas → packages/tosunits/src/gemcmmn.pas

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

+ 4 - 4
packages/tosunits/src/vdi.pas

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