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

khwilliamson · khwilliamson · commit f841c175ef6b · 2024-11-17T13:57:21.000-07:00
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 number	Diff line change
`@@ -135,12 +135,6 @@ Perl_sv_nounlocking(pTHX_ SV *sv)`
`135`	`135`	`PERL_UNUSED_ARG(sv);`
`136`	`136`	`}`
`137`	`137`
`138`		`-IO *`
`139`		`-Perl_newIO(pTHX)`
`140`		`-{`
`141`		`- return MUTABLE_IO(newSV_type(SVt_PVIO));`
`142`		`-}`
`143`		`-`
`144`	`138`	`I32`
`145`	`139`	`Perl_my_stat(pTHX)`
`146`	`140`	`{`