[ViewVC] Diff of: cvs/Coro/Coro/State.xs

Comparing Coro/Coro/State.xs (file contents):
Revision 1.103 by root, Mon Nov 27 01:33:30 2006 UTC vs.
Revision 1.104 by root, Mon Nov 27 01:51:02 2006 UTC

 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
 #include "patchlevel.h"
+#if USE_VALGRIND
+# include <valgrind/valgrind.h>
+#endif
 #define PERL_VERSION_ATLEAST(a,b,c)				\
   (PERL_REVISION > (a)						\
    || (PERL_REVISION == (a)					\
        && (PERL_VERSION > (b)					\
   /* cpu state */
   void *idle_sp; /* sp of top-level transfer/schedule/cede call */
   JMPENV *top_env;
   coro_context cctx;
+#if USE_VALGRIND
+  int valgrind_id;
+#endif
 } coro_stack;
 /* this is a structure representing a perl-level coroutine */
 struct coro {
   /* the c coroutine allocated to this perl coroutine, if any */
       _exit (EXIT_FAILURE);
     }
 #endif
+#if USE_VALGRIND
+  stack->valgrind_id = VALGRIND_STACK_REGISTER (
+     STACKGUARD * PAGESIZE + (char *)stack->sptr,
+     stack->ssize          + (char *)stack->sptr
+  );
+#endif
   coro_create (&stack->cctx, coro_run, (void *)stack, stack->sptr, stack->ssize);
   return stack;
 }
 static void
 stack_free (coro_stack *stack)
 {
   if (!stack)
     return;
+#if USE_VALGRIND
+  VALGRIND_STACK_DEREGISTER (stack->valgrind_id);
+#endif
 #if HAVE_MMAP
   munmap (stack->sptr, stack->ssize);
 #else
   Safefree (stack->sptr);

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines