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

2010-05-27 23:36 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbmisc/calldll.prg
    ! Cleanup and fix to previous change.
This commit is contained in:
Viktor Szakats
2010-05-27 21:38:12 +00:00
parent 1f3b2943d3
commit 36b37697ca
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-05-27 23:36 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbmisc/calldll.prg
! Cleanup and fix to previous change.
2010-05-27 22:56 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/vm/hvm.c
! fixed GPF when hb_arrayToParams() is used with empty array reported

10
harbour/contrib/hbmisc/calldll.prg
View File

@@ -75,13 +75,9 @@ FUNCTION HB_DYNACALL1( cFunction, cLibrary, nCount, ... )
s_hDLL[ cLibrary ] := hb_LibLoad( cLibrary )
ENDIF
IF ISNUMBER( nCount )
IF nCount == 0
RETURN hb_dynCall( { cFunction, s_hDLL[ cLibrary ], _DEF_CALLCONV_ } )
ELSEIF nCount >= 0 .AND. nCount < PCount() - 3
aParams := ASize( hb_AParams(), nCount )
RETURN hb_dynCall( { cFunction, s_hDLL[ cLibrary ], _DEF_CALLCONV_ }, hb_arrayToParams( aParams ) )
ENDIF
IF ISNUMBER( nCount ) .AND. nCount >= 0 .AND. nCount < PCount() - 3
aParams := ASize( hb_AParams(), nCount )
RETURN hb_dynCall( { cFunction, s_hDLL[ cLibrary ], _DEF_CALLCONV_ }, hb_arrayToParams( aParams ) )
ELSE
RETURN hb_dynCall( { cFunction, s_hDLL[ cLibrary ], _DEF_CALLCONV_ }, ... )
ENDIF