last xharbour compile error

[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

I use fwh1512 and my friend fwh16xx same as PCODE problem when xhb10162_bcc70/bcc72

[Enrico Maria Giordano]

As I already said, FWH has to be recompiled using latest xHarbour. Otherwise you are forced to stick with the old xHarbour version.

EMG

[richard-service]

As I already said, FWH has to be recompiled using latest xHarbour. Otherwise you are forced to stick with the old xHarbour version.

EMG

I see.

[nageswaragunupudi]

FWH does not include hbcompat.ch in any of its modules.
This is for information.

[Enrico Maria Giordano]

Ok, but it is in the include directory. It has to be removed. And what is worst, it's a very old version.

EMG

[Enrico Maria Giordano]

I just found that the following FWH modules do include hbcompat.ch:

Code: Select all  Expand view

database.prg
valtostr.prg

EMG

[richard-service]

I just found that the following FWH modules do include hbcompat.ch:

Code: Select all  Expand view

database.prg
valtostr.prg

EMG

I test xharbour->\xhb10162_con\xharbour\contrib\MySQL folder, TMySQL.prg not include hbcompat.ch
so when make EXE, appear Error message .... 'HB_STOD' , ' HB_SYMBOL_UNUSED'
add hpcompat.ch include and fix hpcompat.ch HB_SToD , no problem.

[Enrico Maria Giordano]

As I already said, FWH has to be recompiled using latest xHarbour. Otherwise you are forced to stick with the old xHarbour version.

EMG

Hold on! It could be a bug. I'm waiting for a response from Luiz...

EMG

[richard-service]

As I already said, FWH has to be recompiled using latest xHarbour. Otherwise you are forced to stick with the old xHarbour version.

EMG

Hold on! It could be a bug. I'm waiting for a response from Luiz...

EMG

OK.....

[richard-service]

I just found that the following FWH modules do include hbcompat.ch:

Code: Select all  Expand view

database.prg
valtostr.prg

EMG

Myabe FWH include hbcompat.ch need to add two codes.

[richard-service]

Dear EMG,

I found these from TMySQL.prg

Code: Select all  Expand view

SWITCH aField[MYSQL_FS_TYPE]
               case MYSQL_TYPE_STRING    
               case MYSQL_TYPE_VAR_STRING
.....
otherwise
                    aRow[i] := ""
            endswitch  
 

I try to add hbcompat.ch file( from FWH or xharbour ) and search it command

Code: Select all  Expand view

/* SWITCH ... ; case ... ; DEFAULT ; ... ; END */
   #xcommand DEFAULT => OTHERWISE
...
/* Some statement endings */
   #xcommand ENDSEQUENCE => END
   #xcommand ENDSWITCH => END
   #xcommand END SWITCH => END
   #xcommand ENDWITH => END
 

I compile it and still got error message

source\tmysq.prg(945) Error E0030 Syntax error: "syntax error at 'OTHERWISE'"
source\tmysql.prg(949) Error E0010 ENDIF does not match IF

If I "SWITCH" change to "DO CASE ...Otherwise ENDCASE" work fine.
anyone good idea?

[Enrico Maria Giordano]

You can't use switch with otherwise. This compiles fine here:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL aField := {}

    LOCAL i := 1

    LOCAL aRow

    SWITCH aField[1]
        case 2
        case 3
        default
            aRow[i] := ""
    endswitch

    RETURN NIL

EMG

[Enrico Maria Giordano]

No more PCODE problem after this changelog:

Code: Select all  Expand view

2016-10-10 22:05 UTC-0300 Luiz Rafael Culik <luiz@xharbour.com.br>

EMG