perlintern: document newFORM

khwilliamson · khwilliamson · commit 0b1df540cb01 · 2025-09-17T09:52:57.000-06:00
This follows the same paradigm as various similar functions that are in
perlapi.  This commit is from 2022, and I no longer remember why it goes
in perlintern, or if that is a mistake.
diff --git a/embed.fnc b/embed.fnc
@@ -2224,7 +2224,7 @@ ARdp	|OP *	|newCVREF	|I32 flags				\
 ARdpx	|OP *	|newDEFEROP	|I32 flags				\
 				|NN OP *block
 ARdp	|OP *	|newDEFSVOP
-Cp	|void	|newFORM	|I32 floor				\
+Cdp	|void	|newFORM	|I32 floor				\
 				|NULLOK OP *o				\
 				|NULLOK OP *block
 ARdp	|OP *	|newFOROP	|I32 flags				\
diff --git a/op.c b/op.c
@@ -12235,6 +12235,14 @@ Perl_newSTUB(pTHX_ GV *gv, bool fake)
     return cv;
 }
 
+/*
+=for apidoc newFORM
+
+Constructs, checks, and returns a format op.
+
+=cut
+*/
+
 void
 Perl_newFORM(pTHX_ I32 floor, OP *o, OP *block)
 {

Original file line number	Diff line number	Diff line change
`@@ -12235,6 +12235,14 @@ Perl_newSTUB(pTHX_ GV *gv, bool fake)`
`12235`	`12235`	`return cv;`
`12236`	`12236`	`}`
`12237`	`12237`
	`12238`	`+/*`
	`12239`	`+=for apidoc newFORM`
	`12240`	`+`
	`12241`	`+Constructs, checks, and returns a format op.`
	`12242`	`+`
	`12243`	`+=cut`
	`12244`	`+*/`
	`12245`	`+`
`12238`	`12246`	`void`
`12239`	`12247`	`Perl_newFORM(pTHX_ I32 floor, OP o, OP block)`
`12240`	`12248`	`{`