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

2008-10-28 10:24 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/hbxvm.h
  * harbour/source/vm/hvm.c
  * harbour/source/compiler/gencc.c
    + added finished by mistake support for hidden strings in -gc3 mode
This commit is contained in:
Przemyslaw Czerpak
2008-10-28 09:24:37 +00:00
parent f424b51417
commit ecddf89923
4 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-28 10:24 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbxvm.h
* harbour/source/vm/hvm.c
* harbour/source/compiler/gencc.c
+ added finished by mistake support for hidden strings in -gc3 mode
2008-10-28 09:44 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/examples/guestbk/inifiles.prg
* contrib/examples/guestbk/testcgi.prg

2
harbour/include/hbxvm.h
View File

@@ -208,7 +208,7 @@ extern HB_EXPORT BOOL hb_xvmMacroPopAliased( BYTE bFlags );
extern HB_EXPORT BOOL hb_xvmMacroSymbol( void );
extern HB_EXPORT BOOL hb_xvmMacroText( void );
extern HB_EXPORT void hb_xvmPushStringHidden( char * szText, ULONG length );
extern HB_EXPORT void hb_xvmPushStringHidden( int iMethod, const char * szText, ULONG ulSize );
extern HB_EXPORT void hb_xvmPushDouble( double dNumber, int iWidth, int iDec );
#ifdef HB_LONG_LONG_OFF
extern HB_EXPORT void hb_xvmPushLongLong( double dNumber );

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

@@ -1343,7 +1343,8 @@ static HB_GENC_FUNC( hb_p_pushstrhidden )
HB_GENC_LABEL();
fprintf( cargo->yyc, "\thb_xvmPushStringHidden( " );
fprintf( cargo->yyc, "\thb_xvmPushStringHidden( %d, ",
pFunc->pCode[ lPCodePos + 1 ] );
hb_compGenCString( cargo->yyc, &pFunc->pCode[ lPCodePos + 4 ], usLen );
fprintf( cargo->yyc, ", %hu );\n", usLen );

10
harbour/source/vm/hvm.c
View File

@@ -10316,6 +10316,16 @@ HB_EXPORT void hb_xvmPushLongLong( LONGLONG llNumber )
}
#endif
HB_EXPORT void hb_xvmPushStringHidden( int iMethod, const char * szText, ULONG ulSize )
{
char * szString;
HB_TRACE(HB_TR_DEBUG, ("hb_xvmPushStringHidden(%d, %s, %lu)", iMethod, szText, ulSize));
szString = hb_compDecodeString( iMethod, szText, &ulSize );
hb_itemPutCLPtr( hb_stackAllocItem(), szString, ulSize );
}
HB_EXPORT void hb_xvmLocalName( USHORT uiLocal, char * szLocalName )
{
HB_TRACE(HB_TR_DEBUG, ("hb_xvmLocalName(%hu, %s)", uiLocal, szLocalName));