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

2001-03-22 13:00 UTC-0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* contrib/runjava/runjava.c
     + Added support for Argument Errors

   * source/rtl/len.c
   * source/rtl/minmax.c
   * source/rtl/run.c
   * source/vm/arrayshb.c
   * source/vm/memvars.c
     * Corrected to always use hb_paramError() when calling hb_errRT_BASE*()
This commit is contained in:
Ron Pinkas
2001-03-22 21:06:53 +00:00
parent 9d823b9a8b
commit f85461b1c1
7 changed files with 20 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -1,3 +1,14 @@
2001-03-22 13:00 UTC-0800 Ron Pinkas <ron@profit-master.com>
* contrib/runjava/runjava.c
+ Added support for Argument Errors
* source/rtl/len.c
* source/rtl/minmax.c
* source/rtl/run.c
* source/vm/arrayshb.c
* source/vm/memvars.c
* Corrected to always use hb_paramError() when calling hb_errRT_BASE*()
2001-03-22 11:00 UTC-0800 Ron Pinkas <ron@profit-master.com>
* hb_slex.vc

2
harbour/contrib/runjava/runjava.c
View File

@@ -209,7 +209,7 @@ JNIEXPORT jlong JNICALL Java_Harbour_Run( JNIEnv *env,
pDynSym = hb_dynsymFind( pSymRead[ ul ].szName );
if( !pDynSym )
{
hb_errRT_BASE( EG_ARG, 9999, "Unknown or unregistered symbol", pSymRead[ ul ].szName );
hb_errRT_BASE( EG_ARG, 9999, "Unknown or unregistered symbol", pSymRead[ ul ].szName, 0 );
bError = TRUE;
break;
}

2
harbour/source/rtl/len.c
View File

@@ -59,5 +59,5 @@ HB_FUNC( LEN )
}
}
hb_errRT_BASE_SubstR( EG_ARG, 1111, NULL, "LEN", 1, pItem );
hb_errRT_BASE_SubstR( EG_ARG, 1111, NULL, "LEN", 1, hb_paramError( 1 ) );
}

4
harbour/source/rtl/minmax.c
View File

@@ -86,7 +86,7 @@ HB_FUNC( MAX )
hb_retds( hb_itemGetDL( p1 ) >= hb_itemGetDL( p2 ) ? hb_pardsbuff( szDate, 1 ) : hb_pardsbuff( szDate, 2 ) );
}
else
hb_errRT_BASE_SubstR( EG_ARG, 1093, NULL, "MAX", 2, p1, p2 );
hb_errRT_BASE_SubstR( EG_ARG, 1093, NULL, "MAX", 2, hb_paramError( 1 ), hb_paramError( 2 ) );
}
/* returns the minimum of two date or numerics */
@@ -138,6 +138,6 @@ HB_FUNC( MIN )
hb_retds( hb_itemGetDL( p1 ) <= hb_itemGetDL( p2 ) ? hb_pardsbuff( szDate, 1 ) : hb_pardsbuff( szDate, 2 ) );
}
else
hb_errRT_BASE_SubstR( EG_ARG, 1092, NULL, "MIN", 2, p1, p2 );
hb_errRT_BASE_SubstR( EG_ARG, 1092, NULL, "MIN", 2, hb_paramError( 1 ), hb_paramError( 2 ) );
}

2
harbour/source/rtl/run.c
View File

@@ -54,6 +54,6 @@ HB_FUNC( __RUN )
}
}
#else
hb_errRT_BASE_Ext1( EG_UNSUPPORTED, 9999, NULL, "__RUN", 0, EF_CANDEFAULT );
hb_errRT_BASE_Ext1( EG_UNSUPPORTED, 9999, NULL, "__RUN", 0, EF_CANDEFAULT, 0 );
#endif
}

4
harbour/source/vm/arrayshb.c
View File

@@ -81,7 +81,7 @@ HB_FUNC( ARRAY )
if( hb_parnl( iParam ) < 0 ) /* || hb_parnl( iParam ) <= 4096 */
{
hb_errRT_BASE( EG_BOUND, 1131, NULL, hb_langDGetErrorDesc( EG_ARRDIMENSION ), 1, hb_param( iParam, HB_IT_ANY ) );
hb_errRT_BASE( EG_BOUND, 1131, NULL, hb_langDGetErrorDesc( EG_ARRDIMENSION ), 1, hb_paramError( 1 ) );
bError = TRUE;
break;
}
@@ -103,7 +103,7 @@ HB_FUNC( AADD )
if( pValue && hb_arrayAdd( pArray, pValue ) )
hb_itemReturn( pValue );
else
hb_errRT_BASE( EG_BOUND, 1187, NULL, "AADD", 2, pArray, hb_paramError( 2 ) );
hb_errRT_BASE( EG_BOUND, 1187, NULL, "AADD", 2, hb_paramError( 1 ), hb_paramError( 2 ) );
}
else
hb_errRT_BASE_SubstR( EG_ARG, 1123, NULL, "AADD", 2, hb_paramError(1), hb_paramError( 2 ) );

4
harbour/source/vm/memvars.c
View File

@@ -609,7 +609,7 @@ void hb_memvarCreateFromItem( PHB_ITEM pMemvar, BYTE bScope, PHB_ITEM pValue )
else if( HB_IS_STRING( pMemvar ) )
pDynVar = hb_dynsymGet( pMemvar->item.asString.value );
else
hb_errRT_BASE( EG_ARG, 3008, NULL, "&", 2, pMemvar, pValue );
hb_errRT_BASE( EG_ARG, 3008, NULL, "&", 2, hb_paramError( 1 ), hb_paramError( 2 ) );
if( pDynVar )
hb_memvarCreateFromDynSymbol( pDynVar, bScope, pValue );
@@ -698,7 +698,7 @@ static void hb_memvarRelease( HB_ITEM_PTR pMemvar )
}
}
else
hb_errRT_BASE( EG_ARG, 3008, NULL, "RELEASE", 1, pMemvar );
hb_errRT_BASE( EG_ARG, 3008, NULL, "RELEASE", 1, hb_paramError( 1 ) );
}