* fixed mkxmlrpc, the recent commits to fcl-passrc broke it.

git-svn-id: trunk@14943 -

packages/fcl-net/Makefile.fpc

@@ -9,7 +9,7 @@ version=2.5.1
 [target]
 units=servlets
 units_linux=netdb resolve ssockets fpsock httpbase httpclient httpsvlt xmlrpc
-units_freebsd=netdb resolve ssockets fpsock httpbase httpclient httpsvlt xmlrpc
+units_freebsd=netdb resolve ssockets fpsock httpbase httpclient httpsvlt xmlrpc cnetdb
 units_netbsd=netdb resolve ssockets fpsock httpbase httpclient httpsvlt xmlrpc
 units_openbsd=netdb resolve ssockets fpsock httpbase httpclient httpsvlt xmlrpc
 units_darwin=netdb resolve ssockets 

packages/fcl-net/src/mkxmlrpc.pp

@@ -698,7 +698,8 @@ procedure WriteFPCServerSource;
 var
   i, j: Integer;
   Module: TPasModule;
-  InterfaceSection, ImplementationSection: TPasSection;
+  InterfaceSection:TInterfaceSection;
+   ImplementationSection: TImplementationSection;
   VarMember: TPasVariable;
   PropertyMember: TPasProperty;
   ProcMember: TPasProcedure;
@@ -710,9 +711,9 @@ var
 begin
   Module := TPasModule.Create(UnitName, nil);
   try
-    InterfaceSection := TPasSection.Create('', Module);
+    InterfaceSection := TInterfaceSection.Create('', Module);
     Module.InterfaceSection := InterfaceSection;
-    ImplementationSection := TPasSection.Create('', Module);
+    ImplementationSection := TImplementationSection.Create('', Module);
     Module.ImplementationSection := ImplementationSection;
     InterfaceSection.AddUnitToUsesList('Classes');
     InterfaceSection.AddUnitToUsesList('XMLRPC');