fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-02-10 01:39 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* doc/whatsnew.txt
  * include/clipdefs.h
  * include/filesys.api
  * include/gt.api
  * include/hbapi.h
  * include/hbapierr.h
  * include/hbapifs.h
  * include/hbapigt.h
  * include/hbapiitm.h
  * include/hbapirdd.h
  * include/hbdefs.h
  * include/hbgfxdef.ch
  * include/hbgtinfo.ch
  * include/hbsetup.ch
  * include/hbsetup.h
  * include/item.api
  * include/rdd.api
  * source/rtl/errorapi.c
  * source/rtl/filesys.c
  * source/vm/cmdarg.c
  * common.mak
  - source/vm/debugold.c
  * source/vm/Makefile
  * source/vm/vmmt/Makefile
    - Permanently disabled HB_LEGACY_LEVEL support.
    + Added HB_LEGACY_LEVEL2 support to protect some
      recently made incompatible changes. Old methods
      are supported until Harbour 1.2. Please update
      your code until then. To test your code for
      compatibility with recent changes, you can turn
      off legacy support manually by #defining HB_LEGACY_OFF.
      (HB_USER_CFLAGS=-DHB_LEGACY_OFF)
      This is recommended on local systems for all
      Harbour developers.
This commit is contained in:
Viktor Szakats
2009-02-10 00:47:50 +00:00
parent d6c2e99434
commit 897a02e44a
25 changed files with 81 additions and 368 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
harbour/ChangeLog
View File

@@ -8,6 +8,42 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-02-10 01:39 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* doc/whatsnew.txt
* include/clipdefs.h
* include/filesys.api
* include/gt.api
* include/hbapi.h
* include/hbapierr.h
* include/hbapifs.h
* include/hbapigt.h
* include/hbapiitm.h
* include/hbapirdd.h
* include/hbdefs.h
* include/hbgfxdef.ch
* include/hbgtinfo.ch
* include/hbsetup.ch
* include/hbsetup.h
* include/item.api
* include/rdd.api
* source/rtl/errorapi.c
* source/rtl/filesys.c
* source/vm/cmdarg.c
* common.mak
- source/vm/debugold.c
* source/vm/Makefile
* source/vm/vmmt/Makefile
- Permanently disabled HB_LEGACY_LEVEL support.
+ Added HB_LEGACY_LEVEL2 support to protect some
recently made incompatible changes. Old methods
are supported until Harbour 1.2. Please update
your code until then. To test your code for
compatibility with recent changes, you can turn
off legacy support manually by #defining HB_LEGACY_OFF.
(HB_USER_CFLAGS=-DHB_LEGACY_OFF)
This is recommended on local systems for all
Harbour developers.
2009-02-10 01:38 UTC+0100 Francesco Saverio Giudice (info/at/fsgiudice.com)
* harbour/contrib/examples/uhttpd/uhttpd.prg
* Updated uHTTPD (Work in progress)

1
harbour/common.mak
View File

@@ -431,7 +431,6 @@ VM_COMMON_LIB_OBJS = \
$(OBJ_DIR)\cmdarg$(OBJEXT) \
$(OBJ_DIR)\codebloc$(OBJEXT) \
$(OBJ_DIR)\debug$(OBJEXT) \
$(OBJ_DIR)\debugold$(OBJEXT) \
$(OBJ_DIR)\dynlibhb$(OBJEXT) \
$(OBJ_DIR)\dynsym$(OBJEXT) \
$(OBJ_DIR)\estack$(OBJEXT) \

8
harbour/doc/whatsnew.txt
View File

@@ -35,6 +35,13 @@ General
- Added web-server written in Harbour: uHTTPD
- POCC WinCE builds are now supported.
- Open Watcom 1.8 (RC3) compiler is now supported.
- Removed HB_LEGACY_LEVEL support.
- Protected incompatible changes with HB_LEGACY_LEVEL2.
(HB_SUCCESS, HB_FAILURE, HB_ERRCODE, HB_WINCE, HB_OS_WIN_32*)
These features are still available, and will be removed
in next major version (Harbour 1.2). To test your code for
compatibility, you can turn it off manually by #defining
HB_LEGACY_OFF. (HB_USER_CFLAGS=-DHB_LEGACY_OFF)
Core
=============================
@@ -79,6 +86,7 @@ Core
HB_WILDMATCHI() like HB_WILDMATCH() but case-insentitive.
HB_CDPSELECT() same as HB_SETCODEPAGE() (please upgrade to new function name).
HB_CDPUNIID( <cHarbourCP> ) -> <cCPName>
HB_GTINFO( HB_GTI_CARGO[, <xValue ] ) -> <xPrevValue>
- Fixed UNSELECTED color updating in SetColor().
- GTWVT, GTWIN HB_GTI_CODEPAGE support.
- GTWVT now supports drawing chars even if the selected codepage

4
harbour/include/clipdefs.h
View File

@@ -122,6 +122,10 @@ typedef NEARP * NEARPP;
typedef HB_VMHANDLE HANDLE;
#endif
#ifndef HB_LEGACY_LEVEL2
#define ERRCODE HB_ERRCODE
#endif
typedef ERRCODE IHELP;
typedef ERRCODE ICODE;

2
harbour/include/filesys.api
View File

@@ -61,9 +61,7 @@
/* Compatible types */
#ifndef HB_LEGACY_LEVEL
#define FHANDLE HB_FHANDLE
#endif
typedef FHANDLE fhandle;
typedef FHANDLE * FHANDLEP;

2
harbour/include/gt.api
View File

@@ -58,9 +58,7 @@
#include "clipdefs.h"
#include "hbapigt.h"
#ifndef HB_LEGACY_LEVEL
#define CLR_STRLEN HB_CLRSTR_LEN
#endif
#define _gtBox hb_gtBox
#define _gtBoxD hb_gtBoxD

8
harbour/include/hbapi.h
View File

@@ -445,9 +445,11 @@ typedef USHORT HB_ERRCODE;
#define HB_FAILURE 1
/* Compatibility #defines. Don't use them with new code and in Harbour sources. */
#define ERRCODE HB_ERRCODE
#define SUCCESS HB_SUCCESS
#define FAILURE HB_FAILURE
#ifdef HB_LEGACY_LEVEL2
#define ERRCODE HB_ERRCODE
#define SUCCESS HB_SUCCESS
#define FAILURE HB_FAILURE
#endif
extern HB_SYMB hb_symEval;

6
harbour/include/hbapierr.h
View File

@@ -95,12 +95,6 @@ HB_EXTERN_BEGIN
#define HB_ERR_ARGS_BASEPARAMS 0xFFFFFFFF
#define HB_ERR_ARGS_SELFPARAMS 0xFFFFFFFE
#ifdef HB_LEGACY_LEVEL
/* pseudo function name in operation description
(deprecated, kept for compatibility, use HB_ERR_FUNCNAME instead) */
extern const char hb_errFuncName;
#endif
#define HB_ERR_FUNCNAME ( ( const char * ) ( HB_PTRDIFF ) 1 )
/* Standard API */

5
harbour/include/hbapifs.h
View File

@@ -336,11 +336,6 @@ HB_EXPORT HB_FHANDLE hb_fileHandle( PHB_FILE pFile );
/* wrapper to fopen() which calls hb_fsNameConv() */
extern FILE * hb_fopen( const char *path, const char *mode );
#ifdef HB_LEGACY_LEVEL
/* Compatibility. Obsolete. */
extern HB_EXPORT BYTE * hb_fileNameConv( char * str );
#endif
HB_EXTERN_END
#endif /* HB_APIFS_H_ */

4
harbour/include/hbapigt.h
View File

@@ -84,10 +84,6 @@ HB_EXTERN_BEGIN
/* maximum length of color string */
#define HB_CLRSTR_LEN 64
#ifdef HB_LEGACY_LEVEL
#define CLR_STRLEN HB_CLRSTR_LEN
#endif
/* attributes for color strings, these are the same as the ones in color.ch
but prefixed with HB_ to avoid collision. */
#define HB_CLR_STANDARD 0

6
harbour/include/hbapiitm.h
View File

@@ -65,12 +65,6 @@ typedef struct
PHB_ITEM pItems[ HB_EVAL_PARAM_MAX_ + 1 ];
} HB_EVALINFO, * PHB_EVALINFO;
#ifdef HB_LEGACY_LEVEL
#define EVALINFO HB_EVALINFO
#define PEVALINFO PHB_EVALINFO
#define EVALINFO_PTR PHB_EVALINFO
#endif
extern HB_EXPORT PHB_ITEM hb_evalLaunch ( PHB_EVALINFO pEvalInfo );
extern HB_EXPORT BOOL hb_evalNew ( PHB_EVALINFO pEvalInfo, PHB_ITEM pItem );
extern HB_EXPORT BOOL hb_evalPutParam ( PHB_EVALINFO pEvalInfo, PHB_ITEM pItem );

7
harbour/include/hbapirdd.h
View File

@@ -69,13 +69,6 @@ HB_EXTERN_BEGIN
/* #define HB_MAX_RDD_FIELDNAME_LEN 32 */
#define HB_RDD_MAX_AREA_NUM 65535
/* Compatibility #defines. These will be removed, so
please use the new names in your code. */
#ifdef HB_LEGACY_LEVEL
#define HARBOUR_MAX_RDD_DRIVERNAME_LENGTH HB_RDD_MAX_DRIVERNAME_LEN
#define HARBOUR_MAX_RDD_ALIAS_LENGTH HB_RDD_MAX_ALIAS_LEN
#endif
/* DBCMD errors */

10
harbour/include/hbdefs.h
View File

@@ -64,8 +64,10 @@
#include "hbver.h"
/* Compatibility. Do not use HB_OS_WIN_32_USED anymore. */
#if defined( HB_OS_WIN_32_USED ) && ! defined( HB_OS_WIN_USED )
#define HB_OS_WIN_USED
#ifdef HB_LEGACY_LEVEL2
#if defined( HB_OS_WIN_32_USED ) && ! defined( HB_OS_WIN_USED )
#define HB_OS_WIN_USED
#endif
#endif
#if defined( __XCC__ ) || defined( __POCC__ ) || defined( __LCC__ ) || \
@@ -575,10 +577,6 @@ typedef unsigned long HB_COUNTER;
# define hb_numToHandle( h ) ( ( int ) ( h ) )
#endif
#ifdef HB_LEGACY_LEVEL
#define FHANDLE HB_FHANDLE
#endif
/* maximum length of double number in decimal representation:
log10(2^1024) ~ 308.25 */
#define HB_MAX_DOUBLE_LENGTH 320

31
harbour/include/hbgfxdef.ch
View File

@@ -96,35 +96,4 @@
#define HB_GFX_MODE_ALPHA 3 /* Use alpha for transluced effect (SLOW) */
/* TODO: add patterned mode drawings */
/* Compatibility #defines.
These codes are deprecated, _don't use them_. Please upgrade to the above versions.
For developers: Don't add any more new codes to this section. */
#ifdef HB_LEGACY_LEVEL
#define GFX_ACQUIRESCREEN HB_GFX_ACQUIRESCREEN
#define GFX_RELEASESCREEN HB_GFX_RELEASESCREEN
#define GFX_MAKECOLOR HB_GFX_MAKECOLOR
#define GFX_CLIPTOP HB_GFX_CLIPTOP
#define GFX_CLIPLEFT HB_GFX_CLIPLEFT
#define GFX_CLIPBOTTOM HB_GFX_CLIPBOTTOM
#define GFX_CLIPRIGHT HB_GFX_CLIPRIGHT
#define GFX_SETCLIP HB_GFX_SETCLIP
#define GFX_DRAWINGMODE HB_GFX_DRAWINGMODE
#define GFX_GETPIXEL HB_GFX_GETPIXEL
#define GFX_PUTPIXEL HB_GFX_PUTPIXEL
#define GFX_LINE HB_GFX_LINE
#define GFX_RECT HB_GFX_RECT
#define GFX_FILLEDRECT HB_GFX_FILLEDRECT
#define GFX_CIRCLE HB_GFX_CIRCLE
#define GFX_FILLEDCIRCLE HB_GFX_FILLEDCIRCLE
#define GFX_ELLIPSE HB_GFX_ELLIPSE
#define GFX_FILLEDELLIPSE HB_GFX_FILLEDELLIPSE
#define GFX_FLOODFILL HB_GFX_FLOODFILL
#define GFX_MODE_SOLID HB_GFX_MODE_SOLID
#define GFX_MODE_XOR HB_GFX_MODE_XOR
#define GFX_MODE_ALPHA HB_GFX_MODE_ALPHA
#endif
#endif /* _HBGFXDEF_CH_ */

83
harbour/include/hbgtinfo.ch
View File

@@ -175,87 +175,4 @@
#define HB_GTI_RESIZEMODE_FONT 0 /* Default */
#define HB_GTI_RESIZEMODE_ROWS 1
/* Compatibility #defines.
These codes are deprecated, _don't use them_. Please upgrade to the above versions.
For developers: Don't add any more new codes to this section. */
#ifdef HB_LEGACY_LEVEL
#define GTI_ISGRAPHIC HB_GTI_ISGRAPHIC
#define GTI_SCREENWIDTH HB_GTI_SCREENWIDTH
#define GTI_SCREENHEIGHT HB_GTI_SCREENHEIGHT
#define GTI_SCREENDEPTH HB_GTI_SCREENDEPTH
#define GTI_FONTSIZE HB_GTI_FONTSIZE
#define GTI_FONTWIDTH HB_GTI_FONTWIDTH
#define GTI_DESKTOPWIDTH HB_GTI_DESKTOPWIDTH
#define GTI_DESKTOPHEIGHT HB_GTI_DESKTOPHEIGHT
#define GTI_DESKTOPDEPTH HB_GTI_DESKTOPDEPTH
#define GTI_COMPATBUFFER HB_GTI_COMPATBUFFER
#define GTI_KBDSHIFTS HB_GTI_KBDSHIFTS
#define GTI_KBDSPECIAL HB_GTI_KBDSPECIAL
#define GTI_KBDALT HB_GTI_KBDALT
#define GTI_FULLSCREEN HB_GTI_FULLSCREEN
#define GTI_KBDSUPPORT HB_GTI_KBDSUPPORT
#define GTI_CLIPBOARDDATA HB_GTI_CLIPBOARDDATA
#define GTI_CLIPBOARDPAST HB_GTI_CLIPBOARDPAST
#define GTI_CURSORBLINKRATE HB_GTI_CURSORBLINKRATE
#define GTI_DESKTOPROWS HB_GTI_DESKTOPROWS
#define GTI_DESKTOPCOLS HB_GTI_DESKTOPCOLS
#define GTI_FONTWEIGHT HB_GTI_FONTWEIGHT
#define GTI_FONTQUALITY HB_GTI_FONTQUALITY
#define GTI_FONTNAME HB_GTI_FONTNAME
#define GTI_CODEPAGE HB_GTI_CODEPAGE
#define GTI_WINTITLE HB_GTI_WINTITLE
#define GTI_ICONFILE HB_GTI_ICONFILE
#define GTI_ICONRES HB_GTI_ICONRES
#define GTI_MOUSESTATUS HB_GTI_MOUSESTATUS
#define GTI_INPUTFD HB_GTI_INPUTFD
#define GTI_OUTPUTFD HB_GTI_OUTPUTFD
#define GTI_ERRORFD HB_GTI_ERRORFD
#define GTI_ESCDELAY HB_GTI_ESCDELAY
#define GTI_VIEWMAXHEIGHT HB_GTI_VIEWMAXHEIGHT
#define GTI_VIEWMAXWIDTH HB_GTI_VIEWMAXWIDTH
#define GTI_VIEWPORTHEIGHT HB_GTI_VIEWPORTHEIGHT
#define GTI_VIEWPORTWIDTH HB_GTI_VIEWPORTWIDTH
#define GTI_STDOUTCON HB_GTI_STDOUTCON
#define GTI_STDERRCON HB_GTI_STDERRCON
#define GTI_ISCTWIN HB_GTI_ISCTWIN
#define GTI_ISMULTIWIN HB_GTI_ISMULTIWIN
#define GTI_GETWIN HB_GTI_GETWIN
#define GTI_SETWIN HB_GTI_SETWIN
#define GTI_NEWWIN HB_GTI_NEWWIN
#define GTI_ADDKEYMAP HB_GTI_ADDKEYMAP
#define GTI_DELKEYMAP HB_GTI_DELKEYMAP
#define GTI_ISUNICODE HB_GTI_ISUNICODE
/* Font weights */
#define GTI_FONTW_THIN HB_GTI_FONTW_THIN
#define GTI_FONTW_NORMAL HB_GTI_FONTW_NORMAL
#define GTI_FONTW_BOLD HB_GTI_FONTW_BOLD
/* Font sizes */
#define GTI_FONTQ_DRAFT HB_GTI_FONTQ_DRAFT
#define GTI_FONTQ_NORMAL HB_GTI_FONTQ_NORMAL
#define GTI_FONTQ_HIGH HB_GTI_FONTQ_HIGH
/* Keyboard shifts states */
#define GTI_KBD_SHIFT HB_GTI_KBD_SHIFT
#define GTI_KBD_CTRL HB_GTI_KBD_CTRL
#define GTI_KBD_ALT HB_GTI_KBD_ALT
#define GTI_KBD_LWIN HB_GTI_KBD_LWIN
#define GTI_KBD_RWIN HB_GTI_KBD_RWIN
#define GTI_KBD_MENU HB_GTI_KBD_MENU
#define GTI_KBD_INSERT HB_GTI_KBD_INSERT
#define GTI_KBD_SCROLOCK HB_GTI_KBD_SCROLOCK
#define GTI_KBD_NUMLOCK HB_GTI_KBD_NUMLOCK
#define GTI_KBD_CAPSLOCK HB_GTI_KBD_CAPSLOCK
#define GTI_KBD_INALTSEQ HB_GTI_KBD_INALTSEQ
#define GTI_KBD_ACCENT1 HB_GTI_KBD_ACCENT1
#define GTI_KBD_ACCENT2 HB_GTI_KBD_ACCENT2
#define GTI_KBD_ACCENT3 HB_GTI_KBD_ACCENT3
#define GTI_KBD_ACCENT4 HB_GTI_KBD_ACCENT4
#endif
#endif /* HB_GTINFO_CH_ */

14
harbour/include/hbsetup.ch
View File

@@ -50,7 +50,7 @@
*
*/
/* NOTE: This file is used by C code and at Harbour build time.
/* NOTE: This file is used by C code and at Harbour build time.
Normally you never need to #include it in any .prg code. */
#ifndef HB_SETUP_CH_
@@ -71,16 +71,16 @@
/* #define HB_COMPAT_CLIP */ /* Enable CLIP extensions */
/* ***********************************************************************
* Leave this #define if you want to allow usage of legacy Harbour 1.0.0/Clipper
* #defines/types/functions in your 3rd party C code. In later Harbour
* versions this macro will be first disabled by default, then completely
* removed, leaving the only default the strict Harbour namespace without
* legacy stuff.
* Leave this #define if you want to allow usage of legacy Harbour 1.0.0/Clipper
* #defines/types/functions in your 3rd party C code. In later Harbour
* versions this macro will be first disabled by default, then completely
* removed, leaving the only default the strict Harbour namespace without
* legacy stuff.
* You should modify your 3rd party code to compile without this macro ASAP.
* NOTE: C code using legacy Clipper (.api) headers is unaffected.
*/
#ifndef HB_LEGACY_OFF
/* #define HB_LEGACY_LEVEL 1 */
#define HB_LEGACY_LEVEL2 1
#endif
#endif /* HB_SETUP_CH_ */

17
harbour/include/hbsetup.h
View File

@@ -290,7 +290,9 @@
#if defined(WINNT) || defined(_Windows) || defined(__NT__) || defined(_WIN32) || defined(_WINDOWS_) || defined(__WINDOWS_386__) || defined(__WIN32__) || defined(__CYGWIN__)
#define HB_OS_WIN
/* Compatibility. Do not use this. */
#define HB_OS_WIN_32
#ifdef HB_LEGACY_LEVEL2
#define HB_OS_WIN_32
#endif
#endif
#endif
@@ -305,6 +307,10 @@
#ifndef HB_OS_WIN_CE
#if defined(_WINCE) || defined(__CEGCC__) || defined(__MINGW32CE__) || (defined(__POCC_TARGET__) && __POCC_TARGET__ == 2)
#define HB_OS_WIN_CE
/* Compatibility. Do not use this. */
#ifdef HB_LEGACY_LEVEL2
#define HB_WINCE
#endif
#endif
#endif
@@ -362,15 +368,6 @@
#define HB_OS_EOL_LEN 2
#endif
/* Compatibility #defines. These will be removed, so
please use the new names in your code. */
#ifdef HB_LEGACY_LEVEL
#define OS_PATH_DELIMITER HB_OS_PATH_DELIM_CHR
#ifdef HB_OS_UNIX_COMPATIBLE
#define OS_UNIX_COMPATIBLE
#endif
#endif
#if defined(HB_OS_WIN_CE) && defined(HB_MT_VM)
#undef HB_MT_VM
#endif

2
harbour/include/item.api
View File

@@ -57,10 +57,8 @@
#include "hbapiitm.h"
#ifndef HB_LEGACY_LEVEL
#define EVALINFO HB_EVALINFO
#define PEVALINFO PHB_EVALINFO
#endif
typedef PEVALINFO EVALINFOP;

5
harbour/include/rdd.api
View File

@@ -59,6 +59,11 @@
#include "hbapirdd.h"
#include "item.api"
#ifndef HB_LEGACY_LEVEL2
#define SUCCESS HB_SUCCESS
#define FAILURE HB_FAILURE
#endif
#define _rddInherit hb_rddInherit
#if 0
#define _rddDisinherit( x ) hb_rddDisinherit( ( const char * ) x )

5
harbour/source/rtl/errorapi.c
View File

@@ -111,11 +111,6 @@
HB_FUNC_EXTERN( ERRORNEW );
#ifdef HB_LEGACY_LEVEL
/* pseudo function name in operation description
(deprecated, kept for compatibility, use HB_ERR_FUNCNAME instead) */
const char hb_errFuncName = 1;
#endif
static PHB_ITEM s_pError = NULL;

19
harbour/source/rtl/filesys.c
View File

@@ -3213,25 +3213,6 @@ BYTE * hb_fsNameConv( BYTE * szFileName, BOOL * pfFree )
return szFileName;
}
#ifdef HB_LEGACY_LEVEL
BYTE * hb_fileNameConv( char * szFileName )
{
BOOL fFree;
BYTE * szNew;
szNew = hb_fsNameConv( ( BYTE * ) szFileName, &fFree );
if( fFree )
{
hb_strncpy( szFileName, ( char * ) szNew, strlen( szFileName ) );
hb_xfree( szNew );
}
return ( BYTE * ) szFileName;
}
#endif
/* NOTE: pbyBuffer must be _POSIX_PATH_MAX + 1 long. */
void hb_fsBaseDirBuff( BYTE * pbyBuffer )
{

1
harbour/source/vm/Makefile
View File

@@ -33,7 +33,6 @@ C_SOURCES=\
classes.c \
cmdarg.c \
debug.c \
debugold.c \
dynlibhb.c \
dynsym.c \
codebloc.c \

27
harbour/source/vm/cmdarg.c
View File

@@ -65,31 +65,14 @@ static int s_argc = 0;
static char ** s_argv = NULL;
#if defined( HB_OS_WIN )
static char s_szAppName[ MAX_PATH ];
static TCHAR s_lpAppName[ MAX_PATH ];
#endif
#if defined( HB_OS_WIN ) && defined( HB_OS_WIN_USED )
HB_EXTERN_BEGIN
#ifdef HB_LEGACY_LEVEL
/* NOTE: 1.0 compatibility stuff. Will be removed in 1.1 [vszakats]. */
#define s_hInstance hb_hInstance
#define s_hPrevInstance hb_hPrevInstance
HANDLE s_hInstance = 0;
HANDLE s_hPrevInstance = 0;
int s_iCmdShow = 0;
BOOL s_WinMainParam = FALSE;
#else
static HANDLE s_hInstance = 0;
static HANDLE s_hPrevInstance = 0;
static int s_iCmdShow = 0;
static BOOL s_WinMainParam = FALSE;
#endif
HB_EXTERN_END
static HANDLE s_hInstance = 0;
static HANDLE s_hPrevInstance = 0;
static int s_iCmdShow = 0;
static BOOL s_WinMainParam = FALSE;
void hb_winmainArgInit( HANDLE hInstance, HANDLE hPrevInstance, int iCmdShow )
{

145
harbour/source/vm/debugold.c
View File

@@ -1,145 +0,0 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* Debugging compatibility functions
*
* Copyright 1999 Eddie Runia <eddie@runia.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#include "hbapi.h"
#ifdef HB_LEGACY_LEVEL
HB_FUNC_EXTERN( __DBGVMSTKLCOUNT );
HB_FUNC( HB_DBG_VMSTKLCOUNT )
{
HB_FUNC_EXEC( __DBGVMSTKLCOUNT );
}
HB_FUNC_EXTERN( __DBGVMPARLLIST );
HB_FUNC( HB_DBG_VMPARLLIST )
{
HB_FUNC_EXEC( __DBGVMPARLLIST );
}
HB_FUNC_EXTERN( __DBGVMVARLGET );
HB_FUNC( HB_DBG_VMVARLGET )
{
HB_FUNC_EXEC( __DBGVMVARLGET );
}
HB_FUNC_EXTERN( __DBGVMVARSLEN );
HB_FUNC( HB_DBG_VMVARSLEN )
{
HB_FUNC_EXEC( __DBGVMVARSLEN );
}
#if 0
HB_FUNC_EXTERN( __DBGVMSTKLLIST );
HB_FUNC( HB_DBG_VMSTKLLIST )
{
HB_FUNC_EXEC( __DBGVMSTKLLIST );
}
HB_FUNC_EXTERN( __DBGVMVARLSET );
HB_FUNC( HB_DBG_VMVARLSET )
{
HB_FUNC_EXEC( __DBGVMVARLSET );
}
HB_FUNC_EXTERN( __DBGVMSTKGLIST );
HB_FUNC( HB_DBG_VMSTKGLIST )
{
HB_FUNC_EXEC( __DBGVMSTKGLIST );
}
HB_FUNC_EXTERN( __DBGVMSTKGCOUNT );
HB_FUNC( HB_DBG_VMSTKGCOUNT )
{
HB_FUNC_EXEC( __DBGVMSTKGCOUNT );
}
HB_FUNC_EXTERN( __DBGVMVARGLIST );
HB_FUNC( HB_DBG_VMVARGLIST )
{
HB_FUNC_EXEC( __DBGVMVARGLIST );
}
HB_FUNC_EXTERN( __DBGVMVARSLIST );
HB_FUNC( HB_DBG_VMVARSLIST )
{
HB_FUNC_EXEC( __DBGVMVARSLIST );
}
HB_FUNC_EXTERN( __DBGVMVARSGET );
HB_FUNC( HB_DBG_VMVARSGET )
{
HB_FUNC_EXEC( __DBGVMVARSGET );
}
HB_FUNC_EXTERN( __DBGVMVARSSET );
HB_FUNC( HB_DBG_VMVARSSET )
{
HB_FUNC_EXEC( __DBGVMVARSSET );
}
#endif
#endif

1
harbour/source/vm/vmmt/Makefile
View File

@@ -34,7 +34,6 @@ C_SOURCES=\
classes.c \
cmdarg.c \
debug.c \
debugold.c \
dynlibhb.c \
dynsym.c \
codebloc.c \