X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f58ed7c7a9dd599e7a924a2105851c697f4f9d87..02b54f9d07226e99a30271314e02617d5629b511:/pp.h diff --git a/pp.h b/pp.h index 29dbc76..65d07ce 100644 --- a/pp.h +++ b/pp.h @@ -398,7 +398,7 @@ Does not use C. See also C>, C> and C>. # define EXTEND_SKIP(p, n) STMT_START { \ EXTEND_HWM_SET(p, n); \ assert(!_EXTEND_NEEDS_GROW(p,n)); \ - } STMT_END + } STMT_END # define EXTEND(p,n) STMT_START { \ @@ -406,7 +406,8 @@ Does not use C. See also C>, C> and C>. if (UNLIKELY(_EXTEND_NEEDS_GROW(p,n))) { \ sp = stack_grow(sp,p,_EXTEND_SAFE_N(n)); \ PERL_UNUSED_VAR(sp); \ - } } STMT_END + } \ + } STMT_END /* Same thing, but update mark register too. */ # define MEXTEND(p,n) STMT_START { \ EXTEND_HWM_SET(p, n); \ @@ -415,7 +416,8 @@ Does not use C. See also C>, C> and C>. sp = stack_grow(sp,p,_EXTEND_SAFE_N(n)); \ mark = PL_stack_base + markoff; \ PERL_UNUSED_VAR(sp); \ - } } STMT_END + } \ + } STMT_END #endif