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

ChangeLog 19990824-14:55

Browse Source
This commit is contained in:
Ryszard Glab
1999-08-24 13:18:29 +00:00
parent 333b3cc1e6
commit 8e1c3d0404
4 changed files with 34 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -1,3 +1,14 @@
19990824-14:55 GMT+2 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.y
* corrected arguments type checking in Inc/Dec functions
*source/hbppint.h
* memory.h is not defined in WATCOM C/C++
*include/rddapi.h
* added forward declaration for _AREA struct
19990824-11:07 GMT+1 Bruno Cantero <bruno@issnet.net>
* funclist.txt
include/rddapi.h

8
harbour/include/rddapi.h
View File

@@ -115,6 +115,12 @@ typedef USHORT ERRCODE;
#define APPEND_LOCK 7
#define APPEND_UNLOCK 8
/* forward declarations
*/
struct _RDDFUNCS;
struct _AREA;
typedef struct _FILEINFO
{
FHANDLE hFile;
@@ -480,7 +486,7 @@ typedef FIELD * LPFIELD;
*
* Information to administrate the workarea
*/
struct _RDDFUNCS; /* forward declaration */
typedef struct _AREA
{

23
harbour/source/compiler/harbour.y
View File

@@ -3625,11 +3625,13 @@ void Inc( void )
else
debug_msg( "\n* *Inc() Compile time stack overflow\n", NULL );
if( pStackValType && pStackValType->cType == ' ' )
GenWarning( _szCWarnings, 'W', WARN_NUMERIC_SUSPECT, NULL, NULL );
else if( pStackValType->cType != 'N' )
GenWarning( _szCWarnings, 'W', WARN_NUMERIC_TYPE, sType, NULL );
if( pStackValType )
{
if( pStackValType->cType == ' ' )
GenWarning( _szCWarnings, 'W', WARN_NUMERIC_SUSPECT, NULL, NULL );
else if( pStackValType->cType != 'N' )
GenWarning( _szCWarnings, 'W', WARN_NUMERIC_TYPE, sType, NULL );
}
}
}
@@ -4372,10 +4374,13 @@ void Dec( void )
else
debug_msg( "\n***Dec() Compile time stack overflow\n", NULL );
if( pStackValType && pStackValType->cType == ' ' )
GenWarning( _szCWarnings, 'W', WARN_NUMERIC_SUSPECT, NULL, NULL );
else if( pStackValType->cType != 'N' )
GenWarning( _szCWarnings, 'W', WARN_NUMERIC_TYPE, sType, NULL );
if( pStackValType )
{
if( pStackValType->cType == ' ' )
GenWarning( _szCWarnings, 'W', WARN_NUMERIC_SUSPECT, NULL, NULL );
else if( pStackValType->cType != 'N' )
GenWarning( _szCWarnings, 'W', WARN_NUMERIC_TYPE, sType, NULL );
}
}
}

4
harbour/source/hbpp/hbppint.c
View File

@@ -32,11 +32,11 @@
their web site at http://www.gnu.org/).
*/
#if defined(__GNUC__)
#if defined(__GNUC__) || defined(__WATCOMC__)
#include <string.h>
#include <stdlib.h>
#else
#if (defined(_MSC_VER) || defined(__IBMCPP__) || defined(__WATCOMC__))
#if ( defined(_MSC_VER) || defined(__IBMCPP__) )
#include <memory.h>
#include <stdlib.h>
#else