perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Randy Kobes <ra...@theoryx5.uwinnipeg.ca>
Subject Re: [Win32] ActivePerl-5.8 beta released (fwd)
Date Sun, 24 Nov 2002 06:18:24 GMT
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: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message