Change 34958 by [EMAIL PROTECTED] on 2008/11/30 23:27:57
Re-implement the macros SAVECOMPPAD(), SAVECOMPILEWARNINGS(),
SAVEPARSER() in terms of save_pushptr(). This shinks the exectuable
by about 4K. Maybe some of the other scope.h macros should become
functions.
Affected files ...
... //depot/perl/scope.h#96 edit
Differences ...
==== //depot/perl/scope.h#96 (text) ====
Index: perl/scope.h
--- perl/scope.h#95~34956~ 2008-11-30 14:46:37.000000000 -0800
+++ perl/scope.h 2008-11-30 15:27:57.000000000 -0800
@@ -174,12 +174,7 @@
SSPUSHINT(SAVEt_HINTS); \
} STMT_END
-#define SAVECOMPPAD() \
- STMT_START { \
- SSCHECK(2); \
- SSPUSHPTR(MUTABLE_SV(PL_comppad)); \
- SSPUSHINT(SAVEt_COMPPAD); \
- } STMT_END
+#define SAVECOMPPAD() save_pushptr(MUTABLE_SV(PL_comppad), SAVEt_COMPPAD)
#define SAVESWITCHSTACK(f,t) \
STMT_START { \
@@ -204,12 +199,7 @@
could have done savefreesharedpvREF, but this way actually seems cleaner,
as it simplifies the code that does the saves, and reduces the load on the
save stack. */
-#define SAVECOMPILEWARNINGS() \
- STMT_START { \
- SSCHECK(2); \
- SSPUSHPTR(PL_compiling.cop_warnings); \
- SSPUSHINT(SAVEt_COMPILE_WARNINGS); \
- } STMT_END
+#define SAVECOMPILEWARNINGS() save_pushptr(PL_compiling.cop_warnings,
SAVEt_COMPILE_WARNINGS)
#define SAVESTACK_CXPOS() \
STMT_START { \
@@ -219,12 +209,7 @@
SSPUSHINT(SAVEt_STACK_CXPOS); \
} STMT_END
-#define SAVEPARSER(p) \
- STMT_START { \
- SSCHECK(2); \
- SSPUSHPTR(p); \
- SSPUSHINT(SAVEt_PARSER); \
- } STMT_END
+#define SAVEPARSER(p) save_pushptr((p), SAVEt_PARSER)
#ifdef USE_ITHREADS
# define SAVECOPSTASH(c) SAVEPPTR(CopSTASHPV(c))
End of Patch.
