(SOLVE) different harbour 3.2 r150129225 with r1506171039

Post Reply
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 6:18 pm

(SOLVE) different harbour 3.2 r150129225 with r1506171039

Post 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
Last edited by kok joek hoa on Mon Aug 17, 2015 10:18 am, edited 1 time in total.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: different harbour 3.2 r150129225 with r1506171039

Post by Antonio Linares »

Kok,

What error do you get ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 6:18 pm

Re: different harbour 3.2 r150129225 with r1506171039

Post by kok joek hoa »

Dear Antonio,

With r150129225 the result is 1,

With r1506171039 , variabel does not exit.

Regards,

Kok
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: different harbour 3.2 r150129225 with r1506171039

Post 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
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 6:18 pm

Re: different harbour 3.2 r150129225 with r1506171039

Post by kok joek hoa »

Dear cnavarro,

not compile error but runtime error,

regards,

Kok
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: different harbour 3.2 r150129225 with r1506171039

Post 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.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: different harbour 3.2 r150129225 with r1506171039

Post by cnavarro »

That version of FWH and Borland is using?
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 6:18 pm

Re: different harbour 3.2 r150129225 with r1506171039

Post 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
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: different harbour 3.2 r150129225 with r1506171039

Post by cnavarro »

Use the buildh.bat the samples folder of your FWH
That result has?
Last edited by cnavarro on Mon Aug 17, 2015 9:52 am, edited 2 times in total.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 6:18 pm

Re: different harbour 3.2 r150129225 with r1506171039

Post by kok joek hoa »

Dear cnavorra,

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

It's strange.

regards,

Kok
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: different harbour 3.2 r150129225 with r1506171039

Post by cnavarro »

Before testing your make, be sure to clean the folder
.path.OBJ = .\obj
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
kok joek hoa
Posts: 117
Joined: Tue Jan 03, 2006 6:18 pm

Re: different harbour 3.2 r150129225 with r1506171039

Post by kok joek hoa »

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 6:18 pm

Re:(SOLVE) different harbour 3.2 r150129225 with r150617103

Post 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
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: (SOLVE) different harbour 3.2 r150129225 with r1506171039

Post by cnavarro »

Great
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Post Reply