src/pmc/threadinterpreter.pmc

   1 /*
   2 Copyright (C) 2001-2007, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/threadinterpreter.pmc - INTERNAL Interpreter for OS level worker thread(pthread).
   8
   9 =head1 DESCRIPTION
  10
  11 ThreadInterpreter extends ParrotInterpreter to provide a interpreter
  12 to be used internally in a OS level worker thread(pthread).
  13 which supports:
  14
  15 =head2 Methods
  16
  17 =over 4
  18
  19 =cut
  20
  21 */
  22
  23 #include "parrot/embed.h"
  24
  25 /* HEADERIZER HFILE: none */
  26 /* HEADERIZER BEGIN: static */
  27 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
  28
  29 static void stop_GC(ARGMOD(Interp *parent), ARGMOD(Interp *thread))
  30         __attribute__nonnull__(1)
  31         __attribute__nonnull__(2)
  32         FUNC_MODIFIES(*parent)
  33         FUNC_MODIFIES(*thread);
  34
  35 #define ASSERT_ARGS_stop_GC __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
  36        PARROT_ASSERT_ARG(parent) \
  37     , PARROT_ASSERT_ARG(thread))
  38 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
  39 /* HEADERIZER END: static */
  40
  41 #define PMC_interp(x) ((Parrot_ParrotInterpreter_attributes *)PMC_data(x))->interp
  42
  43 /*
  44  * can't do multi-threaded GC yet
  45  * XXX a quick hack to pass the few tests
  46  */
  47
  48 /*
  49
  50 =item C<static void stop_GC(Interp *parent, Interp *thread)>
  51
  52 =cut
  53
  54 */
  55
  56 static void
  57 stop_GC(ARGMOD(Interp *parent), ARGMOD(Interp *thread))
  58 {
  59     ASSERT_ARGS(stop_GC)
  60     Parrot_block_GC_mark(parent);
  61     Parrot_block_GC_mark(thread);
  62     Parrot_block_GC_sweep(parent);
  63     Parrot_block_GC_sweep(thread);
  64 }
  65
  66
  67
  68 pmclass ThreadInterpreter extends ParrotInterpreter no_ro manual_attrs {
  69
  70 /*
  71
  72 =item C<void init()>
  73
  74 Initializes the thread.
  75
  76 =cut
  77
  78 */
  79
  80     VTABLE void init() {
  81         /* protect interpreter creation and list handling */
  82         LOCK(interpreter_array_mutex);
  83
  84         SUPER();
  85         pt_add_to_interpreters(INTERP, PMC_interp(SELF));
  86
  87         UNLOCK(interpreter_array_mutex);
  88
  89         /* can't allow GC runs for now */
  90         stop_GC(INTERP, PMC_interp(SELF));
  91     }
  92 }
  93
  94 /*
  95
  96 =back
  97
  98 =cut
  99
 100 */
 101
 102 /*
 103  * Local variables:
 104  *   c-file-style: "parrot"
 105  * End:
 106  * vim: expandtab shiftwidth=4:
 107  */