On Thu, 06 Nov 2008, David Arturo Macias Corona wrote:

Hi David,

> But it seem to be C code and I do not know C and handle with OW  :-)
> Well, trying based in make_ow.log, hbrun creation:
> [E:\harbour810\harbour]wpp386 pba.c -fo=pba.obj -i=include -bm
> [E:\harbour810\harbour]wlink debug all OP stack=65536 OP CASEEXACT NAME 
> pba.exe FILE pba.obj

Very good :-) and many thanks.

> - Running[E:\harbour810\harbour]pba.exe
> Starting thread...
> This is thread function [12345678] !!!
> thread id = 00000002
> Done
> As I see I made history  :-)

:-) So this is working correctly.
Now we will have to check where it fails.
I'm attaching modified thread.c file.
Please put it in harbour/source/vm/ directory and rebuild Harbour.
Then try to compile and execute this time .prg code:

   proc main()
      hb_threadJoin( hb_threadStart( @thFunc() ) )
   return
   proc thFunc()
   return
   announce HB_GTSYS
   request HB_GT_STD_DEFAULT

You should C on the screen sth like:

   1. HB_THREADSTART
   3. HB_THREADSTART
   1. hb_threadStartVM
   2. hb_threadStartVM
   3. hb_threadStartVM
   4. hb_threadStartVM
   6. hb_threadStartVM
   7. hb_threadStartVM

for clean execution. I guess it will be interrupted somewhere.

best regards,
Przemek

Attachment: thread.c.gz
Description: GNU Zip compressed data

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to