Remove 'register' keyword

Done to eliminate build-time warnings. See: timbunce#191. Increment $VERSION to 6.12_004 for additional trial release.
jkeenan · Oct 8, 2023 · d8d99c9 · d8d99c9
1 parent 9b9d36a
commit d8d99c9
Show file tree

Hide file tree

Showing 13 changed files with 19 additions and 19 deletions.
diff --git a/NYTProf.xs b/NYTProf.xs
@@ -1278,7 +1278,7 @@ static int
 dopopcx_at(pTHX_ PERL_CONTEXT *cxstk, I32 startingblock, UV cx_type_mask)
 {
     I32 i;
-    register PERL_CONTEXT *cx;
+    PERL_CONTEXT *cx;
     for (i = startingblock; i >= 0; i--) {
         UV type_bit;
         cx = &cxstk[i];
@@ -1404,9 +1404,9 @@ visit_contexts(pTHX_ UV cx_type_mask, int (*callback)(pTHX_ PERL_CONTEXT *cx,
 UV *cx_type_mask_ptr))
 {
     /* modelled on pp_caller() in pp_ctl.c */
-    register I32 cxix = cxstack_ix;
-    register PERL_CONTEXT *cx = NULL;
-    register PERL_CONTEXT *ccstack = cxstack;
+    I32 cxix = cxstack_ix;
+    PERL_CONTEXT *cx = NULL;
+    PERL_CONTEXT *ccstack = cxstack;
     PERL_SI *top_si = PL_curstackinfo;
 
     if (trace_level >= 6)

diff --git a/bin/nytprofcalls b/bin/nytprofcalls
@@ -14,7 +14,7 @@ use strict;
 use Devel::NYTProf::Core;
 require Devel::NYTProf::Data;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 use Data::Dumper;
 use Getopt::Long;

diff --git a/bin/nytprofcsv b/bin/nytprofcsv
@@ -16,7 +16,7 @@ use Getopt::Long;
 
 use Devel::NYTProf::Reader;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 use constant NUMERIC_PRECISION => 5;
 

diff --git a/bin/nytprofhtml b/bin/nytprofhtml
@@ -61,7 +61,7 @@ use Devel::NYTProf::Util qw(
 );
 use Devel::NYTProf::Constants qw(NYTP_SCi_CALLING_SUB);
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 if ($VERSION != $Devel::NYTProf::Core::VERSION) {
     die "$0 version '$VERSION' doesn't match version '$Devel::NYTProf::Core::VERSION' of $INC{'Devel/NYTProf/Core.pm'}\n";

diff --git a/bin/nytprofmerge b/bin/nytprofmerge
@@ -16,7 +16,7 @@ require Devel::NYTProf::FileHandle;
 require Devel::NYTProf::Data;
 use List::Util qw(min sum);
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 if ($VERSION != $Devel::NYTProf::Core::VERSION) {
     die "$0 version '$VERSION' doesn't match version '$Devel::NYTProf::Core::VERSION' of $INC{'Devel/NYTProf/Core.pm'}\n";

diff --git a/lib/Devel/NYTProf.pm b/lib/Devel/NYTProf.pm
@@ -9,7 +9,7 @@
 ###########################################################
 package Devel::NYTProf;
 
-our $VERSION = '6.12_003'; # also change in Devel::NYTProf::Core
+our $VERSION = '6.12_004'; # also change in Devel::NYTProf::Core
 
 package    # hide the package from the PAUSE indexer
     DB;

diff --git a/lib/Devel/NYTProf/Apache.pm b/lib/Devel/NYTProf/Apache.pm
@@ -9,7 +9,7 @@
 ###########################################################
 package Devel::NYTProf::Apache;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 BEGIN {
 

diff --git a/lib/Devel/NYTProf/Core.pm b/lib/Devel/NYTProf/Core.pm
@@ -12,7 +12,7 @@ package Devel::NYTProf::Core;
 
 use XSLoader;
 
-our $VERSION = '6.12_003';    # increment with XS changes too
+our $VERSION = '6.12_004';    # increment with XS changes too
 
 XSLoader::load('Devel::NYTProf', $VERSION);
 

diff --git a/lib/Devel/NYTProf/Data.pm b/lib/Devel/NYTProf/Data.pm
@@ -55,7 +55,7 @@ use Devel::NYTProf::FileInfo;
 use Devel::NYTProf::SubInfo;
 use Devel::NYTProf::Util qw( trace_level _dumper );
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 
 =head2 new

diff --git a/lib/Devel/NYTProf/ReadStream.pm b/lib/Devel/NYTProf/ReadStream.pm
@@ -3,7 +3,7 @@ package Devel::NYTProf::ReadStream;
 use warnings;
 use strict;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 use base 'Exporter';
 our @EXPORT_OK = qw(

diff --git a/lib/Devel/NYTProf/Reader.pm b/lib/Devel/NYTProf/Reader.pm
@@ -9,7 +9,7 @@
 ###########################################################
 package Devel::NYTProf::Reader;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 use warnings;
 use strict;

diff --git a/lib/Devel/NYTProf/Util.pm b/lib/Devel/NYTProf/Util.pm
@@ -40,7 +40,7 @@ use Cwd qw(getcwd);
 use List::Util qw(sum);
 use Devel::NYTProf::Core;
 
-our $VERSION = '6.12_003';
+our $VERSION = '6.12_004';
 
 our @EXPORT_OK = qw(
     fmt_float

diff --git a/ppport.h b/ppport.h