From 2df15f7e13f0a91853391956db432c925d1d2dfb Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Tue, 2 Oct 2007 12:58:39 +0000 Subject: [PATCH] 2007-10-02 14:58 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/ole2/win32ole.prg ! fixed typo in __enumStart() - enum parameter has to be passed by reference ro __enumSkip() method --- harbour/ChangeLog | 5 +++++ harbour/contrib/ole2/win32ole.prg | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 44b32c8188..a42e08b0bd 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-10-02 14:58 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/ole2/win32ole.prg + ! fixed typo in __enumStart() - enum parameter has to be passed + by reference ro __enumSkip() method + 2007-10-02 10:57 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbexpra.c + added support for HB_ENUM*([@]) functions - disabled diff --git a/harbour/contrib/ole2/win32ole.prg b/harbour/contrib/ole2/win32ole.prg index a8193b60e2..995b15bb16 100644 --- a/harbour/contrib/ole2/win32ole.prg +++ b/harbour/contrib/ole2/win32ole.prg @@ -647,7 +647,7 @@ METHOD __enumStart( enum, lDescend ) CLASS TOleAuto /* TODO: add support for descend order */ ::pOleEnumerator := ::OleNewEnumerator() -RETURN ::__enumSkip( enum, lDescend ) +RETURN ::__enumSkip( @enum, lDescend ) //--------------------------------------------------------------------