FiveTech Software tech support forums

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

Enrico, Why are you using a PRIVATE? I haven't used PRIVATEs for years. You can do the same thing you wanted this way: FUNCTION MAIN()    LOCALE cName:=""    cName:= CREATEVAR( cName, "Hello" )    ? cName // it exists here    RETURN NILSTATIC FUNCTION CREATEVAR...

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

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(); }

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

... 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.

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

C:\HBBCC74\src\vm

03/04/2020 19:58 52.717 memvars.c

Regards, saludos.

Ok, no problem, thank you.

I am afraid no as xHarbour does not have the member stackstate in the struct hb_struSymbol

Maybe there is another way to do it, but I don't know it

Great! Is there a similar function (__MVSETBASE()) available for xHarbour?

Dear Enrico, #include "Fivewin.ch"FUNCTION MAIN()    CREATEVAR( "TEST", "Hello" )    ? M -> TEST // it exists here    RETURN NILSTATIC FUNCTION CREATEVAR( cName, xValue )    __MVPRIVATE( cName )    __MVPUT( cName, xValue )    _...

You completely missed the point.

Try it with your mytest.mem