FiveTech Support Forums

richard-service wrote: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

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

EMG

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

EMG

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

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 wrote:I just found that the following FWH modules do include hbcompat.ch:

Code (fw): Select all Collapse

database.prg
valtostr.prg

EMG

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

EMG

Enrico Maria Giordano wrote:

Enrico Maria Giordano wrote: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

Enrico Maria Giordano wrote:I just found that the following FWH modules do include hbcompat.ch:

Code (fw): Select all Collapse

database.prg
valtostr.prg

EMG

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

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

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