diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-12 01:55:15 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-12 01:55:15 +0000 |
| commit | c5be433b5c5658093bc9cae4434721a0b63e7a85 (patch) | |
| tree | b5e25d83702fd5b6ebb6108c8cdf104a09f97040 /ext/ByteLoader | |
| parent | ed7ab888f26e9b2a3bcf98806b630e993179f8b4 (diff) | |
| download | perl-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 'ext/ByteLoader')
| -rw-r--r-- | ext/ByteLoader/ByteLoader.xs | 2 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.c | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/ext/ByteLoader/ByteLoader.xs b/ext/ByteLoader/ByteLoader.xs index 07f083843e..a3d53f69cc 100644 --- a/ext/ByteLoader/ByteLoader.xs +++ b/ext/ByteLoader/ByteLoader.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" @@ -6,6 +7,7 @@ static void freadpv(U32 len, void *data, XPV *pv) { + dTHX; New(666, pv->xpv_pv, len, char); PerlIO_read((PerlIO*)data, (void*)pv->xpv_pv, len); pv->xpv_len = len; diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index 18fa4a150f..60dc98d3cc 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -9,6 +9,7 @@ * This file is autogenerated from bytecode.pl. Changes made here will be lost. */ +#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #define NO_XSLOCKS |