X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mathoms.c;h=3636a9b0fe9c757eb1f4e59d0dbc13c0b2ce68d7;hb=abbb319842d03cfdb615b06ae57e058d7e36b88c;hp=e814a80f895bf6265b5553d6da02b0bea461c62a;hpb=17ad201a5d2de952269cf4eeb85881a49a9c3867;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mathoms.c b/mathoms.c
index e814a80..3636a9b 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1,6 +1,6 @@
 /*    mathoms.c
  *
- *    Copyright (C) 2005, by Larry Wall and others
+ *    Copyright (C) 2005, 2006, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -14,6 +14,8 @@
  * hand to hand were of that sort." 
  */
 
+#ifndef NO_MATHOMS
+
 /* 
  * This file contains mathoms, various binary artifacts from previous
  * versions of Perl.  For binary or source compatibility reasons, though,
@@ -63,7 +65,7 @@ Taint an SV. Use C<SvTAINTED_on> instead.
 void
 Perl_sv_taint(pTHX_ SV *sv)
 {
-    sv_magic((sv), Nullsv, PERL_MAGIC_taint, Nullch, 0);
+    sv_magic((sv), NULL, PERL_MAGIC_taint, NULL, 0);
 }
 
 /* sv_2iv() is now a macro using Perl_sv_2iv_flags();
@@ -433,10 +435,11 @@ Perl_printf_nocontext(const char *format, ...)
 NV
 Perl_huge(void)
 {
-#   if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
+#  if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL)
     return HUGE_VALL;
-#   endif
+#  else
     return HUGE_VAL;
+#  endif
 }
 #endif
 
@@ -489,7 +492,7 @@ Perl_hv_iternext(pTHX_ HV *hv)
 void
 Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how)
 {
-    sv_magic((SV*)hv, (SV*)gv, how, Nullch, 0);
+    sv_magic((SV*)hv, (SV*)gv, how, NULL, 0);
 }
 
 #if 0 /* use the macro from hv.h instead */
@@ -506,7 +509,7 @@ AV *
 Perl_av_fake(pTHX_ register I32 size, register SV **strp)
 {
     register SV** ary;
-    register AV * const av = (AV*)NEWSV(9,0);
+    register AV * const av = (AV*)newSV(0);
 
     sv_upgrade((SV *)av, SVt_PVAV);
     Newx(ary,size+1,SV*);
@@ -577,6 +580,7 @@ Perl_do_exec(pTHX_ const char *cmd)
 void
 Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv)
 {
+    dVAR;
     register IO *rstio;
     register IO *wstio;
     int fd[2];
@@ -670,21 +674,25 @@ PP(pp_mapstart)
 /* 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;
 }
 
@@ -921,6 +929,156 @@ 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();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {
@@ -948,6 +1106,7 @@ potentially warn under some level of strict-ness.
 void
 Perl_sv_nolocking(pTHX_ SV *sv)
 {
+    PERL_UNUSED_CONTEXT;
     PERL_UNUSED_ARG(sv);
 }
 
@@ -967,9 +1126,87 @@ potentially warn under some level of strict-ness.
 void
 Perl_sv_nounlocking(pTHX_ SV *sv)
 {
+    PERL_UNUSED_CONTEXT;
     PERL_UNUSED_ARG(sv);
 }
 
+void
+Perl_save_long(pTHX_ long int *longp)
+{
+    dVAR;
+    SSCHECK(3);
+    SSPUSHLONG(*longp);
+    SSPUSHPTR(longp);
+    SSPUSHINT(SAVEt_LONG);
+}
+
+void
+Perl_save_I16(pTHX_ I16 *intp)
+{
+    dVAR;
+    SSCHECK(3);
+    SSPUSHINT(*intp);
+    SSPUSHPTR(intp);
+    SSPUSHINT(SAVEt_I16);
+}
+
+void
+Perl_save_I8(pTHX_ I8 *bytep)
+{
+    dVAR;
+    SSCHECK(3);
+    SSPUSHINT(*bytep);
+    SSPUSHPTR(bytep);
+    SSPUSHINT(SAVEt_I8);
+}
+
+void
+Perl_save_iv(pTHX_ IV *ivp)
+{
+    dVAR;
+    SSCHECK(3);
+    SSPUSHIV(*ivp);
+    SSPUSHPTR(ivp);
+    SSPUSHINT(SAVEt_IV);
+}
+
+void
+Perl_save_nogv(pTHX_ GV *gv)
+{
+    dVAR;
+    SSCHECK(2);
+    SSPUSHPTR(gv);
+    SSPUSHINT(SAVEt_NSTAB);
+}
+
+void
+Perl_save_list(pTHX_ register SV **sarg, I32 maxsarg)
+{
+    dVAR;
+    register I32 i;
+
+    for (i = 1; i <= maxsarg; i++) {
+	register SV * const sv = newSV(0);
+	sv_setsv(sv,sarg[i]);
+	SSCHECK(3);
+	SSPUSHPTR(sarg[i]);		/* remember the pointer */
+	SSPUSHPTR(sv);			/* remember the value */
+	SSPUSHINT(SAVEt_ITEM);
+    }
+}
+
+void
+Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
+{
+    dVAR;
+    SSCHECK(3);
+    SSPUSHDPTR(f);
+    SSPUSHPTR(p);
+    SSPUSHINT(SAVEt_DESTRUCTOR);
+}
+
+#endif /* NO_MATHOMS */
+
 /*
  * Local variables:
  * c-indentation-style: bsd