From 773ececeb9f3dbd24b06e2a2bd00ea9effe718d0 Mon Sep 17 00:00:00 2001
From: marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Fri, 26 Feb 2010 15:55:37 +0000
Subject:  * fixed mkxmlrpc, the recent commits to fcl-passrc broke it.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14943 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-net/Makefile.fpc    | 2 +-
 packages/fcl-net/src/mkxmlrpc.pp | 7 ++++---
 2 files changed, 5 insertions(+), 4 deletions(-)

(limited to 'packages/fcl-net')

diff --git a/packages/fcl-net/Makefile.fpc b/packages/fcl-net/Makefile.fpc
index 9a98b57c7a..28d33d6fc5 100644
--- a/packages/fcl-net/Makefile.fpc
+++ b/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 
diff --git a/packages/fcl-net/src/mkxmlrpc.pp b/packages/fcl-net/src/mkxmlrpc.pp
index 61794c8618..a5a9a4196f 100644
--- a/packages/fcl-net/src/mkxmlrpc.pp
+++ b/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');
-- 
cgit v1.2.1