From 0b1df540cb01b2a345c64522deb27192c9a46a88 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Wed, 17 Sep 2025 06:56:49 -0600
Subject: [PATCH] perlintern: document newFORM

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.
---
 embed.fnc | 2 +-
 op.c      | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/embed.fnc b/embed.fnc
index 4eb1df93843a..9c6b78445d2c 100644
--- 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
index cb232fa86138..72d9c4555464 100644
--- 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)
 {