FiveTech Support Forums

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

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

EMG

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

EMG

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

Enrico Maria Giordano wrote:This compiles just fine here:

Code (fw): Select all Collapse

#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

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 *

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

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

EMG

Enrico Maria Giordano wrote:It looks like a problem with the compiled FWH modules. I tried to recompile them and the problem went away.

EMG

Can you try with the previous FWH release?

EMG

Enrico Maria Giordano wrote:Can you try with the previous FWH release?

EMG

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

So, should I add those two xtranslate commands?

EMG

Enrico Maria Giordano wrote:So, should I add those two xtranslate commands?

EMG

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

EMG

Enrico Maria Giordano wrote:Done:

Code (fw): Select all Collapse

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