Hello Michael,
fix is OK, thank you.
I notice only a missing "white space" if compared to previous output.
Please review attached patch.
Sandro
On 2 January 2016 at 00:22, Michael Van Canneyt <mich...@freepascal.org>
wrote:
>
> I attempted a fix in rev. 32818.
> Please test.
>
> Michael.
>
>
> On Fri, 1 Jan 2016, Sandro Cumerlato wrote:
>
> Hello,
>> after revision 32823 I've tried to re-import (using Lazarus "Import Type
>> Library..." Tool) "C:\Windows\SysWOW64\mshtml.tlb" and
>> "C:\Windows\SysWOW64\shdocvw.dll", but I've got a lot of compiling issues
>> like this:
>>
>> "mshtml_4_0_tlb.pas(10397,78) Error: Illegal symbol for property access"
>>
>> IMHO related to "var" in "procedure Set_returnValue(var p:OleVariant);
>> safecall;" (line 10367)
>>
>>
>> Can someone please verify this issue?
>>
>> Thanx in advance.
>>
>> http://svn.freepascal.org/cgi-bin/viewvc.cgi?view=revision&revision=32823
>> http://bugs.freepascal.org/view.php?id=27486
>>
>> btw: Happy New Year!
>>
>>
>> Sandro Cumerlato
>>
>> _______________________________________________
> fpc-devel maillist - fpc-devel@lists.freepascal.org
> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
>
Index: packages/winunits-base/src/typelib.pas
===================================================================
--- packages/winunits-base/src/typelib.pas (revision 32828)
+++ packages/winunits-base/src/typelib.pas (working copy)
@@ -821,7 +821,7 @@
sDefault:=sl;
end;
end;
- tmp:=' procedure Set_%s(%s %s:%s); %s;'#13#10;
+ tmp:=' procedure Set_%s(%s %s:%s); %s;'#13#10;
if not bParamByRef then
Modifier:='const'
else
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
