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

2023-01-16 14:35 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* contrib/hbwin/wapi_shellapi.c
    ! replaced struct = { 0 } with memset( &struct, 0, sizeof( struct ) )
      Such BCC syntax does not clear the whole structure body in most of
      other C compilers.

  * src/pp/hbpp.c
    ! fixed compilation for compilers using "i64" to format long long numbers,
      thanks to Toninho for the information.
This commit is contained in:
Przemysław Czerpak
2023-01-16 14:35:47 +01:00
parent 2975eadbba
commit 9744fb04fd
3 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ChangeLog.txt
View File

@@ -7,6 +7,16 @@
Entries may not always be in chronological/commit order.
See license at the end of file. */
2023-01-16 14:35 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbwin/wapi_shellapi.c
! replaced struct = { 0 } with memset( &struct, 0, sizeof( struct ) )
Such BCC syntax does not clear the whole structure body in most of
other C compilers.
* src/pp/hbpp.c
! fixed compilation for compilers using "i64" to format long long numbers,
thanks to Toninho for the information.
2023-01-15 11:17 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbwin/win_prn1.c
! fixed parameter type in font enum callback

10
contrib/hbwin/wapi_shellapi.c
View File

@@ -85,8 +85,10 @@ HB_FUNC( WAPI_SHELLEXECUTE_WAIT )
void * hDirectory;
BOOL retVal;
MSG msg;
SHELLEXECUTEINFO ShExecInfo = {0};
ShExecInfo.cbSize = sizeof(SHELLEXECUTEINFO);
SHELLEXECUTEINFO ShExecInfo;
memset( &ShExecInfo, 0, sizeof( ShExecInfo ) );
ShExecInfo.cbSize = sizeof( SHELLEXECUTEINFO );
ShExecInfo.fMask = SEE_MASK_NOCLOSEPROCESS;
ShExecInfo.hwnd = ( HWND ) hb_parptr( 1 );
ShExecInfo.lpVerb = HB_PARSTR( 2, &hOperation, NULL );
@@ -95,9 +97,9 @@ HB_FUNC( WAPI_SHELLEXECUTE_WAIT )
ShExecInfo.lpDirectory = HB_PARSTR( 5, &hDirectory, NULL );
ShExecInfo.nShow = hb_parnidef( 6, SW_SHOWNORMAL );
ShExecInfo.hInstApp = NULL;
retVal = ShellExecuteEx(&ShExecInfo);
retVal = ShellExecuteEx( &ShExecInfo );
hb_retl( retVal );
while( WaitForSingleObject(ShExecInfo.hProcess,1000) != WAIT_OBJECT_0 )
while( WaitForSingleObject( ShExecInfo.hProcess, 1000 ) != WAIT_OBJECT_0 )
{
while( PeekMessage( &msg, ( HWND ) NULL, 0, 0, PM_REMOVE ) )
{

2
src/pp/hbpp.c
View File

@@ -350,7 +350,7 @@ static int hb_pp_generateVerInfo( char * szVerFile,
" * and is covered by the same license as Harbour PP\n"
" */\n\n" );
fprintf( fout, "#define HB_VER_REVID %" PFHL "u" PFHL "u\n", nRevID );
fprintf( fout, "#define HB_VER_REVID %" PFHL "ulu\n", nRevID );
if( szChangeLogID )
{