[fpc-devel] Revision 32823 - * Applied patch from José Mejuto to fix bug ID 27486

[Sandro Cumerlato]

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 <michael at 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 at lists.freepascal.org
> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20160102/f71eecf2/attachment.html>
-------------- next part --------------
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