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 ) //--------------------------------------------------------------------