X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=fakethr.h;h=8b1e76ff9be2f8ebb15f0e9d117029e3ec78872d;hb=58a50f6288bdd18f3f469352f83c5e7ade50ee7a;hp=e09a757b6dfbead6d36633c13b253c73abd638cf;hpb=46930d8f1568c61dcd2ab37f6a2924dc79596ffc;p=p5sagit%2Fp5-mst-13.2.git diff --git a/fakethr.h b/fakethr.h index e09a757..8b1e76f 100644 --- a/fakethr.h +++ b/fakethr.h @@ -1,12 +1,12 @@ typedef int perl_mutex; typedef int perl_key; -typedef struct thread *perl_thread; +typedef struct perl_thread *perl_os_thread; /* With fake threads, thr is global(ish) so we don't need dTHR */ #define dTHR extern int errno struct perl_wait_queue { - struct thread * thread; + struct perl_thread * thread; struct perl_wait_queue * next; }; typedef struct perl_wait_queue *perl_cond; @@ -14,7 +14,7 @@ typedef struct perl_wait_queue *perl_cond; /* Ask thread.h to include our per-thread extras */ #define HAVE_THREAD_INTERN struct thread_intern { - perl_thread next_run, prev_run; /* Linked list of runnable threads */ + perl_os_thread next_run, prev_run; /* Linked list of runnable threads */ perl_cond wait_queue; /* Wait queue that we are waiting on */ IV private; /* Holds data across time slices */ I32 savemark; /* Holds MARK for thread join values */