From a89a577c8be85f372752dd64d08881301d75ef3f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppi...@redhat.com> Date: Tue, 23 May 2017 17:14:19 +0200 Subject: Remove stray Coro-6.49-perl_5_24.patch patch
--- Coro-6.49-perl_5_24.patch | 143 ---------------------------------------------- 1 file changed, 143 deletions(-) delete mode 100644 Coro-6.49-perl_5_24.patch diff --git a/Coro-6.49-perl_5_24.patch b/Coro-6.49-perl_5_24.patch deleted file mode 100644 index 2a5c7ff..0000000 --- a/Coro-6.49-perl_5_24.patch +++ /dev/null @@ -1,143 +0,0 @@ -Description: fix for Coro with 5.22 and 5.24 -Bug: https://rt.cpan.org/Public/Bug/Display.html?id=101063 -Bug-Debian: https://bugs.debian.org/787500 -Author: Anonymous -Origin: https://paste.debian.net/688072 -Last-Update: 2016-05-20 - -Petr Pisar: perlish_exit() changes reverted as they causes Perl panic in -t/12_exit.t on i686. - ---- a/Coro/State.xs -+++ b/Coro/State.xs -@@ -39,6 +39,10 @@ - #ifdef PadARRAY - # define NEWPADAPI 1 - # define newPADLIST(var) (Newz (0, var, 1, PADLIST), Newx (PadlistARRAY (var), 2, PAD *)) -+# if PERL_VERSION_ATLEAST(5,22,0) && !PERL_VERSION_ATLEAST(5,24,0) -+# undef PadlistNAMES -+# define PadlistNAMES(pl) *((PADNAMELIST **)PadlistARRAY(pl)) -+# endif - #else - typedef AV PADNAMELIST; - # if !PERL_VERSION_ATLEAST(5,8,0) -@@ -951,7 +955,13 @@ coro_init_stacks (pTHX) - - New(54,PL_savestack,24,ANY); - PL_savestack_ix = 0; -+#ifdef SS_MAXPUSH -+ /* Of course, if you clone the code, you have to track the changes... */ -+ /*PL_savestack_max lies: it always has SS_MAXPUSH more than it claims */ -+ PL_savestack_max = 24 - SS_MAXPUSH; -+#else - PL_savestack_max = 24; -+#endif - - #if !PERL_VERSION_ATLEAST (5,10,0) - New(54,PL_retstack,4,OP*); -@@ -1029,10 +1039,6 @@ coro_rss (pTHX_ struct coro *coro) - - /** coroutine stack handling ************************************************/ - --static int (*orig_sigelem_get) (pTHX_ SV *sv, MAGIC *mg); --static int (*orig_sigelem_set) (pTHX_ SV *sv, MAGIC *mg); --static int (*orig_sigelem_clr) (pTHX_ SV *sv, MAGIC *mg); -- - /* apparently < 5.8.8 */ - #ifndef MgPV_nolen_const - #define MgPV_nolen_const(mg) (((((int)(mg)->mg_len)) == HEf_SVKEY) ? \ -@@ -1074,7 +1080,7 @@ coro_sigelem_get (pTHX_ SV *sv, MAGIC *m - } - } - -- return orig_sigelem_get ? orig_sigelem_get (aTHX_ sv, mg) : 0; -+ return PL_vtbl_sigelem.svt_get ? PL_vtbl_sigelem.svt_get (aTHX_ sv, mg) : 0; - } - - static int ecb_cold -@@ -1098,7 +1104,7 @@ coro_sigelem_clr (pTHX_ SV *sv, MAGIC *m - } - } - -- return orig_sigelem_clr ? orig_sigelem_clr (aTHX_ sv, mg) : 0; -+ return PL_vtbl_sigelem.svt_clear ? PL_vtbl_sigelem.svt_clear (aTHX_ sv, mg) : 0; - } - - static int ecb_cold -@@ -1122,9 +1128,42 @@ coro_sigelem_set (pTHX_ SV *sv, MAGIC *m - } - } - -- return orig_sigelem_set ? orig_sigelem_set (aTHX_ sv, mg) : 0; -+ return PL_vtbl_sigelem.svt_set ? PL_vtbl_sigelem.svt_set (aTHX_ sv, mg) : 0; -+} -+ -+static MGVTBL sigelem_vtbl = { -+ coro_sigelem_get, /* get */ -+ coro_sigelem_set, /* set */ -+ 0, /* len */ -+ coro_sigelem_clr, /* clear */ -+ 0, /* free */ -+ 0, /* copy */ -+ 0, /* dup */ -+#ifdef MGf_LOCAL -+ 0, /* local */ -+#endif -+}; -+ -+static int ecb_cold -+coro_sig_copy (pTHX_ SV *sv, MAGIC *mg, SV *nsv, const char *key, I32 klen) -+{ -+ sv_magicext (nsv, mg->mg_obj, 'u', &sigelem_vtbl, key, klen); -+ return 1; - } - -+static MGVTBL sig_vtbl = { -+ 0, /* get */ -+ 0, /* set */ -+ 0, /* len */ -+ 0, /* clear */ -+ 0, /* free */ -+ coro_sig_copy, /* copy */ -+ 0, /* dup */ -+#ifdef MGf_LOCAL -+ 0, /* local */ -+#endif -+}; -+ - static void - prepare_nop (pTHX_ struct coro_transfer_args *ta) - { -@@ -1395,7 +1434,11 @@ runops_trace (pTHX) - PUSHMARK (SP); - PUSHs (&PL_sv_yes); - PUSHs (fullname); -+# if PERL_VERSION_ATLEAST(5,24,0) -+ PUSHs (CxHASARGS (cx) ? sv_2mortal (newRV_inc (PL_curpad[0])) : &PL_sv_undef); -+#else - PUSHs (CxHASARGS (cx) ? sv_2mortal (newRV_inc ((SV *)cx->blk_sub.argarray)) : &PL_sv_undef); -+#endif - PUTBACK; - cb = hv_fetch ((HV *)SvRV (coro_current), "_trace_sub_cb", sizeof ("_trace_sub_cb") - 1, 0); - if (cb) call_sv (*cb, G_KEEPERR | G_EVAL | G_VOID | G_DISCARD); -@@ -3596,15 +3643,16 @@ BOOT: - DEFSV; - ERRSV; - -+ HV *sig = GvHV (gv_fetchpv ("SIG", GV_ADD|GV_NOTQUAL, SVt_PVHV)); -+ -+ sv_unmagic ((SV *)sig, PERL_MAGIC_sig); -+ sv_magicext ((SV *)sig, NULL, PERL_MAGIC_uvar, &sig_vtbl, NULL, 0)->mg_flags |= MGf_COPY; -+ - cctx_current = cctx_new_empty (); - - irsgv = gv_fetchpv ("/" , GV_ADD|GV_NOTQUAL, SVt_PV); - stdoutgv = gv_fetchpv ("STDOUT", GV_ADD|GV_NOTQUAL, SVt_PVIO); - -- orig_sigelem_get = PL_vtbl_sigelem.svt_get; PL_vtbl_sigelem.svt_get = coro_sigelem_get; -- orig_sigelem_set = PL_vtbl_sigelem.svt_set; PL_vtbl_sigelem.svt_set = coro_sigelem_set; -- orig_sigelem_clr = PL_vtbl_sigelem.svt_clear; PL_vtbl_sigelem.svt_clear = coro_sigelem_clr; -- - rv_diehook = newRV_inc ((SV *)gv_fetchpv ("Coro::State::diehook" , 0, SVt_PVCV)); - rv_warnhook = newRV_inc ((SV *)gv_fetchpv ("Coro::State::warnhook", 0, SVt_PVCV)); - -- cgit v1.1 https://src.fedoraproject.org/cgit/perl-Coro.git/commit/?h=master&id=a89a577c8be85f372752dd64d08881301d75ef3f _______________________________________________ perl-devel mailing list -- perl-devel@lists.fedoraproject.org To unsubscribe send an email to perl-devel-le...@lists.fedoraproject.org