C problem, harbour compile 32 bit

[richard-service]

Hi
I try to convert xHarbour to Harbour. when I recompile some C file that appear error.
How to compatible Harbour?

Code: Select all  Expand view

cText = hb_parc( 6, n ) ; =>Line 229
cText = hb_parc( 3, n ) ; =>Line 513
nX    = hb_parnl(5, n ) ;  =>Line 514
cText = hb_parc( 3, n ) ; =>Line 553
nX    = hb_parnl(5, n ) ; =>Line 554
nX = hb_parnl( 5, 1 ) ; =>Line 591
 

Harbour 3.2.0dev (r1603082110)
...
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
Obj\TextTool.C:
Warning W8075 Obj\TextTool.C 13: Suspicious pointer conversion in function HB_FUN_KWTEXT
Warning W8075 Obj\TextTool.C 38: Suspicious pointer conversion in function HB_FUN_DRTEXT
Warning W8075 Obj\TextTool.C 64: Suspicious pointer conversion in function HB_FUN_DR3DTEXT
Error E2227 Obj\TextTool.C 229: Extra parameter in call to hb_parc in function HB_FUN_DR3DMULTI
Warning W8075 Obj\TextTool.C 229: Suspicious pointer conversion in function HB_FUN_DR3DMULTI
Warning W8075 Obj\TextTool.C 351: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 355: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 375: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 376: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 377: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 378: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 380: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 381: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 383: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 385: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 387: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 393: Suspicious pointer conversion in function GradeText
Warning W8075 Obj\TextTool.C 429: Suspicious pointer conversion in function HB_FUN_DRGRDTXT
Error E2227 Obj\TextTool.C 513: Extra parameter in call to hb_parc in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 513: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Error E2227 Obj\TextTool.C 514: Extra parameter in call to hb_parnl in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 530: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 534: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Error E2227 Obj\TextTool.C 553: Extra parameter in call to hb_parc in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 553: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Error E2227 Obj\TextTool.C 554: Extra parameter in call to hb_parnl in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 569: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 570: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 571: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 572: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 574: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 575: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 577: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 579: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 581: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Warning W8075 Obj\TextTool.C 585: Suspicious pointer conversion in function HB_FUN_MULGRDTXT
Error E2227 Obj\TextTool.C 591: Extra parameter in call to hb_parnl in function HB_FUN_MULGRDTXT

[Antonio Linares]

cText = ( char * ) hb_parc( 6, n )

[richard-service]

Hi
I use these code work fine for xHarbour , but not work Harbour.
It's appear error message Error E0030 Syntax error "syntax error at 'L'"

Code: Select all  Expand view

#define MF_BYPOSITION 0x0400L
#define MF_BYCOMMAND  0x0000L
#define MF_GRAYED     0x0001L
#define SC_CLOSE      0xF060L

FUNCTION NoCloseButton( oWnd )

   // puedes usar cualquiera de estas 2 opciones
   EnableMenuItem( GetSystemMenu( oWnd:hWnd, .F. ), SC_CLOSE, nOr( MF_BYCOMMAND, MF_GRAYED ) ) //=> This Line ERROR
   //ModifyMenu( GetSystemMenu( oWnd:hWnd, .F. ), SC_CLOSE, nOr( MF_BYCOMMAND, MF_GRAYED), -10, "Close")
   DrawMenuBar( oWnd:hWnd ) // actualiza el menu

RETURN Nil
 

[cnavarro]

Yes, Try with

Code: Select all  Expand view

#define MF_BYPOSITION 0x0400
#define MF_BYCOMMAND  0x0000
#define MF_GRAYED     0x0001
#define SC_CLOSE      0xF060
 

[richard-service]

Yes, Try with

Code: Select all  Expand view

#define MF_BYPOSITION 0x0400
#define MF_BYCOMMAND  0x0000
#define MF_GRAYED     0x0001
#define SC_CLOSE      0xF060
 

Thanks a lot. working fine.