This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip no-common-vars optimisation for aliases
[perl5.git] / scope.h
diff --git a/scope.h b/scope.h
index 0dce9d6..cad02cd 100644 (file)
--- a/scope.h
+++ b/scope.h
 #define SAVEt_CLEARPADRANGE    1
 #define SAVEt_CLEARSV          2
 #define SAVEt_REGCONTEXT       3
-/*** SPARE                     4 ***/
 
-#define SAVEt_ARG0_MAX         4
+#define SAVEt_ARG0_MAX         3
 
 /* one arg */
 
+#define SAVEt_GP_ALIASED_SV    4
 #define SAVEt_BOOL             5
 #define SAVEt_COMPILE_WARNINGS 6
 #define SAVEt_COMPPAD          7