Index: src/sub.c =================================================================== --- src/sub.c (revision 40901) +++ src/sub.c (working copy) @@ -127,52 +127,9 @@ /* -=item C -Returns a new C to the context of C with its own copy of the -current interpreter context. If C is C, then the C is set -to the current context. - -=cut - -*/ - -PARROT_MALLOC -PARROT_CANNOT_RETURN_NULL -PMC * -new_continuation(PARROT_INTERP, ARGIN_NULLOK(PMC *to)) -{ - ASSERT_ARGS(new_continuation) - - PMC * const cc = to ? - constant_pmc_new_init(interp, enum_class_Continuation, to) : - constant_pmc_new(interp, enum_class_Continuation); - return cc; -} - /* -=item C - -Returns a new RetContinuation C pointing to the current context. - -=cut - -*/ - -PARROT_MALLOC -PARROT_CANNOT_RETURN_NULL -PMC * -new_ret_continuation(PARROT_INTERP) -{ - ASSERT_ARGS(new_ret_continuation) - PMC * const cc = pmc_new(interp, enum_class_RetContinuation); - return cc; -} - - -/* - =item C Returns a new C PMC, and sets address field to C
Index: include/parrot/sub.h =================================================================== --- include/parrot/sub.h (revision 40901) +++ include/parrot/sub.h (working copy) @@ -223,17 +223,7 @@ FUNC_MODIFIES(* ctx); void mark_context_start(void); -PARROT_MALLOC -PARROT_CANNOT_RETURN_NULL -PMC * new_continuation(PARROT_INTERP, - ARGIN_NULLOK(PMC *to)) - __attribute__nonnull__(1); -PARROT_MALLOC -PARROT_CANNOT_RETURN_NULL -PMC * new_ret_continuation(PARROT_INTERP) - __attribute__nonnull__(1); - void Parrot_capture_lex(PARROT_INTERP, ARGMOD(PMC *sub_pmc)) __attribute__nonnull__(1) __attribute__nonnull__(2)