From 85dca89a8f321bc581a3d365d95ab0c56368ed78 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 8 Aug 2009 15:01:48 +0100 Subject: Perl_newIO() can become a mathom by making newIO() a wrapper around newSV_type() and tweaking Perl_sv_upgrade(). --- embed.h | 2 -- 1 file changed, 2 deletions(-) (limited to 'embed.h') diff --git a/embed.h b/embed.h index ae708d6b2c..e1e6420b61 100644 --- a/embed.h +++ b/embed.h @@ -570,7 +570,6 @@ #define newGVREF Perl_newGVREF #define newHVREF Perl_newHVREF #define newHVhv Perl_newHVhv -#define newIO Perl_newIO #define newLISTOP Perl_newLISTOP #ifdef USE_ITHREADS #define newPADOP Perl_newPADOP @@ -2907,7 +2906,6 @@ #define newGVREF(a,b) Perl_newGVREF(aTHX_ a,b) #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) #ifdef USE_ITHREADS #define newPADOP(a,b,c) Perl_newPADOP(aTHX_ a,b,c) -- cgit v1.2.1