FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour (SOLVE) different harbour 3.2 r150129225 with r1506171039
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 06:18 PM
(SOLVE) different harbour 3.2 r150129225 with r1506171039
Posted: Sun Aug 16, 2015 05:18 PM
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 (fw): Select all Collapse
#include 'fivewin.ch'

static adata :={1,2,3}

function main()
聽 聽 聽msginfo(adata[1])
return nil


Regards,

Kok
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 03:36 AM

Kok,

What error do you get ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 06:18 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 05:10 AM

Dear Antonio,

With r150129225 the result is 1,

With r1506171039 , variabel does not exit.

Regards,

Kok

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 08:14 AM
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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 06:18 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 08:23 AM

Dear cnavarro,

not compile error but runtime error,

regards,

Kok

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 08:30 AM
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.
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 08:42 AM

That version of FWH and Borland is using?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 06:18 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 08:43 AM
Dear cnavarro,,

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

this my rmk file.

Code (fw): Select all Collapse
#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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 08:52 AM

Use the buildh.bat the samples folder of your FWH
That result has?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 06:18 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 09:01 AM

Dear cnavorra,

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

It's strange.

regards,

Kok

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 09:08 AM
Before testing your make, be sure to clean the folder


.path.OBJ = .\obj
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 06:18 PM
Re: different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 09:15 AM

Dear cnavorra,
Thank you,
yes I always to clear obj before start compile.

Regards,

Kok

kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 06:18 PM
Re:(SOLVE) different harbour 3.2 r150129225 with r150617103
Posted: Mon Aug 17, 2015 10:13 AM
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
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: (SOLVE) different harbour 3.2 r150129225 with r1506171039
Posted: Mon Aug 17, 2015 11:01 AM

Great

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions