Change this lines as:
classes.h
typedef struct hb_class_method
{
PHB_DYNS pMessage; /* Method Symbolic name */
PHB_FUNC pFunction; /* Function 'pointer' */
USHORT uiData; /* Item position for data (Harbour like,
begin from 1) */
USHORT uiDataShared; /* Item position for datashared (original pos
within Shared Class) */
USHORT uiSprClass; /* Originalclass'handel (super or current
class'handel if not herited). */ /*Added by RAC&JF*/
USHORT uiScope; /* Scoping value */
PHB_ITEM pInitValue; /* Init Value for data */
PHB_SYMB pMsgIs;
PHB_SYMB pMsgTo;
BYTE bClsDataInitiated; /* There is one value assigned at init time */
BOOL bIsPersistent; /* persistence support */
USHORT uiType; /* Type value */
PSYMBOLS pModuleSymbols; /* Container of the symbol table where the
method was defined */
#ifndef HB_NO_PROFILER
ULONG ulCalls; /* profiler support */
ULONG ulTime; /* profiler support */
ULONG ulRecurse; /* profiler support */
#endif
} METHOD, * PMETHOD;
hbvmpub.h
/* dynamic symbol structure */
typedef struct _HB_DYNS
{
HB_HANDLE hArea; /* Workarea number */
HB_HANDLE hMemvar; /* Index number into memvars ( publics &
privates ) array */
PHB_SYMB pSymbol; /* pointer to its relative local symbol */
PSYMBOLS pModuleSymbols;
#ifndef HB_NO_PROFILER
ULONG ulCalls; /* profiler support */
ULONG ulTime; /* profiler support */
ULONG ulRecurse; /* profiler support */
#endif
} HB_DYNS, * PHB_DYNS, * HB_DYNS_PTR;
FULL RECOMPILE xHarbour
and try compile speedtst with:
@ECHO OFF
CLS
if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST
ECHO Compiling...
set hdir=C:\CVS-Developers\xharbour
set bcdir=c:\utl\bcc58\bin
%hdir%\bin\harbour %1 /w2 /es2 /n /i;%hdir%\include %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT
echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
%bcdir%\bcc32 -M -c @b32.bc
:ENDCOMPILE
echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtwin.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\sixcdx.lib + >> b32.bc
echo %hdir%\lib\RDDleto.lib + >> b32.bc
echo %hdir%\lib\bmdbfcdx.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\usrrdd.lib + >> b32.bc
echo %hdir%\lib\rdds.lib + >> b32.bc
echo %hdir%\lib\pcrepos.lib + >> b32.bc
echo %hdir%\lib\zlib.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib, >> b32.bc
ECHO *
ECHO Linking...
%bcdir%\ilink32 -Gn -Tpe -s -x @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
@del clip.log
@del %1.c
@del %1.obj
@del %1.tds
@del b32.bc
%1 %2
GOTO EXIT
ECHO
:LINKERROR
rem PAUSE * Linking errors *
GOTO EXIT
:SINTAX
ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG
ECHO {-- Don't specify .PRG extension
GOTO EXIT
:NOEXIST
ECHO The specified PRG %1 does not exist
:EXIT
Enrico Maria Giordano escribió:
> Unfortunately latest xHarbour from CVS is somewhat very slow if compared
> with Rev. 6231.
>
> Any ideas on the possible reason?
>
> EMG
>
> --
> EMAG Software Homepage: http://www.emagsoftware.it
> The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
> The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
> The EMG Music page: http://www.emagsoftware.it/emgmusic
>
>
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
> Build the coolest Linux based applications with Moblin SDK & win great prizes
> Grand prize is a trip for two to an Open Source event anywhere in the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> xHarbour-developers mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de firmas
> de virus 3644 (20081126) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
> http://www.eset.com
>
>
>
>
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
