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

Fix Binder's code generation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3874 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-01-07 14:14:04 +00:00
parent b2e1e27b73
commit 52cb1f0bf5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1363,7 +1363,7 @@ Var
for k := 0 to Pred(prmCnt) do begin for k := 0 to Pred(prmCnt) do begin
prm := TPasArgument(prms[k]); prm := TPasArgument(prms[k]);
if SymbolTable.IsInitNeed(prm.ArgType) then if SymbolTable.IsInitNeed(prm.ArgType) then
WriteLn('%s := nil;',[RETURN_VAL_NAME]); WriteLn('%s := nil;',[prm.Name]);
end; end;
NewLine(); NewLine();