diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-02-26 15:55:37 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-02-26 15:55:37 +0000 |
| commit | 773ececeb9f3dbd24b06e2a2bd00ea9effe718d0 (patch) | |
| tree | 890cd133742e0c67cfaeab0ac1b32ea8b1101d24 /packages/fcl-net | |
| parent | 432c66b9b8229d3f5fdcdf2021ef1d579d3eda1d (diff) | |
| download | fpc-773ececeb9f3dbd24b06e2a2bd00ea9effe718d0.tar.gz | |
* 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
Diffstat (limited to 'packages/fcl-net')
| -rw-r--r-- | packages/fcl-net/Makefile.fpc | 2 | ||||
| -rw-r--r-- | packages/fcl-net/src/mkxmlrpc.pp | 7 |
2 files changed, 5 insertions, 4 deletions
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'); |