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

2013-07-08 12:54 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* contrib/hbct/ctwfunc.c
    ! extract box frame string passed to WBOX() using BOX CP

  * src/vm/procaddr.c
    ! added hb_extIsNil() to hb_vmProcAddress() - it fixes PCODE DLLs
      using [HB_]ISNIL() macro and linked with hbmaindllp library or
      other wrapper using hb_vmProcAddress()

  * src/vm/codebloc.c
    - removed old comment which was never true in real HVM MT model

  * ChangeLog.txt
    ! typo: tanks -> thanks ;)
This commit is contained in:
Przemysław Czerpak
2013-07-08 12:54:43 +02:00
parent 1d79a39621
commit fa0cdfcd5d
4 changed files with 27 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
ChangeLog.txt
View File

@@ -10,6 +10,21 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2013-07-08 12:54 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbct/ctwfunc.c
! extract box frame string passed to WBOX() using BOX CP
* src/vm/procaddr.c
! added hb_extIsNil() to hb_vmProcAddress() - it fixes PCODE DLLs
using [HB_]ISNIL() macro and linked with hbmaindllp library or
other wrapper using hb_vmProcAddress()
* src/vm/codebloc.c
- removed old comment which was never true in real HVM MT model
* ChangeLog.txt
! typo: tanks -> thanks ;)
2013-07-05 20:02 UTC+0400 Phil Krylov (phil a t newstar.rinet.ru)
* src/debug/debugger.prg
% Don't save debugger window positions if user did not change them as the
@@ -52,7 +67,7 @@
2013-07-05 00:39 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/debug/dbgentry.c
! fixed line number setting in debugged coeblocks.
Tanks to Teo for detail information about the problem.
Thanks to Teo for detail information about the problem.
2013-07-04 18:09 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/debug/dbgtwin.prg

15
contrib/hbct/ctwfunc.c
View File

@@ -220,14 +220,19 @@ HB_FUNC( WBOX )
HB_B_FULL_W
}; /* 15 WB_FULL */
HB_WCHAR szBoxBuf[ 10 ];
PHB_ITEM pBoxFrame = hb_param( 1, HB_IT_STRING );
HB_WCHAR szBoxBuf[ 10 ], wc;
const char * pszBoxFrame = hb_parc( 1 );
int iColor;
if( pBoxFrame )
if( pszBoxFrame )
{
hb_itemCopyStrU16( pBoxFrame, HB_CDP_ENDIAN_NATIVE, szBoxBuf, HB_SIZEOFARRAY( szBoxBuf ) );
szBoxBuf[ HB_SIZEOFARRAY( szBoxBuf ) - 1 ] = 0;
HB_SIZE nLen = hb_parclen( 1 ), nIndex = 0, nSize = 0;
PHB_CODEPAGE cdp = hb_gtBoxCP();
while( nSize < HB_SIZEOFARRAY( szBoxBuf ) - 1 &&
HB_CDPCHAR_GET( cdp, pszBoxFrame, nLen, &nIndex, &wc ) )
szBoxBuf[ nSize++ ] = wc;
szBoxBuf[ nSize ] = 0;
}
else
{

2
src/vm/codebloc.c
View File

@@ -196,8 +196,6 @@ PHB_CODEBLOCK hb_codeblockNew( const HB_BYTE * pBuffer,
{
/* Swap the current value of local variable with the reference to this
* value.
* TODO: If Harbour will support threads in the future then we need
* to implement some kind of semaphores here.
*/
int iLocal = HB_PCODE_MKUSHORT( pLocalPosTable );
pLocal = hb_stackLocalVariable( iLocal );

1
src/vm/procaddr.c
View File

@@ -72,6 +72,7 @@ PHB_FUNC hb_vmProcAddress( const char * szFuncName )
{ "hb_arraySet", ( PHB_FUNC ) hb_arraySet },
{ "hb_arraySize", ( PHB_FUNC ) hb_arraySize },
{ "hb_extIsArray", ( PHB_FUNC ) hb_extIsArray },
{ "hb_extIsNil", ( PHB_FUNC ) hb_extIsNil },
{ "hb_param", ( PHB_FUNC ) hb_param },
{ "hb_paramError", ( PHB_FUNC ) hb_paramError },
{ "hb_parinfa", ( PHB_FUNC ) hb_parinfa },