diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b230102578..e8adfdc166 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2012-10-05 11:59 UTC+0200 Viktor Szakats (harbour syenar.net) + * src/rtl/philes.c + ! HB_FGETDATETIME(): make sure to set the referential + parameters to empty values when a failure is detected. + 2012-10-05 11:55 UTC+0200 Viktor Szakats (harbour syenar.net) * config/postinst.hb * utils/hbmk2/hbmk2.prg diff --git a/harbour/src/rtl/philes.c b/harbour/src/rtl/philes.c index 6cf8fec93b..c524514691 100644 --- a/harbour/src/rtl/philes.c +++ b/harbour/src/rtl/philes.c @@ -466,7 +466,17 @@ HB_FUNC( HB_FGETDATETIME ) hb_retl( HB_TRUE ); } else + { + if( HB_ISBYREF( 3 ) ) + { + hb_storc( "", 3 ); + hb_stordl( 0, 2 ); + } + else + hb_stortdt( 0, 0, 2 ); + hb_retl( HB_FALSE ); + } } HB_FUNC( HB_FSETDEVMODE )