FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour CodeBlock
Posts: 253
Joined: Fri Feb 03, 2006 04:21 PM
CodeBlock
Posted: Tue Nov 01, 2022 11:24 AM

Hello friends

I need to know what has inside a codeblock: function, field name..

That's possible.

I'm trying to take the TcBrowse Object and know the contents of each column, reverse engineering.

Thanks,
Ari

FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: CodeBlock
Posted: Tue Nov 01, 2022 07:31 PM
Dear Ari,

In harbour/include/hbapi.h you find this:
https://github.com/harbour/core/blob/master/include/hbapi.h
typedef struct _HB_CODEBLOCK
{
const HB_BYTE * pCode; /* codeblock pcode */
PHB_SYMB pSymbols; /* codeblocks symbols */
PHB_SYMB pDefSymb; /* symbol where the codeblock was created */
PHB_ITEM pLocals; /* table with referenced local variables */
void * pStatics; /* STATICs base frame */
HB_USHORT uiLocals; /* number of referenced local variables */
HB_SHORT dynBuffer; /* is pcode buffer allocated dynamically, SHORT used instead of HB_BOOL intentionally to force optimal alignment */
} HB_CODEBLOCK, * PHB_CODEBLOCK;
using #define _HB_API_INTERNAL_ before #include <hbapi.h> you can use such structure to query a codeblock retrieved as hb_param( <number_parameter>, HB_IT_BLOCK )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 253
Joined: Fri Feb 03, 2006 04:21 PM
Re: CodeBlock
Posted: Wed Nov 02, 2022 03:40 PM

Obrigado Antonio.

Thanks,
Ari

FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br

Continue the discussion