last xharbour compile error

[richard-service]

Hi
I use new xharbour compile xbrowse.prg(1312/1512...) and get error message Error E0047 Code block contains both macro and declared symbol references

xHarbour 1.2.3 Intl. (SimpLex) (Build 20161001)
Copyright 1999-2015, http://www.xharbour.org http://www.harbour-project.org/
Compiling '.\SOURCE32\Fwh_LIB\xBrowse-1312-wang.prg'...
1 error
.\SOURCE32\Fwh_LIB\xBrowse-1312-wang.prg(5266) Error E0047 Code block contains both macro and declared symbol references

anyone suggestion?
Thanks a lot.

[Enrico Maria Giordano]

Can I see a simple and compilable PRG showing the error, please? I can't reproduce it here

EMG

[richard-service]

Can I see a simple and compilable PRG showing the error, please? I can't reproduce it here

EMG

this is code from xbrowse.prg

Code: Select all  Expand view

nNum = AScan( oBrw:aCols, {| o | !Empty( o:cOrder ) } ) =>5266
oTree       := SummaryDataAsTree( ::bSkip, { |nRow| nRow > ::nLen }, aBlocks, ::bBookMark ) =>5387
bOnSkip     := { || Eval( bBookMark, ::oTreeItem:cargo ) } =>5388
DEFAULT bOnSkip   := { || nil } =>5394
......more
 

if I use old xharbour-20160423 bcc70 no problem.

[Enrico Maria Giordano]

This compiles just fine here:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oBrw := NIL

    LOCAL aBlocks := {}

    LOCAL oDummy, bBookMark

    LOCAL nNum    := AScan( oBrw:aCols, {| o | !Empty( o:cOrder ) } )
    LOCAL oTree   := SummaryDataAsTree( oDummy:bSkip, { |nRow| nRow > oDummy:nLen }, aBlocks, oDummy:bBookMark )
    LOCAL bOnSkip := { || Eval( bBookMark, oDummy:oTreeItem:cargo ) }

    DEFAULT bOnSkip   := { || nil }

    ? nNum, oTree, bOnSkip

    RETURN NIL

EMG

[richard-service]

This compiles just fine here:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oBrw := NIL

    LOCAL aBlocks := {}

    LOCAL oDummy, bBookMark

    LOCAL nNum    := AScan( oBrw:aCols, {| o | !Empty( o:cOrder ) } )
    LOCAL oTree   := SummaryDataAsTree( oDummy:bSkip, { |nRow| nRow > oDummy:nLen }, aBlocks, oDummy:bBookMark )
    LOCAL bOnSkip := { || Eval( bBookMark, oDummy:oTreeItem:cargo ) }

    DEFAULT bOnSkip   := { || nil }

    ? nNum, oTree, bOnSkip

    RETURN NIL

EMG

ok, I remove all and setup again. Thank you.

[richard-service]

Hi EMG
I use last xharbour xhb10162_bcc70, when I buildx fwh\sample

Compiling...
xHarbour 1.2.3 Intl. (SimpLex) (Build 20161004)
Copyright 1999-2016, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'maria01.prg' and generating preprocessed output to 'maria01.ppo'...
Generating C source output to 'maria01.c'...
Done.
Lines 53, Functions/Procedures 2, pCodes 215
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
maria01.c:
Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.
* Application successfully built *

I got this run error

Module: '.\source\classes\ACTIVEX.PRG' was compiled into PCODE
version: 0, this version of xHarbour expects versio: 10

[Enrico Maria Giordano]

It looks like a problem with the compiled FWH modules. I tried to recompile them and the problem went away.

EMG

[richard-service]

It looks like a problem with the compiled FWH modules. I tried to recompile them and the problem went away.

EMG

OK. Thank you.
I just to go back xharbour xhb10159 for bcc70/bcc72, compile and run EXE work fine.

[Enrico Maria Giordano]

Can you try with the previous FWH release?

EMG

[richard-service]

Can you try with the previous FWH release?

EMG

I will test it, Please wait....
I try to make TMySQL.prg to LIB, I find fwh and xharbour include folder hbcompat.ch need to add this

Code: Select all  Expand view

Line 127 #xtranslate hb_SToD( [<x>] )                => SToD( <x> )
...
Line 405 #xtranslate SToD( [<x>] )                   => hb_SToD( <x> )
 

[Enrico Maria Giordano]

So, should I add those two xtranslate commands?

EMG

[richard-service]

So, should I add those two xtranslate commands?

EMG

Yes, Thanks a lot.

[Enrico Maria Giordano]

Ok, I'll do it. Antonio, you shold remove hbcompat.ch from FWH because it's already in xHarbour.

EMG

[Enrico Maria Giordano]

Done:

Code: Select all  Expand view

2016-10-08 19:05 UTC+0200 Enrico Maria Giordano <e.m.giordano@emagsoftware.it>
  * include/hbcompat.ch
    + added translation rules for hb_SToD() and SToD()

EMG

[richard-service]

Done:

Code: Select all  Expand view

2016-10-08 19:05 UTC+0200 Enrico Maria Giordano <e.m.giordano@emagsoftware.it>
  * include/hbcompat.ch
    + added translation rules for hb_SToD() and SToD()

EMG

I modify hbcompat.ch and add #include "hbcompat.ch" in TMySQL.prg work fine. New version not add #include "hbcompat.ch"