Page 1 of 1

(SOLVE) different harbour 3.2 r150129225 with r1506171039

Posted: Sun Aug 16, 2015 5:18 pm
by kok joek hoa
Dear Antonio,

using Harbour 3.2 r150129225 + bcc7 + fivewin 15.07 below sample run ok, but if we use harbour 3.2 r1506171039 , the program will error.

Code: Select all

#include 'fivewin.ch'

static adata :={1,2,3}

function main()
     msginfo(adata[1])
return nil
 
Regards,

Kok

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 3:36 am
by Antonio Linares
Kok,

What error do you get ?

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 5:10 am
by kok joek hoa
Dear Antonio,

With r150129225 the result is 1,

With r1506171039 , variabel does not exit.

Regards,

Kok

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 8:14 am
by cnavarro
kok joek hoa wrote:Dear Antonio,

With r150129225 the result is 1,

With r1506171039 , variabel does not exit.

Regards,

Kok
I tried your code
It works perfectly

Image

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 8:23 am
by kok joek hoa
Dear cnavarro,

not compile error but runtime error,

regards,

Kok

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 8:30 am
by cnavarro
kok joek hoa wrote:Dear cnavarro,

not compile error but runtime error,

regards,

Kok
Kok
The image appears in your program runs correctly

Maybe, if you are changing version of harbour, make sure your tools of compilation and linking are properly configured and are not mixing both versions.

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 8:42 am
by cnavarro
That version of FWH and Borland is using?

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 8:43 am
by kok joek hoa
Dear cnavarro,,

Thank you for your help, yes, I don't mix them,

this my rmk file.

Code: Select all

#Borland make sample, (c) FiveTech Software 2005


HBDIR=D:\HB1506
BCDIR=f:\bcc70
FWDIR=f:\com1507\fwh

PELL =D:\pellesc

#change these paths as needed
.path.PRG = .\
.path.OBJ = .\obj
.path.CH  = $(FWDIR)\include;$(HBDIR)\include
.path.C   = .\
.path.RC  = .\
.path.H   = $(BCDIR)\include 

#important: Use Uppercase for filenames extensions, in the next two rules!

PRG =           \
test.PRG        \


C =             \


PROJECT    : test.exe

test.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) 
   echo off
   echo $(BCDIR)\bin\c0w32.obj + > b32.bc
   echo     obj\test.obj              \
              ,+ >> b32.bc
    echo test.exe, + >> b32.bc
    echo test.map, + >> b32.bc
    echo $(FWDIR)\lib\FiveH.lib $(FWDIR)\lib\FiveHC.lib $(FWDIR)\lib\libmysql.lib $(FWDIR)\lib\libmysqld.lib $(FWDIR)\lib\dolphin.lib + >> b32.bc
    echo $(FWDIR)\lib\barlib32.lib   + >>b32.bc
    echo $(HBDIR)\LIB\hbwin.lib + >> b32.bc
    echo $(HBDIR)\LIB\gtwin.lib + >> b32.bc
    echo $(HBDIR)\LIB\gtgui.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbrtl.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbvm.lib + >> b32.bc
    echo $(HBDIR)\LIB\hblang.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbmacro.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbrdd.lib + >> b32.bc
    echo $(HBDIR)\LIB\rddntx.lib + >> b32.bc
    echo $(HBDIR)\LIB\rddcdx.lib + >> b32.bc
    echo $(HBDIR)\LIB\rddfpt.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbsix.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbdebug.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbcommon.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbpp.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbcpage.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbcplr.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbct.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbpcre.lib + >> b32.bc
    echo $(HBDIR)\LIB\xhb.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbziparc.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbmzip.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbzlib.lib + >> b32.bc
    echo $(HBDIR)\LIB\minizip.lib + >> b32.bc
    echo $(HBDIR)\LIB\png.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbcurl.lib + >> b32.bc
    echo $(HBDIR)\LIB\hbusrrdd.lib + >> b32.bc
    echo $(FWDIR)\lib\libcurl.lib + >> b32.bc

    rem Uncomment these two lines to use Advantage RDD
    echo $(HBDIR)\LIB\rddads.lib + >> b32.bc
    echo $(HBDIR)\LIB\Ace32.lib + >> b32.bc

    rem echo $(FWDIR)\lib\dolphin.lib + >> b32.bc
    rem echo $(FWDIR)\lib\libmysql.lib + >> b32.bc
 
    echo $(BCDIR)\lib\cw32.lib + >> b32.bc
    echo $(BCDIR)\lib\uuid.lib + >> b32.bc
    echo $(BCDIR)\lib\import32.lib + >> b32.bc
    echo $(BCDIR)\lib\ws2_32.lib + >> b32.bc
    echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
    echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
    echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
    echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc
    echo $(BCDIR)\lib\psdk\psapi.lib + >> b32.bc
    echo $(BCDIR)\lib\psdk\rasapi32.lib + >> b32.bc
    echo $(BCDIR)\lib\psdk\gdiplus.lib + >> b32.bc
    echo $(BCDIR)\lib\psdk\shell32.lib, >> b32.bc
   
   
   IF EXIST test.res echo test.res >> b32.bc
   $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
   
   

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< /N/Oobj\ /I$(FWDIR)\include;$(HBDIR)\include 
  $(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oobj\$& obj\$&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
  echo -I$(HBDIR)\include;$(FWDIR)\include;$(BCDIR)\include >> tmp
  $(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c
  del tmp


test.res : test.rc
#  $(BCDIR)\bin\brc32.exe -r test.rc
  $(PELL)\bin\PORC.exe  test.rc /I $(PELL)\include /I $(PELL)\include\win

 
regards,

Kok

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 8:52 am
by cnavarro
Use the buildh.bat the samples folder of your FWH
That result has?

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 9:01 am
by kok joek hoa
Dear cnavorra,

yes, if we use the buildh.bat from samples, everything run ok.

It's strange.

regards,

Kok

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 9:08 am
by cnavarro
Before testing your make, be sure to clean the folder
.path.OBJ = .\obj

Re: different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 9:15 am
by kok joek hoa
Dear cnavorra,
Thank you,
yes I always to clear obj before start compile.

Regards,

Kok

Re:(SOLVE) different harbour 3.2 r150129225 with r150617103

Posted: Mon Aug 17, 2015 10:13 am
by kok joek hoa
Solve,

Just change this line :

$(HBDIR)\bin\harbour $< /N /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include

to

$(HBDIR)\bin\harbour $< /n /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include

Regards,

Kok

Re: (SOLVE) different harbour 3.2 r150129225 with r1506171039

Posted: Mon Aug 17, 2015 11:01 am
by cnavarro
Great