diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-08-08 15:01:48 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-08-08 17:54:36 +0100 |
| commit | 85dca89a8f321bc581a3d365d95ab0c56368ed78 (patch) | |
| tree | ca2336c2dad9d00e09d0201a98a2bb4107890f3f /embed.h | |
| parent | d5713896ecd1399c9c6c4076514a33eb2880d8c3 (diff) | |
| download | perl-85dca89a8f321bc581a3d365d95ab0c56368ed78.tar.gz | |
Perl_newIO() can become a mathom by making newIO() a wrapper around newSV_type()
and tweaking Perl_sv_upgrade().
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -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) |