How to create a PRIVATE variable owned by the caller?

[Enrico Maria Giordano]

Yes, that's the module I'm experimenting with.

[vensanto]

__mvSetBase()

This is a hacking function which changes base private offset so PRIVATE variables created in function which calls __mvSetBase()
will not be released when the function exit but will be inherited by its caller.

Function sa_1()

sa_2()

? cTXT

Return .T.


Function sa_2()

Private cTXT:="CIAO"

__mvSetBase() // importante

Return .T.

[Enrico Maria Giordano]

Thank you, but I need it for xHarbour (please read the whole thread).

[vensanto]

this is the function code in "memvars.c" of Harbour

HB_FUNC( __MVSETBASE )
{
HB_STACK_TLS_PRELOAD
HB_ISIZ nOffset = hb_stackBaseProcOffset( 0 );

if( nOffset > 0 )
hb_stackItem( nOffset )->item.asSymbol.stackstate->nPrivateBase =
hb_memvarGetPrivatesBase();
}

[Enrico Maria Giordano]

Thank you but, please, read the whole thread. We have already discussed that code.

[James Bott]

Enrico,

Why are you using a PRIVATE? I haven't used PRIVATEs for years.

You can do the same thing you wanted this way:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCALE cName:=""

    cName:= CREATEVAR( cName, "Hello" )

    ? cName // it exists here

    RETURN NIL

STATIC FUNCTION CREATEVAR( cName, xValue )

    cName:= xValue

RETURN xValue

James

[Enrico Maria Giordano]

I was sure you would write this. I need it for back compatibility.