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

20000504-04:05 GMT-8 Ron Pinkas <Ron@Profit-Master.com>

Browse Source 
* source/compiler/hbpcode.c
     ! Fixed GPF when Array of 0 elements created.
This commit is contained in:
Ron Pinkas
2000-05-04 11:05:09 +00:00
parent 86e2384686
commit 7b648ebc7e
3 changed files with 42 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
20000504-04:05 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* source/compiler/hbpcode.c
! Fixed GPF when Array of 0 elements created.
20000504-03:10 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* source/compiler/harbour.l

16
harbour/source/compiler/hbpcode.c
View File

@@ -772,8 +772,12 @@ void hb_compStrongType( int iSize )
/* TODO Error Message after finalizing all possible pcodes. */
break;
cType = pFunc->pStack[ pFunc->iStackIndex - 1 ];
while ( --wVar )
if ( wVar )
cType = pFunc->pStack[ pFunc->iStackIndex - 1 ];
else
cType = 'A';
while ( --wVar > 0 )
{
pFunc->iStackIndex--;
@@ -799,8 +803,12 @@ void hb_compStrongType( int iSize )
/* TODO Error Message after finalizing all possible pcodes. */
break;
cType = pFunc->pStack[ pFunc->iStackIndex - 1 ];
while ( --wVar )
if ( wVar )
cType = pFunc->pStack[ pFunc->iStackIndex - 1 ];
else
cType = 'A';
while ( --wVar > 0 )
{
pFunc->iStackIndex--;

26
harbour/tests/testwarn.prg
View File

@@ -61,12 +61,36 @@ DECLARE FUNCTION int( n AS NUMERIC ) AS NUMERIC
DECLARE FUNCTION TEST AS NUMERIC
PROCEDURE MAIN( Param1 )
PROCEDURE MAINA( )
LOCAL GetList := {}
Getlist[ 1 ]:postBlock := LI_VALID[ fipos ]
RETURN
PROCEDURE MAIN( )
LOCAL cVar as char, a[2,3,4] AS BOOL ARRAY
LOCAL RPT, APARAMS
LOCAL rezproc, xkey, rez, fipos, wndbuf, oldcolors, ym, xm, i
LOCAL prview, prsohr, predit, predxx
LOCAL fbar1, fbar2, vartmp, varbuf
//LOCAL GetList := {}
#ifdef VER_MOUSE
PARAMETERS x1,y1,x2,y2,title,maskey,ctrl_ar
#else
//PARAMETERS x1,y1,x2,y2,title,maskey
#endif
IF ( ym <= y1 )//.OR. ym >= y2 .OR. xm <= x1 .OR. xm >= x2 )
IF xm <= x2 .AND. xm >= x1 .AND. ( ym = y1 .OR. ym = y2 )
ENDIF
ENDIF
a[1] = 2
cVAr := a[1]