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

2023-05-12 18:13 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* src/compiler/hbmain.c
    ! fixed GPFs in dummy and never finished code for strong typing and message
      call validation.
This commit is contained in:
Przemysław Czerpak
2023-05-12 18:13:12 +02:00
parent 0477f62648
commit ebc83d5d85
2 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog.txt
View File

@@ -7,6 +7,11 @@
Entries may not always be in chronological/commit order.
See license at the end of file. */
2023-05-12 18:13 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/compiler/hbmain.c
! fixed GPFs in dummy and never finished code for strong typing and message
call validation.
2023-04-21 13:01 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rtl/tbrowse.prg
! disabled HB_CLS_NOTOBJECT in TBrowse class definition

20
src/compiler/hbmain.c
View File

@@ -1122,6 +1122,17 @@ PHB_HDECLARED hb_compMethodAdd( HB_COMP_DECL, PHB_HCLASS pClass, const char * sz
{
PHB_HDECLARED pMethod;
if( ! pClass )
{
char buffer[ 80 ];
hb_snprintf( buffer, sizeof( buffer ),
"Class member '%s' declaration without class definition.\n", szMethodName );
hb_compOutErr( HB_COMP_PARAM, buffer );
HB_COMP_PARAM->iErrorCount++;
HB_COMP_PARAM->fError = HB_TRUE;
return NULL;
}
#if 0
printf( "\nDeclaring Method: %s of Class: %s Pointer: %li\n", szMethodName, pClass->szName, pClass );
#endif
@@ -1268,6 +1279,15 @@ void hb_compDeclaredParameterAdd( HB_COMP_DECL, const char * szVarName, PHB_VART
}
}
}
else if( ! HB_COMP_PARAM->pLastMethod )
{
char buffer[ 80 ];
hb_snprintf( buffer, sizeof( buffer ),
"Message parameter '%s' declaration without class/message definition.\n", szVarName );
hb_compOutErr( HB_COMP_PARAM, buffer );
HB_COMP_PARAM->iErrorCount++;
HB_COMP_PARAM->fError = HB_TRUE;
}
else /* Declared Method Parameter */
{
#if 0