Ron,
I can confirm that it is fixed for ST mode after your last commit.
It still does not work in MT mode.
Thanks a lot!
Maurilio.
Ron Pinkas wrote:
> Maurilio,
>
> Should be fixed after: 2008-06-20 10:25 UTC-0430 Ron Pinkas <ron/at/
> xharbour.com>
>
> Ron
>
> On Jun 20, 2008, at 8:03 AM, Maurilio Longo wrote:
>
>> And I can add that
>>
>> ISBYREF() fails, hb_parcsiz() returns 0 (zero).
>>
>> Best regards.
>>
>> Maurilio.
>>
>> Maurilio Longo wrote:
>>> Ron,
>>>
>>> even worse, with latest cvs I get back garbage in ST mode and a
>>> series of Chr(
>>> 7 ) in MT ?!
>>>
>>>
>>> ST mode follows
>>>
>>> -----------8<---------------------
>>> (E:\repos2\xharbour\tests)ref2
>>>
>>>
>>> 99
>>> 0 ÓïR ªR`¬RÓ¬R`®RáïR
>>> ░Rá®Rá░R`░RáñRáÑRÓ»RáÄRáöRáù
>>> RÓûR òR -Rá»Rá8R`»R`%R
>>> ------------------------------------
>>>
>>> Best regards.
>>>
>>> Maurilio.
>>>
>>> Ron Pinkas wrote:
>>>> Maurilio,
>>>>
>>>> The only problem I see is in the sample code - it had a memory
>>>> overrun and memory leaks. Here is the corrected sample:
>>>>
>>>> //------------------------------------------------------------------
>>>> ----
>>>> ------------//
>>>> PROCEDURE main()
>>>>
>>>> LOCAL cStr := "Hello"
>>>>
>>>> MemoWrit( "test.txt", Replicate( "0", 2048 ) )
>>>>
>>>> ? Test()
>>>>
>>>> fErase( "test.txt" )
>>>>
>>>> RETURN
>>>>
>>>>
>>>> PROCEDURE Called( cStr )
>>>>
>>>> LOCAL nHandle
>>>>
>>>> nHandle := fOpen( "test.txt" )
>>>>
>>>> ? Len( cStr )
>>>> ? fRead( nHandle, @cStr, Len( cStr ) )
>>>>
>>>> fClose( nHandle )
>>>>
>>>> RETURN
>>>>
>>>>
>>>> #pragma begindump
>>>>
>>>> #include <hbapi.h>
>>>> #include <hbapiitm.h>
>>>> #include <hbvm.h>
>>>>
>>>>
>>>> HB_FUNC( TEST )
>>>> {
>>>> PHB_DYNS pSym = hb_dynsymFindName( "CALLED" );
>>>> PHB_ITEM pItem = hb_itemNew( NULL );
>>>> char * pBuffer = NULL;
>>>>
>>>> pBuffer = (char *) hb_xgrab( 100 );
>>>> hb_itemPutCPtr( pItem, pBuffer, 99 ); // NOTE!
>>>>
>>>> hb_vmPushSymbol( hb_dynsymSymbol( pSym ) );
>>>> hb_vmPushNil();
>>>> hb_vmPushItemRef( pItem );
>>>> hb_vmDo( 1 );
>>>>
>>>> hb_itemReturnForward( pItem ); //NOTE!
>>>> hb_itemRelease( pItem ); //NOTE!
>>>> }
>>>>
>>>> #pragma enddump
>>>> //------------------------------------------------------------------
>>>> ----
>>>> ------------//
>>>>
>>>> Ron
>>>>
>>>> On Jun 20, 2008, at 4:51 AM, Maurilio Longo wrote:
>>>>
>>>>> Ron,
>>>>>
>>>>> fRead() has problems when some C code tries to pass to it a
>>>>> variable by-reference.
>>>>>
>>>>> See attached sample, I think this is strictly correlated to my
>>>>> previous posts
>>>>> about similar issues.
>>>>>
>>>>> Can this be solved?
>>>>>
>>>>> Can someone help me find the source of this issue so that I can try
>>>>> to fix it
>>>>> by myself?
>>>>>
>>>>> TIA.
>>>>>
>>>>> Maurilio.
>>>>>
>>>>>
>>>>> --
>>>>> __________
>>>>> | | | |__| Maurilio Longo
>>>>> |_|_|_|____| farmaconsult s.r.l.
>>>>>
>>>>> <ref.prg>---------------------------------------------------------
>>>>> ---
>>>>> -------------
>>>>> Check out the new SourceForge.net Marketplace.
>>>>> It's the best place to buy or sell services for
>>>>> just about anything Open Source.
>>>>> http://sourceforge.net/services/buy/
>>>>> index.php_______________________________________________
>>>>> xHarbour-developers mailing list
>>>>> xHarbour-developers@lists.sourceforge.net
>>>>> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>>>>
>>>> --------------------------------------------------------------------
>>>> -----
>>>> Check out the new SourceForge.net Marketplace.
>>>> It's the best place to buy or sell services for
>>>> just about anything Open Source.
>>>> http://sourceforge.net/services/buy/index.php
>>>> _______________________________________________
>>>> xHarbour-developers mailing list
>>>> xHarbour-developers@lists.sourceforge.net
>>>> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>>>>
>> --
>> __________
>> | | | |__| Maurilio Longo
>> |_|_|_|____| farmaconsult s.r.l.
>>
>>
>>
>> ----------------------------------------------------------------------
>> ---
>> Check out the new SourceForge.net Marketplace.
>> It's the best place to buy or sell services for
>> just about anything Open Source.
>> http://sourceforge.net/services/buy/index.php
>> _______________________________________________
>> xHarbour-developers mailing list
>> xHarbour-developers@lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
>
>
> -------------------------------------------------------------------------
> Check out the new SourceForge.net Marketplace.
> It's the best place to buy or sell services for
> just about anything Open Source.
> http://sourceforge.net/services/buy/index.php
> _______________________________________________
> xHarbour-developers mailing list
> xHarbour-developers@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
--
__________
| | | |__| Maurilio Longo
|_|_|_|____| farmaconsult s.r.l.
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
