Ron, you're right, I had not set HB_MT=MT before my latest full rebuild, so I was using an older vmmt.lib
Thanks so much! Maurilio. Ron Pinkas wrote: > Maurilio, > > I strongly suspect your MT version of hvm.lib was not recompiled, > because it does NOT make any sense. The correction has nothing to do > with ST/MT. > > Ron > > On Jun 20, 2008, at 8:34 AM, Maurilio Longo wrote: > >> 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 > > > > ------------------------------------------------------------------------- > 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
