Menu ▾ ▴

#208 Warnings Hwgui Windows OS

v1.0_(example)
open
nobody
None
1
2026-06-30
2025-12-01
No

Hi!

Many warnings for freeimage and others, ZIG compiler CLANG compiler.
Compiler: LLVM/Clang C 21.1 (https://github.com/ziglang/zig-bootstrap 1b08653ddc0b2770f51

Harbour 3.2.0dev (r2510231945)
Copyright (c) 1999-2025, https://harbour.github.io/
source/winapi/animat.c:18:11: warning: cast to 'HMENU' (aka 'struct HMENU__ *') from smaller integer type 'LONG'
      (aka 'long') [-Wint-to-pointer-cast]
   18 |    hwnd = Animate_Create( ( HWND ) HB_PARHANDLE( 1 ), ( LONG ) hb_parnl( 2 ),
      |           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   19 |          ( LONG ) hb_parnl( 3 ), GetModuleHandle( NULL ) );
      |          ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\dev\zig016\lib\libc\include\any-windows-any/commctrl.h:4426:106: note: expanded from macro 'Animate_Create'
 4426 |   ...CreateWindow(ANIMATE_CLASS,NULL,dwStyle,0,0,0,0,hwndP,(HMENU)(id),hInstance,NULL)
      |      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~
C:\dev\zig016\lib\libc\include\any-windows-any/winuser.h:2206:199: note: expanded from macro 'CreateWindowA'
 2206 |   ...CreateWindowExA((DWORD)0,lpClassName,lpWindowName,dwStyle,x,y,nWidth,nHeight,hWndParent,hMenu,hInstance,lpParam)
      |                                                                                              ^~~~~
1 warning generated.
source/winapi/dialog.c:222:9: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'LPWORD'
      (aka 'unsigned short *') [-Wpointer-to-int-cast]
  222 |    ul = ( ULONG ) lpIn;
      |         ^~~~~~~~~~~~~~
source/winapi/dialog.c:227:11: warning: cast to 'LPWORD' (aka 'unsigned short *') from smaller integer type 'ULONG'
      (aka 'unsigned long') [-Wint-to-pointer-cast]
  227 |    return ( LPWORD ) ul;
      |           ^~~~~~~~~~~~~
source/winapi/dialog.c:380:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'LPDLGTEMPLATE'
      (aka 'DLGTEMPLATE *') [-Wpointer-to-int-cast]
  380 |    hb_retnl( ( LONG ) s_CreateDlgTemplate( hb_param( 1, HB_IT_OBJECT ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  381 |                hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ), hb_parni( 5 ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  382 |                ( ULONG ) hb_parnd( 6 ) ) );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/dialog.c:387:26: warning: cast to 'LPDLGTEMPLATE' (aka 'DLGTEMPLATE *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  387 |    s_ReleaseDlgTemplate( ( LPDLGTEMPLATE ) hb_parnl( 1 ) );
      |                          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/dialog.c:415:22: warning: cast from 'LRESULT (*)(HWND, UINT, LPPROPSHEETPAGEA) __attribute__((stdcall))'
      (aka 'long long (*)(struct HWND__ *, unsigned int, struct _PROPSHEETPAGEA *)') to 'LPFNPSPCALLBACKA' (aka
      'unsigned int (*)(struct HWND__ *, unsigned int, struct _PROPSHEETPAGEA *)') converts to incompatible function
      type [-Wcast-function-type-mismatch]
  415 |    psp.pfnCallback = ( LPFNPSPCALLBACK ) s_PSPProcRelease;
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/dialog.c:448:22: warning: cast to 'LPDLGTEMPLATE' (aka 'DLGTEMPLATE *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  448 |       pdlgtemplate = ( LPDLGTEMPLATE ) hb_parnl( 2 );
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/dialog.c:484:16: warning: cast to 'HPROPSHEETPAGE' (aka 'struct _PSP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  484 |       psp[i] = ( HPROPSHEETPAGE ) hb_arrayGetNL( pArr, i + 1 );
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
: warning: cast to 'LPDLGTEMPLATE' (aka 'DLGTEMPLATE *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  520 |       pdlgtemplate = ( LPDLGTEMPLATE ) hb_parnl( 8 );
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
8 warnings generated.
source/winapi/draw.c:202:18: warning: cast to smaller integer type 'BOOL' (aka 'int') from 'WINBOOL *' (aka 'int *')
      [-Wpointer-to-int-cast]
  202 |    BOOL fErase = ( BOOL ) ( &pps->fErase );
      |                  ^~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/draw.c:660:60: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  660 |          HB_ISPOINTER( 6 ) ? ( HBRUSH )HB_PARHANDLE( 6 ) : ( HBRUSH )hb_parnl(6) );
      |                                                            ^~~~~~~~~~~~~~~~~~~~~
source/winapi/draw.c:740:13: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'int'
      [-Wint-to-pointer-cast]
  740 |             ( HBRUSH ) ( ( ( iType & 2 ) ? COLOR_3DSHADOW : COLOR_3DHILIGHT )
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  741 |                   + 1 ) );
      |                   ~~~~~
source/winapi/draw.c:745:13: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'int'
      [-Wint-to-pointer-cast]
  745 |             ( HBRUSH ) ( ( ( iType & 2 ) ? COLOR_3DHILIGHT : ( iType & 4 ) ?
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  746 |                         COLOR_3DDKSHADOW : COLOR_3DSHADOW ) + 1 ) );
      |                         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/draw.c:752:16: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'int'
      [-Wint-to-pointer-cast]
  752 |                ( HBRUSH ) ( ( ( iType & 2 ) ? COLOR_3DSHADOW : COLOR_3DLIGHT )
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  753 |                      + 1 ) );
      |                      ~~~~~
source/winapi/draw.c:757:16: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'int'
      [-Wint-to-pointer-cast]
  757 |                ( HBRUSH ) ( ( ( iType & 2 ) ? COLOR_3DLIGHT : COLOR_3DSHADOW )
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  758 |                      + 1 ) );
      |                      ~~~~~
source/winapi/draw.c:812:71: warning: cast to 'HINSTANCE' (aka 'struct HINSTANCE__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  812 |    HB_RETHANDLE( LoadImage( HB_ISNIL( 1 ) ? GetModuleHandle( NULL ) : ( HINSTANCE ) hb_parnl( 1 ),      // handle o...
      |                                                                       ^~~~~~~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:61: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                             ^
source/winapi/draw.c:1163:10: warning: cast to smaller integer type 'long' from 'HANDLE' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
 1163 |    if( ( ( long int ) hfbm ) <= 0 )
      |          ^~~~~~~~~~~~~~~~~
source/winapi/draw.c:1406:4: warning: cast to 'void *' from smaller integer type 'int' [-Wint-to-void-pointer-cast]
 1406 |    HB_RETHANDLE( ReleaseDC( ( HWND ) HB_PARHANDLE( 1 ),
      |    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1407 |                ( HDC ) HB_PARHANDLE( 2 ) ) );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:48: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                ^~~~~~~~~~~~~~~~
source/winapi/draw.c:1445:31: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HWND'
      (aka 'struct HWND__ *') [-Wpointer-to-int-cast]
 1445 |    temp = hb_itemPutNL( NULL, ( LONG ) lpdis->hwndItem );
      |                               ^~~~~~~~~~~~~~~~~~~~~~~~
10 warnings generated.
source/winapi/freeimg.c:242:46: warning: cast from 'FREEIMAGE_UNLOAD' (aka 'void (*)(struct FIBITMAP *)') to 'FARPROC'
      (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  242 |          ( FREEIMAGE_UNLOAD ) s_getFunction( ( FARPROC ) pUnload,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:246:16: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  246 |       pUnload( ( FIBITMAP * ) hb_parnl( 1 ) );
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:252:44: warning: cast from 'FREEIMAGE_LOAD' (aka 'struct FIBITMAP *(*)(int, const char *, int)')
      to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  252 |          ( FREEIMAGE_LOAD ) s_getFunction( ( FARPROC ) pLoad,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:255:58: warning: cast from 'FREEIMAGE_GETFIFFROMFILENAME' (aka 'int (*)(const char *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  255 |          ( FREEIMAGE_GETFIFFROMFILENAME ) s_getFunction( ( FARPROC )
      |                                                          ^~~~~~~~~~~
  256 |          pGetfiffromfile, "_FreeImage_GetFIFFromFilename@4" );
      |          ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:261:17: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  261 |       hb_retnl( ( ULONG ) pLoad( pGetfiffromfile( name ), name,
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  262 |                   ( hb_pcount(  ) > 1 ) ? hb_parni( 2 ) : 0 ) );
      |                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:274:44: warning: cast from 'FREEIMAGE_LOAD' (aka 'struct FIBITMAP *(*)(int, const char *, int)')
      to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  274 |          ( FREEIMAGE_LOAD ) s_getFunction( ( FARPROC ) pLoad,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:280:17: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  280 |       hb_retnl( ( ULONG ) pLoad( ( enum FREE_IMAGE_FORMAT ) hb_parni( 1 ),
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  281 |                   name, ( hb_pcount(  ) > 2 ) ? hb_parni( 3 ) : 0 ) );
      |                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:290:44: warning: cast from 'FREEIMAGE_SAVE' (aka 'int (*)(int, struct FIBITMAP *, const char *,
      int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  290 |          ( FREEIMAGE_SAVE ) s_getFunction( ( FARPROC ) pSave,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:293:58: warning: cast from 'FREEIMAGE_GETFIFFROMFILENAME' (aka 'int (*)(const char *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  293 |          ( FREEIMAGE_GETFIFFROMFILENAME ) s_getFunction( ( FARPROC )
      |                                                          ^~~~~~~~~~~
  294 |          pGetfiffromfile, "_FreeImage_GetFIFFromFilename@4" );
      |          ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:300:19: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  300 |                   ( FIBITMAP * ) hb_parnl( 1 ), name,
      |                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:313:44: warning: cast from 'FREEIMAGE_SAVE' (aka 'int (*)(int, struct FIBITMAP *, const char *,
      int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  313 |          ( FREEIMAGE_SAVE ) s_getFunction( ( FARPROC ) pSave,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:320:19: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  320 |                   ( FIBITMAP * ) hb_parnl( 2 ), name,
      |                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:330:48: warning: cast from 'FREEIMAGE_GETWIDTH' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  330 |          ( FREEIMAGE_GETWIDTH ) s_getFunction( ( FARPROC ) pGetwidth,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:333:41: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  333 |    hb_retnl( ( pGetwidth ) ? pGetwidth( ( FIBITMAP * ) hb_parnl( 1 ) ) : 0 );
      |                                         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:339:49: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  339 |          ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:342:43: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  342 |    hb_retnl( ( pGetheight ) ? pGetheight( ( FIBITMAP * ) hb_parnl( 1 ) ) :
      |                                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:349:46: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  349 |          ( FREEIMAGE_GETBPP ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:352:37: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  352 |    hb_retnl( ( pGetBPP ) ? pGetBPP( ( FIBITMAP * ) hb_parnl( 1 ) ) : 0 );
      |                                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:358:52: warning: cast from 'FREEIMAGE_GETIMAGETYPE' (aka 'short (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  358 |          ( FREEIMAGE_GETIMAGETYPE ) s_getFunction( ( FARPROC ) pGetImageType,
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~~~~
(aka 'struct FIBITMAP *') from smaller integer type 'long' *' [1/1] Linking
      [-Wint-to-pointer-cast]
  361 |    hb_retnl( ( pGetImageType ) ? pGetImageType( ( FIBITMAP * ) hb_parnl( 1 ) )
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:367:20: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  367 |    FIBITMAP *dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:371:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  371 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:374:47: warning: cast from 'FREEIMAGE_GETINFO' (aka 'struct tagBITMAPINFO *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  374 |          ( FREEIMAGE_GETINFO ) s_getFunction( ( FARPROC ) pGetinfo,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:377:53: warning: cast from 'FREEIMAGE_GETINFOHEADER' (aka 'struct tagBITMAPINFOHEADER
      *(*)(struct FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  377 |          ( FREEIMAGE_GETINFOHEADER ) s_getFunction( ( FARPROC ) pGetinfoHead,
      |                                                     ^~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:380:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HBITMAP'
      (aka 'struct HBITMAP__ *') [-Wpointer-to-int-cast]
  380 |    hb_retnl( ( LONG ) CreateDIBitmap( hDC, pGetinfoHead( dib ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  381 |                CBM_INIT, pGetbits( dib ), pGetinfo( dib ), DIB_RGB_COLORS ) );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:467:20: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  467 |    FIBITMAP *dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:471:48: warning: cast from 'FREEIMAGE_GETWIDTH' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  471 |          ( FREEIMAGE_GETWIDTH ) s_getFunction( ( FARPROC ) pGetwidth,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:474:49: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  474 |          ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:477:46: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  477 |          ( FREEIMAGE_GETBPP ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:480:48: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  480 |          ( FREEIMAGE_GETPITCH ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                                ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:483:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  483 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
 (aka 'void *')reeimg.c:496:17: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HANDLE'[1/1] Linking
      [-Wvoid-pointer-to-int-cast]
  496 |       hb_retnl( ( LONG ) hdib );
      |                 ^~~~~~~~~~~~~
source/winapi/freeimg.c:511:52: warning: cast from 'FREEIMAGE_GETIMAGETYPE' (aka 'short (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  511 |          ( FREEIMAGE_GETIMAGETYPE ) s_getFunction( ( FARPROC ) pGetImageType,
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:521:21: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  521 |    FIBITMAP *_dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:525:53: warning: cast from 'FREEIMAGE_GETCOLORSUSED' (aka 'unsigned int (*)(struct FIBITMAP *)')
      to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  525 |          ( FREEIMAGE_GETCOLORSUSED ) s_getFunction( ( FARPROC )
      |                                                     ^~~~~~~~~~~
  526 |          pGetColorsUsed, "_FreeImage_GetColorsUsed@4" );
      |          ~~~~~~~~~~~~~~
source/winapi/freeimg.c:528:48: warning: cast from 'FREEIMAGE_GETWIDTH' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  528 |          ( FREEIMAGE_GETWIDTH ) s_getFunction( ( FARPROC ) pGetwidth,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:531:49: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  531 |          ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:534:46: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  534 |          ( FREEIMAGE_GETBPP ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:537:48: warning: cast from 'FREEIMAGE_GETPITCH' (aka 'unsigned int (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  537 |          ( FREEIMAGE_GETPITCH ) s_getFunction( ( FARPROC ) pGetPitch,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:540:53: warning: cast from 'FREEIMAGE_GETINFOHEADER' (aka 'struct tagBITMAPINFOHEADER
      *(*)(struct FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  540 |          ( FREEIMAGE_GETINFOHEADER ) s_getFunction( ( FARPROC ) pGetinfoHead,
      |                                                     ^~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:543:47: warning: cast from 'FREEIMAGE_GETINFO' (aka 'struct tagBITMAPINFO *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  543 |          ( FREEIMAGE_GETINFO ) s_getFunction( ( FARPROC ) pGetinfo,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:546:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  546 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:549:50: warning: cast from 'FREEIMAGE_GETPALETTE' (aka 'struct tagRGBQUAD *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  549 |          ( FREEIMAGE_GETPALETTE ) s_getFunction( ( FARPROC ) pGetPalette,
      |                                                  ^~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:552:52: warning: cast from 'FREEIMAGE_GETIMAGETYPE' (aka 'short (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
pGetImageType,   ( FREEIMAGE_GETIMAGETYPE ) s_getFunction( ( FARPROC ) [1/1] Linking
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:598:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HANDLE' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
  598 |    hb_retnl( ( LONG ) hMem );
      |              ^~~~~~~~~~~~~
source/winapi/freeimg.c:603:20: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  603 |    FIBITMAP *dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:633:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  633 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:636:47: warning: cast from 'FREEIMAGE_GETINFO' (aka 'struct tagBITMAPINFO *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  636 |          ( FREEIMAGE_GETINFO ) s_getFunction( ( FARPROC ) pGetinfo,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:658:51: warning: cast from 'FREEIMAGE_ALLOCATE' (aka 'struct FIBITMAP *(*)(int, int, int,
      unsigned int, unsigned int, unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function
      type [-Wcast-function-type-mismatch]
  658 |             ( FREEIMAGE_ALLOCATE ) s_getFunction( ( FARPROC ) pAllocate,
      |                                                   ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:661:50: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  661 |             ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                                  ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:664:50: warning: cast from 'FREEIMAGE_GETINFO' (aka 'struct tagBITMAPINFO *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  664 |             ( FREEIMAGE_GETINFO ) s_getFunction( ( FARPROC ) pGetinfo,
      |                                                  ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:667:52: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  667 |             ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:679:20: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  679 |          hb_retnl( ( LONG ) dib );
      |                    ^~~~~~~~~~~~
source/winapi/freeimg.c:729:18: warning: cast to 'HANDLE' (aka 'void *') from smaller integer type 'long'
      [-Wint-to-void-pointer-cast]
  729 |    HANDLE hdib = ( HANDLE ) hb_parnl( 1 );
      |                  ^~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:738:61: warning: cast from 'FREEIMAGE_CONVERTFROMRAWBITS' (aka 'struct FIBITMAP *(*)(unsigned
      char *, int, int, int, unsigned int, unsigned int, unsigned int, unsigned int, int)') to 'FARPROC'
      (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  738 |             ( FREEIMAGE_CONVERTFROMRAWBITS ) s_getFunction( ( FARPROC )
      |                                                             ^~~~~~~~~~~
  739 |             pConvertFromRawBits, "_FreeImage_ConvertFromRawBits@36" );
      |             ~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:741:53: warning: cast from 'FREEIMAGE_GETPALETTE' (aka 'struct tagRGBQUAD *(*)(struct FIBITMAP
      *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  741 |             ( FREEIMAGE_GETPALETTE ) s_getFunction( ( FARPROC ) pGetPalette,
      |                                                     ^~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:744:49: warning: cast from 'FREEIMAGE_GETBPP' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  744 |             ( FREEIMAGE_GETBPP ) s_getFunction( ( FARPROC ) pGetBPP,
      |                                                 ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:779:20: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  779 |          hb_retnl( ( LONG ) dib );
      |                    ^~~~~~~~~~~~
source/winapi/freeimg.c:794:47: warning: cast from 'FREEIMAGE_RESCALE' (aka 'struct FIBITMAP *(*)(struct FIBITMAP *,
      int, int, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  794 |          ( FREEIMAGE_RESCALE ) s_getFunction( ( FARPROC ) pRescale,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:797:48: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  797 |    hb_retnl( ( pRescale ) ? ( LONG ) pRescale( ( FIBITMAP * ) hb_parnl( 1 ),
      |                                                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:797:29: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  797 |    hb_retnl( ( pRescale ) ? ( LONG ) pRescale( ( FIBITMAP * ) hb_parnl( 1 ),
      |                             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  798 |                hb_parnl( 2 ), hb_parnl( 3 ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  799 |                ( FREE_IMAGE_FILTER ) hb_parni( 4 ) ) : 0 );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:805:20: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  805 |    FIBITMAP *dib = ( FIBITMAP * ) hb_parnl( 1 );
      |                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:809:48: warning: cast from 'FREEIMAGE_ALLOCATE' (aka 'struct FIBITMAP *(*)(int, int, int,
      unsigned int, unsigned int, unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function
      type [-Wcast-function-type-mismatch]
  809 |          ( FREEIMAGE_ALLOCATE ) s_getFunction( ( FARPROC ) pAllocate,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:812:48: warning: cast from 'FREEIMAGE_GETWIDTH' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  812 |          ( FREEIMAGE_GETWIDTH ) s_getFunction( ( FARPROC ) pGetwidth,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:815:49: warning: cast from 'FREEIMAGE_GETHEIGHT' (aka 'unsigned long (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  815 |          ( FREEIMAGE_GETHEIGHT ) s_getFunction( ( FARPROC ) pGetheight,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:818:50: warning: cast from 'FREEIMAGE_SETCHANNEL' (aka 'int (*)(struct FIBITMAP *, struct
      FIBITMAP *, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  818 |          ( FREEIMAGE_SETCHANNEL ) s_getFunction( ( FARPROC ) pSetChannel,
      |                                                  ^~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:821:46: warning: cast from 'FREEIMAGE_UNLOAD' (aka 'void (*)(struct FIBITMAP *)') to 'FARPROC'
      (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
  821 |          ( FREEIMAGE_UNLOAD ) s_getFunction( ( FARPROC ) pUnload,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:883:13: warning: cast to smaller integer type 'long' from 'fi_handle' (aka 'void *')
[-Wvoid-pointer-to-int-cast]
  883 |    return ( ( long int ) g_load_address - ( long int ) handle );
      |             ^~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:883:43: warning: cast to smaller integer type 'long' from 'fi_handle' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
  883 |    return ( ( long int ) g_load_address - ( long int ) handle );
      |                                           ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:889:54: warning: cast from 'FREEIMAGE_LOADFROMHANDLE' (aka 'struct FIBITMAP *(*)(int, struct
      FreeImageIO *, void *, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  889 |          ( FREEIMAGE_LOADFROMHANDLE ) s_getFunction( ( FARPROC )
      |                                                      ^~~~~~~~~~~
  890 |          pLoadFromHandle, "_FreeImage_LoadFromHandle@16" );
      |          ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:922:17: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  922 |       hb_retnl( ( LONG ) pLoadFromHandle( fif, &io, ( fi_handle ) image,
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  923 |                   ( hb_pcount(  ) > 2 ) ? hb_parni( 3 ) : 0 ) );
      |                   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:932:53: warning: cast from 'FREEIMAGE_ROTATECLASSIC' (aka 'struct FIBITMAP *(*)(struct FIBITMAP
      *, double)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  932 |          ( FREEIMAGE_ROTATECLASSIC ) s_getFunction( ( FARPROC )
      |                                                     ^~~~~~~~~~~
  933 |          pRotateClassic, "_FreeImage_RotateClassic@12" );
      |          ~~~~~~~~~~~~~~
source/winapi/freeimg.c:935:60: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  935 |    hb_retnl( ( pRotateClassic ) ? ( LONG ) pRotateClassic( ( FIBITMAP * )
      |                                                            ^~~~~~~~~~~~~~
  936 |                hb_parnl( 1 ), hb_parnd( 2 ) ) : 0 );
      |                ~~~~~~~~~~~~~
source/winapi/freeimg.c:935:35: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  935 |    hb_retnl( ( pRotateClassic ) ? ( LONG ) pRotateClassic( ( FIBITMAP * )
      |                                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  936 |                hb_parnl( 1 ), hb_parnd( 2 ) ) : 0 );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:942:56: warning: cast from 'FREEIMAGE_GETDOTSPERMETERX' (aka
      'unsigned int (*)(struct FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  942 |          ( FREEIMAGE_GETDOTSPERMETERX ) s_getFunction( ( FARPROC )
      |                                                        ^~~~~~~~~~~
  943 |          pGetDotsPerMeterX, "_FreeImage_GetDotsPerMeterX@4" );
      |          ~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:945:57: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  945 |    hb_retnl( ( pGetDotsPerMeterX ) ? pGetDotsPerMeterX( ( FIBITMAP * )
      |                                                         ^~~~~~~~~~~~~~
  946 |                hb_parnl( 1 ) ) : 0 );
      |                ~~~~~~~~~~~~~
source/winapi/freeimg.c:952:56: warning: cast from 'FREEIMAGE_GETDOTSPERMETERY' (aka
      'unsigned int (*)(struct FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  952 |          ( FREEIMAGE_GETDOTSPERMETERY ) s_getFunction( ( FARPROC )
      |                                                        ^~~~~~~~~~~
  953 |          pGetDotsPerMeterY, "_FreeImage_GetDotsPerMeterY@4" );
      |          ~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:955:57: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  955 |    hb_retnl( ( pGetDotsPerMeterY ) ? pGetDotsPerMeterY( ( FIBITMAP * )
      |                                                         ^~~~~~~~~~~~~~
  956 |                hb_parnl( 1 ) ) : 0 );
      |                ~~~~~~~~~~~~~
source/winapi/freeimg.c:962:56: warning: cast from 'FREEIMAGE_SETDOTSPERMETERX' (aka 'void (*)(struct FIBITMAP *,
      unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  962 |          ( FREEIMAGE_SETDOTSPERMETERX ) s_getFunction( ( FARPROC )
      |                                                        ^~~~~~~~~~~
  963 |          pSetDotsPerMeterX, "_FreeImage_SetDotsPerMeterX@8" );
      |          ~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:966:26: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  966 |       pSetDotsPerMeterX( ( FIBITMAP * ) hb_parnl( 1 ), hb_parnl( 2 ) );
      |                          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:974:56: warning: cast from 'FREEIMAGE_SETDOTSPERMETERY' (aka 'void (*)(struct FIBITMAP *,
      unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
  974 |          ( FREEIMAGE_SETDOTSPERMETERY ) s_getFunction( ( FARPROC )
      |                                                        ^~~~~~~~~~~
  975 |          pSetDotsPerMeterY, "_FreeImage_SetDotsPerMeterY@8" );
      |          ~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:978:26: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  978 |       pSetDotsPerMeterY( ( FIBITMAP * ) hb_parnl( 1 ), hb_parnl( 2 ) );
      |                          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:988:48: warning: cast from 'FREEIMAGE_ALLOCATE' (aka 'struct FIBITMAP *(*)(int, int, int,
      unsigned int, unsigned int, unsigned int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function
      type [-Wcast-function-type-mismatch]
  988 |          ( FREEIMAGE_ALLOCATE ) s_getFunction( ( FARPROC ) pAllocate,
      |                                                ^~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:992:14: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
  992 |    hb_retnl( ( ULONG ) pAllocate( hb_parnl( 1 ), hb_parnl( 2 ), hb_parnl( 3 ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  993 |                0, 0, 0 ) );
      |                ~~~~~~~~~
source/winapi/freeimg.c:1001:45: warning: cast from 'FREEIMAGE_PASTE' (aka 'int (*)(struct FIBITMAP *, struct FIBITMAP
      *, int, int, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1001 |          ( FREEIMAGE_PASTE ) s_getFunction( ( FARPROC ) pPaste,
      |                                             ^~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1004:21: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1004 |    hb_retl( pPaste( ( FIBITMAP * ) hb_parnl( 1 ),       // dest
      |                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1005:16: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
'long' [-Wint-to-pointer-cast]
 1005 |                ( FIBITMAP * ) hb_parnl( 2 ),    // src
      |                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1014:44: warning: cast from 'FREEIMAGE_COPY' (aka 'struct FIBITMAP *(*)(struct FIBITMAP *, int,
      int, int, int)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1014 |          ( FREEIMAGE_COPY ) s_getFunction( ( FARPROC ) pCopy,
      |                                            ^~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1017:31: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1017 |    hb_retnl( ( ULONG ) pCopy( ( FIBITMAP * ) hb_parnl( 1 ),     // dib
      |                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1017:14: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
 1017 |    hb_retnl( ( ULONG ) pCopy( ( FIBITMAP * ) hb_parnl( 1 ),     // dib
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1018 |                hb_parnl( 2 ),   // left
      |                ~~~~~~~~~~~~~~~~~~~~~~~~
 1019 |                hb_parnl( 3 ),   // top
      |                ~~~~~~~~~~~~~~~~~~~~~~~
 1020 |                hb_parnl( 4 ),   // right
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~
 1021 |                hb_parnl( 5 ) ) );       // bottom
      |                ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1030:58: warning: cast from 'FREEIMAGE_SETBACKGROUNDCOLOR' (aka 'int (*)(struct FIBITMAP *,
      struct tagRGBQUAD *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1030 |          ( FREEIMAGE_SETBACKGROUNDCOLOR ) s_getFunction( ( FARPROC )
      |                                                          ^~~~~~~~~~~
 1031 |          pSetBackgroundColor, "_FreeImage_SetBackgroundColor@8" );
      |          ~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1033:34: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1033 |    hb_retl( pSetBackgroundColor( ( FIBITMAP * ) hb_parnl( 1 ), &rgbquad ) );
      |                                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1039:46: warning: cast from 'FREEIMAGE_INVERT' (aka 'int (*)(struct FIBITMAP *)') to 'FARPROC'
      (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
 1039 |          ( FREEIMAGE_INVERT ) s_getFunction( ( FARPROC ) pInvert,
      |                                              ^~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1042:22: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1042 |    hb_retl( pInvert( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |                      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1048:47: warning: cast from 'FREEIMAGE_GETBITS' (aka 'unsigned char *(*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
 1048 |          ( FREEIMAGE_GETBITS ) s_getFunction( ( FARPROC ) pGetbits,
      |                                               ^~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1051:25: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1051 |    hb_retptr( pGetbits( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |                         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1057:54: warning: cast from 'FREEIMAGE_CONVERTTO8BITS' (aka 'struct FIBITMAP *(*)(struct
      FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1057 |          ( FREEIMAGE_CONVERTTO8BITS ) s_getFunction( ( FARPROC )
      |                                                      ^~~~~~~~~~~
 1058 |          pConvertTo8Bits, "_FreeImage_ConvertTo8Bits@4" );
      |          ~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1060:40: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1060 |    hb_retnl( ( LONG ) pConvertTo8Bits( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |                                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1060:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
 1060 |    hb_retnl( ( LONG ) pConvertTo8Bits( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1066:58: warning: cast from 'FREEIMAGE_CONVERTTOGREYSCALE' (aka 'struct FIBITMAP *(*)(struct
      FIBITMAP *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1066 |          ( FREEIMAGE_CONVERTTOGREYSCALE ) s_getFunction( ( FARPROC )
      |                                                          ^~~~~~~~~~~
 1067 |          pConvertToGreyscale, "_FreeImage_ConvertToGreyscale@4" );
      |          ~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1069:44: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1069 |    hb_retnl( ( LONG ) pConvertToGreyscale( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |                                            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1069:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
 1069 |    hb_retnl( ( LONG ) pConvertToGreyscale( ( FIBITMAP * ) hb_parnl( 1 ) ) );
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1075:49: warning: cast from 'FREEIMAGE_THRESHOLD' (aka 'struct FIBITMAP *(*)(struct FIBITMAP *,
      unsigned char)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1075 |          ( FREEIMAGE_THRESHOLD ) s_getFunction( ( FARPROC ) pThreshold,
      |                                                 ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1078:35: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1078 |    hb_retnl( ( LONG ) pThreshold( ( FIBITMAP * ) hb_parnl( 1 ),
      |                                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1078:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'FIBITMAP *'
      (aka 'struct FIBITMAP *') [-Wpointer-to-int-cast]
 1078 |    hb_retnl( ( LONG ) pThreshold( ( FIBITMAP * ) hb_parnl( 1 ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 1079 |                ( BYTE ) hb_parnl( 2 ) ) );
      |                ~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1085:52: warning: cast from 'FREEIMAGE_FLIPVERTICAL' (aka 'int (*)(struct FIBITMAP *)') to
      'FARPROC' (aka 'long long (*)()') converts to incompatible function type [-Wcast-function-type-mismatch]
 1085 |          ( FREEIMAGE_FLIPVERTICAL ) s_getFunction( ( FARPROC ) pFlipVertical,
      |                                                    ^~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1088:28: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 hb_parnl( 1 ) ) ); pFlipVertical( ( FIBITMAP * )[1/1] Linking
      |                            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1096:53: warning: cast from 'FREEIMAGE_GETPIXELINDEX' (aka 'int (*)(struct FIBITMAP *, unsigned
      int, unsigned int, unsigned char *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1096 |          ( FREEIMAGE_GETPIXELINDEX ) s_getFunction( ( FARPROC )
      |                                                     ^~~~~~~~~~~
 1097 |          pGetPixelIndex, "_FreeImage_GetPixelIndex@16" );
      |          ~~~~~~~~~~~~~~
source/winapi/freeimg.c:1099:27: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1099 |    lRes = pGetPixelIndex( ( FIBITMAP * ) hb_parnl( 1 ), hb_parni( 2 ),
      |                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/freeimg.c:1112:53: warning: cast from 'FREEIMAGE_SETPIXELINDEX' (aka 'int (*)(struct FIBITMAP *, unsigned
      int, unsigned int, unsigned char *)') to 'FARPROC' (aka 'long long (*)()') converts to incompatible function type
      [-Wcast-function-type-mismatch]
 1112 |          ( FREEIMAGE_SETPIXELINDEX ) s_getFunction( ( FARPROC )
      |                                                     ^~~~~~~~~~~
 1113 |          pSetPixelIndex, "_FreeImage_SetPixelIndex@16" );
      |          ~~~~~~~~~~~~~~
source/winapi/freeimg.c:1115:29: warning: cast to 'FIBITMAP *' (aka 'struct FIBITMAP *') from smaller integer type
      'long' [-Wint-to-pointer-cast]
 1115 |    hb_retl( pSetPixelIndex( ( FIBITMAP * ) hb_parnl( 1 ), hb_parni( 2 ),
      |                             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
111 warnings generated.
source/winapi/misc.c:73:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HWND'
      (aka 'struct HWND__ *') [-Wpointer-to-int-cast]
   73 |    hb_retnl( ( LONG ) SetCapture( ( HWND ) HB_PARHANDLE( 1 ) ) );
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/misc.c:117:16: warning: cast to 'HWND' (aka 'struct HWND__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  117 |    HWND hWnd = ( HWND ) hb_parnl( 1 );
      |                ^~~~~~~~~~~~~~~~~~~~~~
source/winapi/misc.c:507:18: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HANDLE' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
  507 |    HB_RETHANDLE( ( LONG ) ( ( ( HELPINFO FAR * ) HB_PARHANDLE( 1 ) )->hItemHandle ) );
      |    ~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:61: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                             ^
source/winapi/misc.c:507:4: warning: cast to 'void *' from smaller integer type 'LONG' (aka 'long')
      [-Wint-to-void-pointer-cast]
  507 |    HB_RETHANDLE( ( LONG ) ( ( ( HELPINFO FAR * ) HB_PARHANDLE( 1 ) )->hItemHandle ) );
      |    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:48: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                ^~~~~~~~~~~~~~~~
source/winapi/misc.c:789:17: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HGDIOBJ' (aka 'void *')
      [-Wvoid-pointer-to-int-cast]
  789 |       hb_retnl( ( LONG ) GetStockObject( HOLLOW_BRUSH ) );
      |                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
5 warnings generated.
source/winapi/nice.c:172:56: warning: cast to 'HRGN' (aka 'struct HRGN__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  172 |    hb_retni( SetWindowRgn( ( HWND ) HB_PARHANDLE( 1 ), ( HRGN ) hb_parnl( 2 ),
      |                                                        ^~~~~~~~~~~~~~~~~~~~~~
1 warning generated.
source/winapi/registry.c:11:9: warning: '_WIN32_WINNT' macro redefined [-Wmacro-redefined]
   11 | #define _WIN32_WINNT 0x0400
      |         ^
<command line>:3:9: note: previous definition is here
    3 | #define _WIN32_WINNT 0x0a00
      |         ^
source/winapi/registry.c:32:24: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   32 |    if( RegCreateKeyEx( (HKEY) hb_parnl(1), hb_parc(2), 0, NULL, 0, KEY_ALL_ACCESS,
      |                        ^~~~~~~~~~~~~~~~~~
source/winapi/registry.c:35:17: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'HKEY'
      (aka 'struct HKEY__ *') [-Wpointer-to-int-cast]
   35 |       hb_retnl( (ULONG) hkResult );
      |                 ^~~~~~~~~~~~~~~~
source/winapi/registry.c:49:22: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   49 |    if( RegOpenKeyEx( (HKEY)hb_parnl(1), hb_parc(2), 0, KEY_ALL_ACCESS,
      |                      ^~~~~~~~~~~~~~~~~
source/winapi/registry.c:52:17: warning: cast to smaller integer type 'ULONG' (aka 'unsigned long') from 'HKEY'
      (aka 'struct HKEY__ *') [-Wpointer-to-int-cast]
   52 |       hb_retnl( (ULONG) hkResult );
      |                 ^~~~~~~~~~~~~~~~
source/winapi/registry.c:64:21: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   64 |    if( RegCloseKey( (HKEY) hb_parnl(1) ) == ERROR_SUCCESS )
      |                     ^~~~~~~~~~~~~~~~~~
source/winapi/registry.c:80:23: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   80 |    if( RegSetValueEx( (HKEY)hb_parnl(1), hb_parc(2), 0, REG_SZ,
      |                       ^~~~~~~~~~~~~~~~~
source/winapi/registry.c:89:23: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   89 |    if( RegSetValueEx( (HKEY)hb_parnl(1), hb_parc(2), 0, REG_BINARY,
      |                       ^~~~~~~~~~~~~~~~~
source/winapi/registry.c:98:16: warning: cast to 'HKEY' (aka 'struct HKEY__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
   98 |    HKEY hKey = (HKEY)hb_parnl(1);
      |                ^~~~~~~~~~~~~~~~~
9 warnings generated.
source/winapi/resource.c:28:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HMODULE'
      (aka 'struct HINSTANCE__ *') [-Wpointer-to-int-cast]
   28 |    hb_retnl( ( LONG ) hModule );
      |              ^~~~~~~~~~~~~~~~
1 warning generated.
source/winapi/richedit.c:520:18: warning: cast to smaller integer type 'DWORD' (aka 'unsigned long') from 'HANDLE'
      (aka 'void *') [-Wvoid-pointer-to-int-cast]
  520 |    es.dwCookie = ( DWORD ) hFile;
      |                  ^~~~~~~~~~~~~~~
1 warning generated.
source/winapi/shellapi.c:158:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HINSTANCE'
      (aka 'struct HINSTANCE__ *') [-Wpointer-to-int-cast]
  158 |    hb_retnl( ( LONG ) ShellExecute( GetActiveWindow(  ),
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  159 |                HB_PARSTRDEF( 2, &hOperation, NULL ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  160 |                HB_PARSTR( 1, &hFile, NULL ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  161 |                HB_PARSTR( 3, &hParameters, NULL ),
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SHOWNORMAL ) );        lpDirectory, HB_ISNUM( 5 ) ? hb_parni( 5 ) : SW_[1/1] Linking
      |                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 warning generated.
source/winapi/window.c:122:13: warning: cast to 'HBRUSH' (aka 'struct HBRUSH__ *') from smaller integer type 'long'
      [-Wint-to-pointer-cast]
  122 |             ( HBRUSH ) hb_parnl( 6 ) ) ) : ( HBRUSH ) ( COLOR_WINDOW + 1 );
      |             ^~~~~~~~~~~~~~~~~~~~~~~~
source/winapi/window.c:701:14: warning: cast to smaller integer type 'LONG' (aka 'long') from 'HMODULE'
      (aka 'struct HINSTANCE__ *') [-Wpointer-to-int-cast]
  701 |    hb_retnl( ( LONG ) GetModuleHandle( NULL ) );
      |              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2 warnings generated.
source/winapi/wprint.c:448:4: warning: cast to 'void *' from smaller integer type 'LONG' (aka 'long')
      [-Wint-to-void-pointer-cast]
  448 |    HB_RETHANDLE( ( LONG ) DeleteEnhMetaFile( ( HENHMETAFILE )
      |    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  449 |                HB_PARHANDLE( 1 ) ) );
      |                ~~~~~~~~~~~~~~~~~~~~~
include/guilib.h:19:48: note: expanded from macro 'HB_RETHANDLE'
   19 |    #define HB_RETHANDLE( h )        hb_retptr( ( void * ) ( h ) )
      |                                                ^~~~~~~~~~~~~~~~
source/winapi/wprint.c:645:28: warning: cast to smaller integer type 'BOOL' (aka 'int') from 'HDC'
      (aka 'struct HDC__ *') [-Wpointer-to-int-cast]
  645 |                   Result = ( BOOL ) ResetDC( hDC, pDevMode );
      |                            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2 warnings generated.

C:\dev\hwgui>hbmk2 procmisc.hbp
hbmk2: Processando opções do ambiente: -LC:\msys64\clang64\lib -comp=zig
       -cpu=x86_64
Harbour 3.2.0dev (r2510231945)
Copyright (c) 1999-2025, https://harbour.github.io/
source/common/editor/hcedit_w.c:58:9: warning: '_WIN32_WINNT' macro redefined [-Wmacro-redefined]
   58 | #define _WIN32_WINNT 0x400
      |         ^
<command line>:3:9: note: previous definition is here
    3 | #define _WIN32_WINNT 0x0a00
      |         ^
1 warning generated.

C:\dev\hwgui>hbmk2 hbxml.hbp
hbmk2: Processando opções do ambiente: -LC:\msys64\clang64\lib -comp=zig
       -cpu=x86_64
Harbour 3.2.0dev (r2510231945)
Copyright (c) 1999-2025, https://harbour.github.io/

C:\dev\hwgui>hbmk2 hwgdebug.hbp
hbmk2: Processando opções do ambiente: -LC:\msys64\clang64\lib -comp=zig
       -cpu=x86_64
Harbour 3.2.0dev (r2510231945)
Copyright (c) 1999-2025, https://harbour.github.io/

C:\dev\hwgui>cd contrib\ext_controls

C:\dev\hwgui\contrib\ext_controls>copy \dev\hbrowsex.prg /y
        1 arquivo(s) copiado(s).

C:\dev\hwgui\contrib\ext_controls>cd ..

C:\dev\hwgui\contrib>hbmk2 hwg_extctrl.hbp
hbmk2: Processando opções do ambiente: -LC:\msys64\clang64\lib -comp=zig
       -cpu=x86_64
hbmk2: Harbour: Compilando módulos...
ext_controls\hbrowsex.prg(3400) Warning W0032  Variable 'NSKIP' is assigned but not used in function 'HBROWSEEX_WHEN(3393)'

No code generated.
hbmk2[hwg_extctrl]: Error: Running Harbour compiler (built-in). 1
(C:\hbzig\bin\harbour.exe) -n1 ext_controls\hbrowsex.prg ext_controls\hcomboex.prg ext_controls\hctrlex.prg ext_controls\hgridex.prg ext_controls\hrectex.prg -n -q0 -w3 -es2 -o..\lib\.hbmk\win\zig\ -iC:\hbzig\include -i..\include

Best regards,
Itamar M. Lins Jr.

Discussion

  • Itamar M. Lins Jr.

    Hi!
    Disregard this post.
    Something went wrong here.

    Perhaps a cross-compilation. Now it's okay.

    Best regards,
    Itamar M. Lins Jr.

     
  • Wilfried Brunken

    Hello Itamar,
    you wrote "Disregard this post."
    May i close this ticket ?
    (Please confirm)

    MNI TNX, 73 es 55 de
    Wilfried, DF7BE

     

Log in to post a comment.