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

20000514-09:45 GMT-8 Ron Pinkas <Ron@Profit-Master.com>

Browse Source 
* source/compiler/harbour.y
    ! Fixed GPF when using DECLARE CLASS and -w < 3

  * source/compiler/harbour.c
    ! Fixed GPF when using DECLARE CLASS and -w < 3
This commit is contained in:
Ron Pinkas
2000-05-14 16:47:48 +00:00
parent d1d3198841
commit f336ac266e
3 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -1,3 +1,11 @@
20000514-09:45 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* source/compiler/harbour.y
! Fixed GPF when using DECLARE CLASS and -w < 3
* source/compiler/harbour.c
! Fixed GPF when using DECLARE CLASS and -w < 3
20000514-09:10 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* source/compiler/harbour.l

3
harbour/source/compiler/harbour.c
View File

@@ -835,6 +835,9 @@ PCOMCLASS hb_compClassFind( char * szClassName )
{
PCOMCLASS pClass = hb_comp_pFirstClass;
if ( hb_comp_iWarnings < 3 )
return NULL;
while( pClass )
{
if( ! strcmp( pClass->szName, szClassName ) )

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

@@ -275,12 +275,14 @@ ClassInfo : DecMethod
| ClassInfo DecData
;
DecMethod : CLASS_METHOD IdentName { hb_comp_pLastMethod = hb_compMethodAdd( hb_comp_pLastClass, $2 ); } DecParams AsType { hb_comp_pLastMethod->cType = hb_comp_cVarType;
DecMethod : CLASS_METHOD IdentName { hb_comp_pLastMethod = hb_compMethodAdd( hb_comp_pLastClass, $2 ); } DecParams AsType { if ( hb_comp_pLastMethod )
hb_comp_pLastMethod->cType = hb_comp_cVarType;
hb_comp_pLastMethod = NULL;
hb_comp_cVarType = ' '; }
;
DecData : CLASS_DATA IdentName { hb_comp_pLastMethod = hb_compMethodAdd( hb_comp_pLastClass, $2 ); } AsType { hb_comp_pLastMethod->cType = hb_comp_cVarType;
DecData : CLASS_DATA IdentName { hb_comp_pLastMethod = hb_compMethodAdd( hb_comp_pLastClass, $2 ); } AsType { if ( hb_comp_pLastMethod )
hb_comp_pLastMethod->cType = hb_comp_cVarType;
hb_comp_pLastMethod = NULL;
hb_comp_cVarType = ' '; }
;