In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/2d8edfd19d3ae7a665ce2648c86d00540f61f564?hp=f747cd2a34c94c6e79b5f086da2c6270d5b7f261>

- Log -----------------------------------------------------------------
commit 2d8edfd19d3ae7a665ce2648c86d00540f61f564
Author: Steffen Mueller <[email protected]>
Date:   Wed Feb 27 18:12:28 2013 +0100

    Use native-size integers for some global counters
    
    It may be unlikely that a Perl program will hit 2 billion SVs, but by
    the time that 5.18 is ancient history, it's looking a lot more likely.
    This makes two global counters use native-size ints.
    
    I'm preserving signedness just for hysterical raisins: It might be
    deliberate.
-----------------------------------------------------------------------

Summary of changes:
 intrpvar.h |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/intrpvar.h b/intrpvar.h
index 852f9a0..92d8e92 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -45,7 +45,7 @@ PERLVAR(I, stack_max, SV **)
 
 PERLVAR(I, scopestack, I32 *)          /* scopes we've ENTERed */
 /* name of the scopes we've ENTERed. Only used with -DDEBUGGING, but needs to 
be
-   present always, as -DDEUBGGING must be binary compatible with non.  */
+   present always, as -DDEBUGGING must be binary compatible with non.  */
 PERLVARI(I, scopestack_name, const char * *, NULL)
 PERLVAR(I, scopestack_ix, I32)
 PERLVAR(I, scopestack_max, I32)
@@ -382,8 +382,8 @@ PERLVARI(I, sub_generation, U32, 1) /* incr to invalidate 
method cache */
 PERLVAR(I, forkprocess,        int)            /* so do_open |- can return 
proc# */
 
 /* memory management */
-PERLVAR(I, sv_count,   I32)            /* how many SV* are currently allocated 
*/
-PERLVAR(I, sv_objcount,        I32)            /* how many objects are 
currently allocated */
+PERLVAR(I, sv_count,   IV)             /* how many SV* are currently allocated 
*/
+PERLVAR(I, sv_objcount,        IV)             /* how many objects are 
currently allocated */
 PERLVAR(I, sv_root,    SV *)           /* storage for SVs belonging to interp 
*/
 PERLVAR(I, sv_arenaroot, SV *)         /* list of areas for garbage collection 
*/
 

--
Perl5 Master Repository

Reply via email to