paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Adapted to new pastree declaration

Browse Source 
git-svn-id: trunk@13930 -
This commit is contained in:
michael 2009-10-23 15:11:32 +00:00
parent e50cee9b57
commit 80924b7a4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-net/src/mkxmlrpc.pp
View File

@ -738,7 +738,7 @@ begin
// Create dispatcher method
ProcMember := TPasProcedure.Create('Dispatch', ServerClass);
ProcMember.Visibility := visProtected;
ProcMember.IsOverride := True;
ProcMember.AddModifier(pmOverride);
ProcMember.ProcType := TPasProcedureType.Create('', ProcMember);
ProcMember.ProcType.CreateArgument('AParser', 'TXMLRPCParser').
Visibility := visPublic;