diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-08-18 16:43:46 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-18 11:10:27 +0000 |
| commit | c042ae3a74be2a1c6b85173b59f6a608815afef8 (patch) | |
| tree | 7d41e4d8fbd45136349a5fa3b278c39b8ef5160e /ext/Compress | |
| parent | 4c3a8340729ab239a926a5263f711fc20a0e2468 (diff) | |
| download | perl-c042ae3a74be2a1c6b85173b59f6a608815afef8.tar.gz | |
5.9.x (and 5.8.x): Symbian update
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F24E7A41B@esebe105.NOE.Nokia.com>
p4raw-id: //depot/perl@25304
Diffstat (limited to 'ext/Compress')
| -rw-r--r-- | ext/Compress/Zlib/Zlib.xs | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/ext/Compress/Zlib/Zlib.xs b/ext/Compress/Zlib/Zlib.xs index c6fd54df4e..5162f1ec2c 100644 --- a/ext/Compress/Zlib/Zlib.xs +++ b/ext/Compress/Zlib/Zlib.xs @@ -85,7 +85,7 @@ typedef gzType* Compress__Zlib__gzFile ; #define crcInitial crc32(0L, Z_NULL, 0) #if 1 -static char *my_z_errmsg[] = { +static const char * const my_z_errmsg[] = { "need dictionary", /* Z_NEED_DICT 2 */ "stream end", /* Z_STREAM_END 1 */ "", /* Z_OK 0 */ @@ -98,8 +98,20 @@ static char *my_z_errmsg[] = { ""}; #endif +#if defined(__SYMBIAN32__) +# define NO_WRITEABLE_DATA +#endif + +#define TRACE_DEFAULT 0 + +#ifdef NO_WRITEABLE_DATA +#define trace TRACE_DEFAULT +#else +static int trace = TRACE_DEFAULT ; +#endif -static int trace = 0 ; +/* Dodge PerlIO hiding of these functions. */ +#undef printf static void #ifdef CAN_PROTOTYPE @@ -109,6 +121,7 @@ SetGzErrorNo(error_no) int error_no ; #endif { + dTHX; char * errstr ; SV * gzerror_sv = perl_get_sv(GZERRNO, FALSE) ; @@ -249,7 +262,7 @@ gzreadline(file, output) SV * output ; #endif { - + dTHX; SV * store = file->buffer ; char *nl = "\n"; char *p; @@ -303,6 +316,7 @@ SV * sv ; char * string; #endif { + dTHX; if (SvROK(sv)) { sv = SvRV(sv) ; switch(SvTYPE(sv)) { |