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

2002-01-30 12:30 UTC+0200 Chen Kedem <niki@actcom.co.il>

Browse Source
This commit is contained in:
Chen Kedem
2002-01-30 10:31:01 +00:00
parent bc0e3b385b
commit b8fcce5aa5
6 changed files with 24 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
harbour/ChangeLog
View File

@@ -7,6 +7,24 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-01-30 11:30 UTC+0100 Antonio Linares <alinares@fivetech.com>
* include/hbpcode.h
* source/compiler/genc.c
* source/compiler/hbfix.c
* source/compiler/hbpcode.c
* source/vm/hvm.c
* source/vm/macro.c
+ Added support for HB_P_MPUSHSTR
Notice: These changes have been borrowed from xHarbour,
as they fix the bug that xHarbour strings sharing introduced
in Harbour (for macro strings).
Copyright of this xHarbour bug and bug fix: Ron Pinkas.
* source/vm/classes.c
* source change re-implemented, that was lost cause using
Viktor classes.c
2002-01-30 12:30 UTC+0200 Chen Kedem <niki@actcom.co.il>

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

@@ -323,7 +323,7 @@ HB_FUNC( HB_AEXPRESSIONS )
if( pLine == NULL )
{
hb_errRT_BASE_SubstR( EG_ARG, 1123, NULL, "HB_AEXPRESSIONS", 1, hb_paramError(1) );
hb_errRT_BASE_SubstR( EG_ARG, 9999, NULL, "HB_AEXPRESSIONS", 1, hb_paramError(1) );
return;
}
@@ -408,4 +408,3 @@ HB_FUNC( HB_AEXPRESSIONS )
hb_itemRelease( pExp );
}
}

2
harbour/source/vm/extend.c
View File

@@ -793,4 +793,4 @@ void HB_EXPORT hb_stornd( double dNumber, int iParam, ... )
else if( bByRef || iParam == -1 )
hb_itemPutND( pItem, dNumber );
}
}
}

2
harbour/source/vm/itemapi.c
View File

@@ -1311,4 +1311,4 @@ PHB_ITEM hb_itemValToStr( PHB_ITEM pItem )
hb_xfree( buffer );
return pResult;
}
}

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

@@ -140,7 +140,7 @@ static BOOL hb_macroCheckParam( HB_ITEM_PTR pItem )
if( ! HB_IS_STRING(pItem) )
{
HB_ITEM_PTR pResult = hb_errRT_BASE_Subst( EG_ARG, 1080, NULL, "&", 0 );
HB_ITEM_PTR pResult = hb_errRT_BASE_Subst( EG_ARG, 1065, NULL, "&", 0 );
bValid = FALSE;
if( pResult )
@@ -1550,5 +1550,3 @@ void hb_compCodeBlockEnd( HB_MACRO_DECL )
hb_xfree( ( void * ) pCodeblock->pCode );
hb_xfree( ( void * ) pCodeblock );
}

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

@@ -1403,6 +1403,7 @@ HB_FUNC( __MVSAVE )
}
}
else
/* NOTE: Undocumented error message in CA-Cl*pper 5.2e and 5.3x. [ckedem] */
hb_errRT_BASE( EG_ARG, 2008, NULL, "__MSAVE", 3, hb_paramError( 1 ), hb_paramError( 2 ), hb_paramError( 3 ) );
}
@@ -1541,6 +1542,7 @@ HB_FUNC( __MVRESTORE )
hb_retl( FALSE );
}
else
/* NOTE: Undocumented error message in CA-Cl*pper 5.2e and 5.3x. [ckedem] */
hb_errRT_BASE( EG_ARG, 2007, NULL, "__MRESTORE", 2, hb_paramError( 1 ), hb_paramError( 2 ) );
}