fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-05-25 14:57 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* contrib/hbclipsm/date.c
     ! Fixed internal error in MDY(), DMY(). Thanks Petr.
     ! DMY() extra space removed.
This commit is contained in:
Viktor Szakats
2008-05-25 12:59:17 +00:00
parent 0c01e25a1f
commit e324ff7f7e
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-05-25 14:57 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbclipsm/date.c
! Fixed internal error in MDY(), DMY(). Thanks Petr.
! DMY() extra space removed.
2008-05-25 02:25 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* doc/whatsnew.txt
+ Uploaded Przemek's detailed 1.1.1 Harbour change listing.

8
harbour/contrib/hbclipsm/date.c
View File

@@ -74,9 +74,9 @@ HB_FUNC( MDY )
iYearLen = hb_setGetCentury() ? 4 : 2;
iBufferLen = iLen + 5 + iYearLen;
szReturn = ( char * ) hb_xgrab( iBufferLen );
szReturn = ( char * ) hb_xgrab( iBufferLen + 1 );
memset( szReturn, ' ', iBufferLen + 1 );
memset( szReturn, ' ', iBufferLen );
memcpy( szReturn, hb_dateCMonth( iMonth ), iLen );
memcpy( szReturn + iLen + 1, szFormatted + 3, 2 );
szReturn[ iLen + 3 ] = ',';
@@ -103,8 +103,8 @@ HB_FUNC( DMY )
iLen = strlen( hb_dateCMonth( iMonth ) );
iYearLen = hb_setGetCentury() ? 4 : 2;
iBufferLen = iLen + 5 + iYearLen;
szReturn = ( char * ) hb_xgrab( iBufferLen );
iBufferLen = iLen + 4 + iYearLen;
szReturn = ( char * ) hb_xgrab( iBufferLen + 1 );
memset( szReturn, ' ', iBufferLen );
memcpy( szReturn, szFormatted + 3, 2 );