kok joek hoa
Posts: 117 Joined: Tue Jan 03, 2006 6:18 pm
Post
by kok joek hoa » Sun Aug 16, 2015 5: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: 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.
kok joek hoa
Posts: 117 Joined: Tue Jan 03, 2006 6:18 pm
Post
by kok joek hoa » Mon Aug 17, 2015 5:10 am
Dear Antonio,
With r150129225 the result is 1,
With r1506171039 , variabel does not exit.
Regards,
Kok
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Post
by cnavarro » Mon Aug 17, 2015 8: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
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
Post
by kok joek hoa » Mon Aug 17, 2015 8:23 am
Dear cnavarro,
not compile error but runtime error,
regards,
Kok
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Post
by cnavarro » Mon Aug 17, 2015 8: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.
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.
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Post
by cnavarro » Mon Aug 17, 2015 8:42 am
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
Post
by kok joek hoa » Mon Aug 17, 2015 8:43 am
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
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Post
by cnavarro » Mon Aug 17, 2015 8:52 am
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
Post
by kok joek hoa » Mon Aug 17, 2015 9:01 am
Dear cnavorra,
yes, if we use the buildh.bat from samples, everything run ok.
It's strange.
regards,
Kok
cnavarro
Posts: 5792 Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Post
by cnavarro » Mon Aug 17, 2015 9:08 am
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
Post
by kok joek hoa » Mon Aug 17, 2015 9: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 6:18 pm
Post
by kok joek hoa » 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: 5792 Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Post
by cnavarro » Mon Aug 17, 2015 11:01 am
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.