summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-07-12 01:55:15 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-07-12 01:55:15 +0000
commitc5be433b5c5658093bc9cae4434721a0b63e7a85 (patch)
treeb5e25d83702fd5b6ebb6108c8cdf104a09f97040 /dump.c
parented7ab888f26e9b2a3bcf98806b630e993179f8b4 (diff)
downloadperl-c5be433b5c5658093bc9cae4434721a0b63e7a85.tar.gz
yet more cleanups of the PERL_OBJECT, MULTIPLICITY and USE_THREADS
builds; passing the implicit context is unified among the three flavors; PERL_IMPLICIT_CONTEXT is auto-enabled under all three flavors (see the top of perl.h) for testing; all varargs functions foo() have a va_list-taking variant vfoo() for generating the context-free versions; the PERL_OBJECT build should now be hyper-compatible with CPAN extensions (C++ is totally out of the picture) result has only been tested on Windows TODO: write docs on the THX rationale and idiomatic usage of the Perl API p4raw-id: //depot/perl@3667
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c13
1 files changed, 9 insertions, 4 deletions
diff --git a/dump.c b/dump.c
index 450ab86a3c..f506de8492 100644
--- a/dump.c
+++ b/dump.c
@@ -24,16 +24,21 @@
void
Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
{
- dTHR;
va_list args;
-
va_start(args, pat);
- PerlIO_printf(file, "%*s", level*PL_dumpindent, "");
- PerlIO_vprintf(file, pat, args);
+ dump_vindent(level, file, pat, &args);
va_end(args);
}
void
+Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args)
+{
+ dTHR;
+ PerlIO_printf(file, "%*s", level*PL_dumpindent, "");
+ PerlIO_vprintf(file, pat, *args);
+}
+
+void
Perl_dump_all(pTHX)
{
dTHR;