[parser] new_block_statement - deduplicate "a block is a loop that happens once"

Author: Branislav Zahradník

embed.fnc

@@ -2292,6 +2292,9 @@ ARdp	|OP *	|newBINOP	|I32 type				\
 				|I32 flags				\
 				|NULLOK OP *first			\
 				|NULLOK OP *last
+dp	|OP *	|new_block_statement					\
+				|NN OP *block				\
+				|NULLOK OP *cont
 ARdp	|OP *	|newCONDOP	|I32 flags				\
 				|NN OP *first				\
 				|NULLOK OP *trueop			\

embed.h

@@ -1109,6 +1109,7 @@
 #   define newSVavdefelem(a,b,c)                Perl_newSVavdefelem(aTHX_ a,b,c)
 #   define newXS_deffile(a,b)                   Perl_newXS_deffile(aTHX_ a,b)
 #   define newXS_len_flags(a,b,c,d,e,f,g)       Perl_newXS_len_flags(aTHX_ a,b,c,d,e,f,g)
+#   define new_block_statement(a,b)             Perl_new_block_statement(aTHX_ a,b)
 #   define nextargv(a,b)                        Perl_nextargv(aTHX_ a,b)
 #   define no_bareword_filehandle(a)            Perl_no_bareword_filehandle(aTHX_ a)
 #   define noperl_die                           Perl_noperl_die

op.c

@@ -4700,6 +4700,24 @@ Perl_block_end(pTHX_ I32 floor, OP *seq)
     return retval;
 }
 
+/*
+=for apidoc new_block_statement
+
+Returns a C<OP *> representing block as statement.
+Block is a loop that happens once.
+
+Available since: v5.44
+
+=cut
+*/
+
+OP*
+Perl_new_block_statement (pTHX_ OP *block, OP *cont)
+{
+    PERL_ARGS_ASSERT_NEW_BLOCK_STATEMENT;
+
+    return newWHILEOP (0, 1, NULL, NULL, block, cont, 0);
+}
 /*
 =for apidoc_section $scope