From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Sun, 18 Sep 2005 19:46:37 +0000 (-0700)
Subject: bleadperl DProf.xs:140: warning: `unused' attribute ignored
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=82f07646d5ab5b22c06dffd4fcff8755de692079;p=p5sagit%2Fp5-mst-13.2.git

bleadperl DProf.xs:140: warning: `unused' attribute ignored
Message-ID: <20050919024637.GA2860@efn.org>

p4raw-id: //depot/perl@25486
---

diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index f91e3c5..057f01e 100644
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -136,9 +136,7 @@ typedef struct {
     long long	start_cnt;
 #endif
 #ifdef PERL_IMPLICIT_CONTEXT
-#  define register
-    pTHX;
-#  undef register
+    PerlInterpreter *my_perl;
 #endif
 } prof_state_t;
 
@@ -170,7 +168,7 @@ prof_state_t g_prof_state;
 #define g_default_perldb	g_prof_state.default_perldb
 #define g_depth			g_prof_state.depth
 #ifdef PERL_IMPLICIT_CONTEXT
-#  define g_THX			g_prof_state.aTHX
+#  define g_THX			g_prof_state.my_perl
 #endif
 #ifdef OS2
 #  define g_frequ		g_prof_state.frequ