To Antonio: premature EXECUTION error
Posted: Thu Feb 02, 2017 4:40 pm
Antonio:
The link process goes ok, it builds the program, but when I called the program, it shows the following error. Can you take a look at it ? Thank you !
ERROR MESSAGE:
Beginning of code:
Link script:
The link process goes ok, it builds the program, but when I called the program, it shows the following error. Can you take a look at it ? Thank you !
ERROR MESSAGE:
Code: Select all
===========
Path and name: C:\Apps\REPMENU\repmenu.exe (32 bits)
Size: 3,870,208 bytes
Compiler version: Harbour 3.2.0dev (r1601050904)
FiveWin Version: FWH 16.06
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 02/02/17, 12:50:55
Error description: Error BASE/3104 Argument error: SWITCH
Args:
[ 1] = U
Stack Calls
===========
Called from: REPMENU.prg => MAIN( 0 )Code: Select all
#define DRIVER "DBFCDX"
PROCEDURE Main
LOCAL nScrWidth, nScrHeight
LOCAL nI, nIndex, dDate, cDataPath, nDays
LOCAL GetList := {}, lOpenDbfs, cPath
LOCAL oWindow, oMenu, oIcon, oBitMap, oBru
rddRegister( DRIVER, 1 )
rddsetdefault( DRIVER )
ThreadSleep( 100 )
Code: Select all
#Borland make sample, (c) FiveTech Software 2005-2014
HBDIR=c:\harbourb
HDIRL=$(HBDIR)\lib
BCDIR=c:\bcc7
FWDIR=c:\fwh
FWH=$(FWDIR)
#change these paths as needed
.path.OBJ = .\obj
.path.PRG = .\
.path.CH = $(FWDIR)\include;$(HBDIR)\include
.path.C = .\
.path.rc = .\
#important: Use Uppercase for filenames extensions, in the next two rules!
PRG = \
REPMENU.PRG \
NETWORK.PRG \
SCATGATH.PRG \
INTERF.PRG
PROJECT : REPMENU.EXE
REPMENU.EXE : $(PRG:.PRG=.OBJ)
echo on
echo $(BCDIR)\lib\c0w32.obj + > b32.bc
echo $(PRG:.PRG=.OBJ), + >> b32.bc
echo repmenu.exe, + >> b32.bc
echo repmenu.map, + >> b32.bc
echo $(FWDIR)\lib\FiveH.lib + >> b32.bc
echo $(FWDIR)\lib\FiveHC.lib + >> b32.bc
echo $(HDIRL)\hbwin.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 $(HDIRL)\hbcpage.lib + >> b32.bc
echo $(HDIRL)\hbcplr.lib + >> b32.bc
echo $(HBDIR)\lib\hbct.lib + >> b32.bc
echo $(HDIRL)\hbpcre.lib + >> b32.bc
echo $(HDIRL)\xhb.lib + >> b32.bc
echo $(HBDIR)\lib\hbziparc.lib + >> b32.bc
echo $(HDIRL)\hbmzip.lib + >> b32.bc
echo $(HBDIR)\lib\hbzlib.lib + >> b32.bc
echo $(HDIRL)\minizip.lib + >> b32.bc
echo $(HDIRL)\png.lib + >> b32.bc
echo $(HDIRL)\hbusrrdd.lib + >> b32.bc
echo $(HDIRL)\hbtip.lib + >> b32.bc
echo %mylib%\Sentinel_xhb.lib + >> b32.bc
echo %mylib%\sx32w.lib + >> b32.bc
rem Uncomment these two lines to use Advantage RDD
rem echo $(HDIRL)\rddads.lib + >> b32.bc
rem echo $(HDIRL)\Ace32.lib + >> b32.bc
rem echo $(FWH)\lib\dolphin.lib + >> b32.bc
rem echo $(FWH)\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 repmenu.res echo repmenu.res >> b32.bc
$(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s -jOBJ\ @b32.bc
del b32.bc
.PRG.OBJ:
$(HBDIR)\bin\harbour $< /N /W /ES2 /DDEBUG /B /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include >> compiler.txt
@type compiler.txt
$(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 >> tmp
$(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c
del tmp