Ron, on OS/2, gcc, it still returns 0 bytes read in MT.
-------8<----------------------- (E:\repos2\xharbour\tests)set HB_MT=MT (E:\repos2\xharbour\tests)del ref2.exe && make ref2.exe e:\harbour\bin/harbour -Ie:\harbour\include -n ref2.prg xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6146) Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'ref2.prg'... Lines 32, Functions/Procedures 2 Generating C source output to 'ref2.c'... Done. gcc -Ie:\harbour\include -c -o ref2.o ref2.c gcc -o ref2.exe ref2.o -Le:\harbour\lib -ldebug -lvmmt -lrtlmt -lrddmt -lrtlmt -ldbfntx -ldbfcdx -ldbffpt -lhbsix -lrtlmt -lvmmt -lmacromt -lpcrepos -lct -lpp -llang -lcommon -lgtos2 -lgtpca -lsocket -lrtlmt -lm rm ref2.o ref2.c (E:\repos2\xharbour\tests)ref2 99 0 (E:\repos2\xharbour\tests) ----------------------- Maurilio. Ron Pinkas wrote: > Maurilio, > > Works perfect for me, also in MT. What problem did you have? > > Ron > > On Jun 20, 2008, at 8:29 AM, Maurilio Longo wrote: > >> 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 > > > > ------------------------------------------------------------------------- > 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
