Move Perl_newIO() from mathoms to macro in sv.h

Perl · Nov 17, 2024 · f841c17 · f841c17
1 parent 354c4cb
commit f841c17
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 13 deletions.
diff --git a/embed.fnc b/embed.fnc
@@ -2209,7 +2209,7 @@ ARdp	|OP *	|newGVREF	|I32 type				\
 ARdmp	|HV *	|newHV
 ARdp	|HV *	|newHVhv	|NULLOK HV *hv
 ARdp	|OP *	|newHVREF	|NN OP *o
-AMRbdp	|IO *	|newIO
+ARdmp	|IO *	|newIO
 ARdp	|OP *	|newLISTOP	|I32 type				\
 				|I32 flags				\
 				|NULLOK OP *first			\

diff --git a/embed.h b/embed.h
@@ -424,6 +424,7 @@
 # define newHV()                                Perl_newHV(aTHX)
 # define newHVREF(a)                            Perl_newHVREF(aTHX_ a)
 # define newHVhv(a)                             Perl_newHVhv(aTHX_ a)
+# define newIO()                                Perl_newIO(aTHX)
 # define newLISTOP(a,b,c,d)                     Perl_newLISTOP(aTHX_ a,b,c,d)
 # define newLISTOPn(a,...)                      Perl_newLISTOPn(aTHX_ a,__VA_ARGS__)
 # define newLOGOP(a,b,c,d)                      Perl_newLOGOP(aTHX_ a,b,c,d)

diff --git a/mathoms.c b/mathoms.c
@@ -135,12 +135,6 @@ Perl_sv_nounlocking(pTHX_ SV *sv)
     PERL_UNUSED_ARG(sv);
 }
 
-IO *
-Perl_newIO(pTHX)
-{
-    return MUTABLE_IO(newSV_type(SVt_PVIO));
-}
-
 I32
 Perl_my_stat(pTHX)
 {

diff --git a/proto.h b/proto.h
diff --git a/sv.h b/sv.h
@@ -2731,7 +2731,7 @@ Create a new IO, setting the reference count to 1.
 
 =cut
 */
-#define newIO()	MUTABLE_IO(newSV_type(SVt_PVIO))
+#define Perl_newIO(mTHX)  MUTABLE_IO(Perl_newSV_type(aTHX_ SVt_PVIO))
 
 #if defined(PERL_CORE) || defined(PERL_EXT)
-Original file line number
+Diff line change
@@ Expand Up / @@ -2731,7 +2731,7 @@ Create a new IO, setting the reference count to 1. @@
     =cut
     */
-    #define newIO()	MUTABLE_IO(newSV_type(SVt_PVIO))
+    #define Perl_newIO(mTHX)  MUTABLE_IO(Perl_newSV_type(aTHX_ SVt_PVIO))
     #if defined(PERL_CORE) || defined(PERL_EXT)
@@ Expand Down @@