summaryrefslogtreecommitdiff
path: root/mathoms.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-01-02 19:13:12 +0000
committerNicholas Clark <nick@ccl4.org>2011-01-09 09:04:40 +0000
commit9561d06f3dc19930c1acfa8c2e046c80782cb876 (patch)
treeca57dd751a9c5896ba414d029712a7b82b4d54c8 /mathoms.c
parentf1aaabf80b19a3cc6dc435510732b561ab46361e (diff)
downloadperl-9561d06f3dc19930c1acfa8c2e046c80782cb876.tar.gz
Replace OP stubs in mathoms.c with #define aliases in opcode.h
External code that references OPs by name will still link (and work). Unlike the other compatibility functions in mathoms.c, the OP stubs were simply making calls onwards to their replacements, so simply taking up space without adding anything.
Diffstat (limited to 'mathoms.c')
-rw-r--r--mathoms.c438
1 files changed, 0 insertions, 438 deletions
diff --git a/mathoms.c b/mathoms.c
index f9c2ad380d..ceab0c5e0a 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -700,444 +700,6 @@ Perl_init_i18nl14n(pTHX_ int printwarn)
return init_i18nl10n(printwarn);
}
-PP(pp_padany)
-{
- DIE(aTHX_ "NOT IMPL LINE %d",__LINE__);
-}
-
-PP(pp_mapstart)
-{
- DIE(aTHX_ "panic: mapstart"); /* uses grepstart */
-}
-
-/* These ops all have the same body as pp_null. */
-PP(pp_scalar)
-{
- dVAR;
- return NORMAL;
-}
-
-PP(pp_regcmaybe)
-{
- dVAR;
- return NORMAL;
-}
-
-PP(pp_lineseq)
-{
- dVAR;
- return NORMAL;
-}
-
-PP(pp_scope)
-{
- dVAR;
- return NORMAL;
-}
-
-/* Ops that are calls to do_kv. */
-PP(pp_values)
-{
- return do_kv();
-}
-
-PP(pp_keys)
-{
- return do_kv();
-}
-
-/* Ops that are simply calls to other ops. */
-PP(pp_dump)
-{
- return pp_goto();
- /*NOTREACHED*/
-}
-
-PP(pp_dofile)
-{
- return pp_require();
-}
-
-PP(pp_dbmclose)
-{
- return pp_untie();
-}
-
-PP(pp_read)
-{
- return pp_sysread();
-}
-
-PP(pp_recv)
-{
- return pp_sysread();
-}
-
-PP(pp_seek)
-{
- return pp_sysseek();
-}
-
-PP(pp_fcntl)
-{
- return pp_ioctl();
-}
-
-PP(pp_gsockopt)
-{
- return pp_ssockopt();
-}
-
-PP(pp_getsockname)
-{
- return pp_getpeername();
-}
-
-PP(pp_lstat)
-{
- return pp_stat();
-}
-
-PP(pp_fteowned)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftbinary)
-{
- return pp_fttext();
-}
-
-PP(pp_localtime)
-{
- return pp_gmtime();
-}
-
-PP(pp_shmget)
-{
- return pp_semget();
-}
-
-PP(pp_shmctl)
-{
- return pp_semctl();
-}
-
-PP(pp_shmread)
-{
- return pp_shmwrite();
-}
-
-PP(pp_msgget)
-{
- return pp_semget();
-}
-
-PP(pp_msgctl)
-{
- return pp_semctl();
-}
-
-PP(pp_ghbyname)
-{
- return pp_ghostent();
-}
-
-PP(pp_ghbyaddr)
-{
- return pp_ghostent();
-}
-
-PP(pp_gnbyname)
-{
- return pp_gnetent();
-}
-
-PP(pp_gnbyaddr)
-{
- return pp_gnetent();
-}
-
-PP(pp_gpbyname)
-{
- return pp_gprotoent();
-}
-
-PP(pp_gpbynumber)
-{
- return pp_gprotoent();
-}
-
-PP(pp_gsbyname)
-{
- return pp_gservent();
-}
-
-PP(pp_gsbyport)
-{
- return pp_gservent();
-}
-
-PP(pp_gpwnam)
-{
- return pp_gpwent();
-}
-
-PP(pp_gpwuid)
-{
- return pp_gpwent();
-}
-
-PP(pp_ggrnam)
-{
- return pp_ggrent();
-}
-
-PP(pp_ggrgid)
-{
- return pp_ggrent();
-}
-
-PP(pp_ftsize)
-{
- return pp_ftis();
-}
-
-PP(pp_ftmtime)
-{
- return pp_ftis();
-}
-
-PP(pp_ftatime)
-{
- return pp_ftis();
-}
-
-PP(pp_ftctime)
-{
- return pp_ftis();
-}
-
-PP(pp_ftzero)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftsock)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftchr)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftblk)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftfile)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftdir)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftpipe)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftsuid)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftsgid)
-{
- return pp_ftrowned();
-}
-
-PP(pp_ftsvtx)
-{
- return pp_ftrowned();
-}
-
-PP(pp_unlink)
-{
- return pp_chown();
-}
-
-PP(pp_chmod)
-{
- return pp_chown();
-}
-
-PP(pp_utime)
-{
- return pp_chown();
-}
-
-PP(pp_kill)
-{
- return pp_chown();
-}
-
-PP(pp_symlink)
-{
- return pp_link();
-}
-
-PP(pp_ftrwrite)
-{
- return pp_ftrread();
-}
-
-PP(pp_ftrexec)
-{
- return pp_ftrread();
-}
-
-PP(pp_fteread)
-{
- return pp_ftrread();
-}
-
-PP(pp_ftewrite)
-{
- return pp_ftrread();
-}
-
-PP(pp_fteexec)
-{
- return pp_ftrread();
-}
-
-PP(pp_msgsnd)
-{
- return pp_shmwrite();
-}
-
-PP(pp_msgrcv)
-{
- return pp_shmwrite();
-}
-
-PP(pp_syswrite)
-{
- return pp_send();
-}
-
-PP(pp_semop)
-{
- return pp_shmwrite();
-}
-
-PP(pp_dor)
-{
- return pp_defined();
-}
-
-PP(pp_andassign)
-{
- return pp_and();
-}
-
-PP(pp_orassign)
-{
- return pp_or();
-}
-
-PP(pp_dorassign)
-{
- return pp_defined();
-}
-
-PP(pp_lcfirst)
-{
- return pp_ucfirst();
-}
-
-PP(pp_slt)
-{
- return pp_sle();
-}
-
-PP(pp_sgt)
-{
- return pp_sle();
-}
-
-PP(pp_sge)
-{
- return pp_sle();
-}
-
-PP(pp_rindex)
-{
- return pp_index();
-}
-
-PP(pp_hex)
-{
- return pp_oct();
-}
-
-PP(pp_pop)
-{
- return pp_shift();
-}
-
-PP(pp_cos)
-{
- return pp_sin();
-}
-
-PP(pp_exp)
-{
- return pp_sin();
-}
-
-PP(pp_log)
-{
- return pp_sin();
-}
-
-PP(pp_sqrt)
-{
- return pp_sin();
-}
-
-PP(pp_bit_xor)
-{
- return pp_bit_or();
-}
-
-PP(pp_rv2hv)
-{
- return Perl_pp_rv2av(aTHX);
-}
-
-PP(pp_schomp)
-{
- return Perl_pp_chomp(aTHX);
-}
-
-PP(pp_chomp)
-{
- return Perl_pp_chop(aTHX);
-}
-
-PP(pp_connect)
-{
- return Perl_pp_bind(aTHX);
-}
-
U8 *
Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
{