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

2009-07-08 11:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* source/rtl/gtfunc.c
  * source/rtl/datec.c
  * source/rtl/langapi.c
  * source/rtl/natmsg.c
    % Using hb_retc_const() in some less obvious cases.
This commit is contained in:
Viktor Szakats
2009-07-08 09:29:40 +00:00
parent e70b62d35e
commit ab894b7fed
5 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -17,6 +17,13 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-07-08 11:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* source/rtl/gtfunc.c
* source/rtl/datec.c
* source/rtl/langapi.c
* source/rtl/natmsg.c
% Using hb_retc_const() in some less obvious cases.
2009-07-08 11:13 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbmath.h
! fixed C++ DJGPP builds

4
harbour/source/rtl/datec.c
View File

@@ -85,7 +85,7 @@ HB_FUNC( CMONTH )
int iYear, iMonth, iDay;
hb_dateDecode( hb_itemGetDL( pDate ), &iYear, &iMonth, &iDay );
hb_retc( hb_dateCMonth( iMonth ) );
hb_retc_const( hb_dateCMonth( iMonth ) );
}
else
hb_errRT_BASE_SubstR( EG_ARG, 1116, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
@@ -104,7 +104,7 @@ HB_FUNC( CDOW )
int iYear, iMonth, iDay;
hb_dateDecode( lDate, &iYear, &iMonth, &iDay );
hb_retc( hb_dateCDOW( hb_dateDOW( iYear, iMonth, iDay ) ) );
hb_retc_const( hb_dateCDOW( hb_dateDOW( iYear, iMonth, iDay ) ) );
}
else
hb_retc_null();

2
harbour/source/rtl/gtfunc.c
View File

@@ -114,7 +114,7 @@ HB_FUNC( HB_GTINFO )
HB_FUNC( HB_GTVERSION )
{
hb_retc( hb_gtVersion( hb_parni( 1 ) ) );
hb_retc_const( hb_gtVersion( hb_parni( 1 ) ) );
}
HB_FUNC( HB_GTALERT )

4
harbour/source/rtl/langapi.c
View File

@@ -384,10 +384,10 @@ HB_FUNC( HB_LANGNAME )
HB_FUNC( HB_LANGERRMSG )
{
hb_retc( hb_langDGetErrorDesc( hb_parnl( 1 ) ) );
hb_retc_const( hb_langDGetErrorDesc( hb_parnl( 1 ) ) );
}
HB_FUNC( HB_LANGMESSAGE )
{
hb_retc( hb_langDGetItem( hb_parnl( 1 ) ) );
hb_retc_const( hb_langDGetItem( hb_parnl( 1 ) ) );
}

2
harbour/source/rtl/natmsg.c
View File

@@ -111,7 +111,7 @@ HB_FUNC( __NATMSG )
/* TODO: Replace this with Language API call. */
hb_retc_const( "Invalid argument" );
else if( HB_ISNUM( 1 ) )
hb_retc( hb_nationGetMsg( hb_parni( 1 ) ) );
hb_retc_const( hb_nationGetMsg( hb_parni( 1 ) ) );
else
hb_retc_null();
}