From 23f398ed6269a1c8f0a77cde20430f2ecedb604a Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Fri, 10 Jul 2009 18:32:17 +0000 Subject: [PATCH] 2009-07-10 20:31 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * source/rtl/xhelp.c ! Silenced MSVC warning. --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/xhelp.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8209a4ef42..ce4f3c697c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-07-10 20:31 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * source/rtl/xhelp.c + ! Silenced MSVC warning. + 2009-07-10 20:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * source/vm/fm.c ! Fixed bcc C++ build errors by enabling USE_DL_PREFIX in this case. diff --git a/harbour/source/rtl/xhelp.c b/harbour/source/rtl/xhelp.c index 19d7651989..cb337b2936 100644 --- a/harbour/source/rtl/xhelp.c +++ b/harbour/source/rtl/xhelp.c @@ -76,7 +76,7 @@ HB_FUNC( __XHELP ) for( iParam = 1; iParam <= iPCount; iParam++ ) hb_vmPush( hb_stackItemFromBase( iParam ) ); - hb_vmProc( iPCount ); + hb_vmProc( ( USHORT ) iPCount ); /* NOTE: Leave the return value as it is. */ } }