This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Took out mystack_foo for good, fixed up interp.sym and win32/makedef.pl
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Fri, 10 Oct 1997 08:12:23 +0000 (08:12 +0000)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Fri, 10 Oct 1997 08:12:23 +0000 (08:12 +0000)
p4raw-id: //depot/perl@117

Todo.5.005
embed.h
interp.sym
perl.h
win32/makedef.pl

index 4bb732c..34bb322 100644 (file)
@@ -6,7 +6,6 @@ Merging
 
 Multi-threading
     without USE_THREADS, change extern variable for dTHR
-    sv_mutex initialisation and race
     consistent semantics for exit/die in threads
     pp_entersub still cloning XSUBs (broken)?
     test '~'-magic thread addresses
@@ -18,7 +17,6 @@ Multi-threading
     more Configure support
 
 Miscellaneous
-    sv_bless3 and '~'-magic to give choice on reblessing
     rename and alter ISA.pm
 
 Compiler
diff --git a/embed.h b/embed.h
index 824f933..a824b0a 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define sig_name               Perl_sig_name
 #define sig_num                        Perl_sig_num
 #define sighandler             Perl_sighandler
+#define sighandlerp            Perl_sighandlerp
 #define simple                 Perl_simple
 #define sin_amg                        Perl_sin_amg
 #define skipspace              Perl_skipspace
 #define sv_add_arena           Perl_sv_add_arena
 #define sv_backoff             Perl_sv_backoff
 #define sv_bless               Perl_sv_bless
-#define sv_bless3              Perl_sv_bless3
 #define sv_catpv               Perl_sv_catpv
 #define sv_catpvf              Perl_sv_catpvf
 #define sv_catpvn              Perl_sv_catpvn
 #define minus_n                        (curinterp->Iminus_n)
 #define minus_p                        (curinterp->Iminus_p)
 #define multiline              (curinterp->Imultiline)
-#define mystack_base           (curinterp->Imystack_base)
-#define mystack_mark           (curinterp->Imystack_mark)
-#define mystack_max            (curinterp->Imystack_max)
-#define mystack_sp             (curinterp->Imystack_sp)
 #define mystrk                 (curinterp->Imystrk)
 #define nrs                    (curinterp->Inrs)
 #define ofmt                   (curinterp->Iofmt)
 #define Iminus_n               minus_n
 #define Iminus_p               minus_p
 #define Imultiline             multiline
-#define Imystack_base          mystack_base
-#define Imystack_mark          mystack_mark
-#define Imystack_max           mystack_max
-#define Imystack_sp            mystack_sp
 #define Imystrk                        mystrk
 #define Inrs                   nrs
 #define Iofmt                  ofmt
 #define minus_n                        Perl_minus_n
 #define minus_p                        Perl_minus_p
 #define multiline              Perl_multiline
-#define mystack_base           Perl_mystack_base
-#define mystack_mark           Perl_mystack_mark
-#define mystack_max            Perl_mystack_max
-#define mystack_sp             Perl_mystack_sp
 #define mystrk                 Perl_mystrk
 #define nrs                    Perl_nrs
 #define ofmt                   Perl_ofmt
index 7da031c..00eee65 100644 (file)
@@ -87,10 +87,6 @@ minus_l
 minus_n
 minus_p
 multiline
-mystack_base
-mystack_mark
-mystack_max
-mystack_sp
 mystrk
 nrs
 ofmt
diff --git a/perl.h b/perl.h
index 62623af..99a027c 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1926,11 +1926,6 @@ IEXT I32 Irunlevel;
 /* stack stuff */
 IEXT AV *      Icurstack;              /* THE STACK */
 IEXT AV *      Imainstack;     /* the stack when nothing funny is happening */
-#if 0
-IEXT SV **     Imystack_base;  /* stack->array_ary */
-IEXT SV **     Imystack_sp;    /* stack pointer now */
-IEXT SV **     Imystack_max;   /* stack->array_ary + stack->array_max */
-#endif
 
 /* format accumulators */
 IEXT SV *      Iformtarget;
index b4883cc..04e6fd9 100644 (file)
@@ -136,6 +136,11 @@ Perl_my_memcmp
 Perl_my_memset
 Perl_cshlen
 Perl_cshname
+Perl_condpair_magic
+Perl_magic_mutexfree
+Perl_opsave
+Perl_unlock_condpair
+Perl_vtbl_mutex
 !END!OF!SKIP!
 
 # All symbols have a Perl_ prefix because that's what embed.h