From 0cbd478d5379e5d4c2004ab1b65590791bb3848d Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Mon, 4 Aug 2008 13:16:28 +0000 Subject: [PATCH] 2008-08-04 15:16 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/compiler/genhrb.c ; added TOFIX note * pacified warning --- harbour/ChangeLog | 5 +++++ harbour/source/compiler/genhrb.c | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ef793867f3..351ff65fc7 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +2008-08-04 15:16 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/source/compiler/genhrb.c + ; added TOFIX note + * pacified warning + 2008-08-04 14:27 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * make_vcce.mak * make_b32.mak diff --git a/harbour/source/compiler/genhrb.c b/harbour/source/compiler/genhrb.c index cdc1bca567..f8c7a0912a 100644 --- a/harbour/source/compiler/genhrb.c +++ b/harbour/source/compiler/genhrb.c @@ -102,7 +102,14 @@ void hb_compGenBufPortObj( HB_COMP_DECL, BYTE ** pBufPtr, ULONG * pulSize ) ulLen = strlen( pSym->szName ) + 1; memcpy( ptr, pSym->szName, ulLen ); ptr += ulLen; - *ptr++ = pSym->cScope; + /* TOFIX: this conversion strips upper byte from symbol scope + * Now we added workaround for it by using some strict + * bit order and restoring some others at runtime when + * .hrb file is loaded but we should create new format + * for .hrb files in which this field will have at least + * 16bit [druzus] + */ + *ptr++ = ( BYTE ) pSym->cScope; /* symbol type */ /* if( hb_compFunctionFind( HB_COMP_PARAM, pSym->szName ) ) */ if( pSym->cScope & HB_FS_LOCAL )