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

2014-10-06 22:35 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* include/hbcomp.h
  * include/hbcompdf.h
  * src/compiler/hbmain.c
  * src/compiler/harbour.y
  * src/compiler/harbour.yyc
    * replaced 'char' type holder with 'HB_BYTE' - this is part of never
      finished code which is completely dummy in current compiler and above
      modification is only to pacify warnings which are real bugs in existing
      implementation. I do not plan to modify or fix this code. I'll remove
      it working on fully functional strong typing implementation.
This commit is contained in:
Przemysław Czerpak
2014-10-06 22:35:58 +02:00
parent 9293e31ed4
commit e2a9cabe96
6 changed files with 18 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ChangeLog.txt
View File

@@ -10,6 +10,18 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2014-10-06 22:35 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* include/hbcomp.h
* include/hbcompdf.h
* src/compiler/hbmain.c
* src/compiler/harbour.y
* src/compiler/harbour.yyc
* replaced 'char' type holder with 'HB_BYTE' - this is part of never
finished code which is completely dummy in current compiler and above
modification is only to pacify warnings which are real bugs in existing
implementation. I do not plan to modify or fix this code. I'll remove
it working on fully functional strong typing implementation.
2014-10-06 22:15 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/compiler/harbour.y
* src/macro/macro.y

2
include/hbcomp.h
View File

@@ -135,7 +135,7 @@ extern void hb_compFunctionMarkStatic( HB_COMP_DECL, const
extern HB_EXPORT_INT const char * hb_compGetFuncID( const char * szFuncName, HB_FUNC_ID * pFunID, int * piFlags );
extern HB_BOOL hb_compFunCallCheck( HB_COMP_DECL, const char *, int );
extern PHB_VARTYPE hb_compVarTypeNew( HB_COMP_DECL, char cVarType, const char * szFromClass );
extern PHB_VARTYPE hb_compVarTypeNew( HB_COMP_DECL, HB_BYTE cVarType, const char * szFromClass );
extern void hb_compVariableAdd( HB_COMP_DECL, const char * szVarName, PHB_VARTYPE pVarType ); /* add a new param, local, static variable to a function definition or a public or private */
extern PHB_HVAR hb_compVariableFind( HB_COMP_DECL, const char * szVarName, int * piPos, int * piScope );
extern const char * hb_compLocalVariableName( PHB_HFUNC pFunc, HB_USHORT wVar ); /* returns the name of local variable */

5
include/hbcompdf.h
View File

@@ -121,7 +121,7 @@ typedef struct HB_CBVAR_
typedef struct _HB_VARTYPE
{
struct _HB_VARTYPE * pNext;
char cVarType;
HB_BYTE cVarType;
const char * szFromClass;
} HB_VARTYPE, * PHB_VARTYPE;
@@ -788,8 +788,7 @@ typedef struct _HB_COMP
char ** szStdChExt; /* extended definitions file names (-u+<file>) */
int iStdChExt; /* number of extended definition files (-u+<file>) */
char cDataListType; /* current declared variable list type */
char cCastType; /* current casting type */
HB_BYTE cDataListType; /* current declared variable list type */
int iErrorCount;
int iModulesCount; /* number of compiled .prg modules */

2
src/compiler/harbour.y
View File

@@ -1289,7 +1289,7 @@ DecData : IdentName { HB_COMP_PARAM->pLastMethod = hb_compMethodAdd( HB_COMP_
PHB_HCLASS pClass;
char szSetData[ HB_SYMBOL_NAME_LEN + 1 ];
int iLen;
char cVarType = $3->cVarType;
HB_BYTE cVarType = $3->cVarType;
/* List Type overrides if exists. */
if( HB_COMP_PARAM->cDataListType )

2
src/compiler/harbour.yyc
View File

@@ -5900,7 +5900,7 @@ yyreduce:
PHB_HCLASS pClass;
char szSetData[ HB_SYMBOL_NAME_LEN + 1 ];
int iLen;
char cVarType = (yyvsp[0].asVarType)->cVarType;
HB_BYTE cVarType = (yyvsp[0].asVarType)->cVarType;
/* List Type overrides if exists. */
if( HB_COMP_PARAM->cDataListType )

2
src/compiler/hbmain.c
View File

@@ -1282,7 +1282,7 @@ void hb_compDeclaredParameterAdd( HB_COMP_DECL, const char * szVarName, PHB_VART
}
}
PHB_VARTYPE hb_compVarTypeNew( HB_COMP_DECL, char cVarType, const char* szFromClass )
PHB_VARTYPE hb_compVarTypeNew( HB_COMP_DECL, HB_BYTE cVarType, const char* szFromClass )
{
PHB_VARTYPE pVT = HB_COMP_PARAM->pVarType;
PHB_VARTYPE* ppVT = &( HB_COMP_PARAM->pVarType );