Browse Source

* unit ptckvm renamed PTC.KVM if dotted units are used

Nikolay Nikolov 9 months ago
parent
commit
dfcdb1e742

+ 2 - 0
packages/ptckvm/fpmake.pp

@@ -31,6 +31,8 @@ begin
 
 
     T:=P.Targets.AddUnit('ptckvm.pas');
     T:=P.Targets.AddUnit('ptckvm.pas');
 
 
+    P.NamespaceMap:='namespaces.lst';
+
 {$ifndef ALLPACKAGES}
 {$ifndef ALLPACKAGES}
     Run;
     Run;
     end;
     end;

+ 3 - 0
packages/ptckvm/namespaced/PTC.KVM.pas

@@ -0,0 +1,3 @@
+unit PTC.KVM;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i ptckvm.pas}

+ 3 - 0
packages/ptckvm/namespaces.lst

@@ -0,0 +1,3 @@
+src/ptckvm.pas=namespaced/PTC.KVM.pas
+{s*:src/}=namespaced/
+{i+:src/}

+ 2 - 0
packages/ptckvm/src/ptckvm.pas

@@ -30,7 +30,9 @@
   Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA.
   Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA.
 }
 }
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit ptckvm;
 unit ptckvm;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$mode objfpc}
 {$mode objfpc}