Fix build for threaded perls
authorFlorian Ragwitz <rafl@debian.org>
Wed, 8 Sep 2010 02:18:55 +0000 (04:18 +0200)
committerFlorian Ragwitz <rafl@debian.org>
Wed, 8 Sep 2010 02:18:55 +0000 (04:18 +0200)
Ooops. I broke it with commit ad7cce9f36d376e55b45dd79ec28a7f795b5ae4e.

gv.c

diff --git a/gv.c b/gv.c
index 664e877..e4bd394 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -964,7 +964,7 @@ Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_type) {
 }
 
 STATIC void
-S_gv_magicalize_isa(GV *gv, const char *nambeg, I32 add)
+S_gv_magicalize_isa(pTHX_ GV *gv, const char *nambeg, I32 add)
 {
     AV* av;
 
@@ -992,7 +992,7 @@ S_gv_magicalize_isa(GV *gv, const char *nambeg, I32 add)
 }
 
 STATIC void
-S_gv_magicalize_overload(GV *gv)
+S_gv_magicalize_overload(pTHX_ GV *gv)
 {
     HV* hv;