diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2005-09-18 12:46:37 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-19 12:38:26 +0000 |
| commit | 82f07646d5ab5b22c06dffd4fcff8755de692079 (patch) | |
| tree | 5a807fdcdd78ebc16ae8f8e673e871013875318e /ext/Devel | |
| parent | f0f07b90be5c8a3c6c496b2510fa40456a2b5a42 (diff) | |
| download | perl-82f07646d5ab5b22c06dffd4fcff8755de692079.tar.gz | |
bleadperl DProf.xs:140: warning: `unused' attribute ignored
Message-ID: <20050919024637.GA2860@efn.org>
p4raw-id: //depot/perl@25486
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index f91e3c5c1b..057f01e91b 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 |