paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 16:48:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correction on previous patch

Browse Source 
git-svn-id: trunk@32827 -
This commit is contained in:
michael 2016-01-01 23:23:42 +00:00
parent 3f5172933d
commit 81b778f555
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/winunits-base/src/typelib.pas
View File

@ -822,7 +822,7 @@ begin
end;
end;
tmp:=' procedure Set_%s(%s %s:%s); %s;'#13#10;
if not (bParamByRef or (sType='OleVariant')) then
if not bParamByRef then
Modifier:='const'
else
Modifier:='var';