pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Default proxy creation function bug fix

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@612 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-11-26 11:12:33 +00:00
parent 8ca84f58b5
commit bb891a6fe5
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
wst/trunk/ws_helper/generator.pas
View File

@@ -558,6 +558,7 @@ Var
DecIndent(); DecIndent();
WriteLn('Begin'); WriteLn('Begin');
IncIndent(); IncIndent();
Indent(); WriteLn('locAdr := AAddress;');
Indent(); WriteLn('if ( locAdr = '''' ) then'); Indent(); WriteLn('if ( locAdr = '''' ) then');
IncIndent(); IncIndent();
Indent(); WriteLn('locAdr := GetServiceDefaultAddress(TypeInfo(%s));',[AIntf.Name]); Indent(); WriteLn('locAdr := GetServiceDefaultAddress(TypeInfo(%s));',[AIntf.Name]);