On Sat, 23 Nov 2002, Doug MacEachern wrote: > i think instead of the dTHX's we need to #undef malloc and #undef free, > similar to #undef exit. we do not want our malloc/frees tied to an > interpreter, as the lifetime of that data is not the same as the > interpreter. can you try that out randy?
Sure - how about the following (tested on ActivePerl 5.8 beta and also ActivePerl 633): ================================================================ Index: src/modules/perl/modperl_perl_includes.h =================================================================== RCS file: /home/cvspublic/modperl-2.0/src/modules/perl/modperl_perl_includes.h,v retrieving revision 1.16 diff -u -r1.16 modperl_perl_includes.h --- src/modules/perl/modperl_perl_includes.h 19 Jun 2002 05:18:04 -0000 1.16 +++ src/modules/perl/modperl_perl_includes.h 24 Nov 2002 06:15:12 -0000 @@ -36,11 +36,26 @@ #ifdef WIN32 # define uid_t perl_uid_t # define gid_t perl_gid_t +# ifdef exit +# define perl_exit exit +# undef exit +# endif #endif #include "EXTERN.h" #include "perl.h" #include "XSUB.h" + +#if defined(WIN32) && defined(USE_LARGE_FILES) +# ifdef malloc +# define perl_malloc malloc +# undef malloc +# endif +# ifdef free +# define perl_free free +# undef free +# endif +#endif #if (PERL_REVISION == 5) && (PERL_VERSION == 6) # define MP_PERL_5_6_x ======================================================== -- best regards, randy --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
