From fdcbadfbb92eaaabdb31d36f7efcf167d252e983 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Wed, 25 Aug 2010 13:14:30 -0500
Subject: Add specialized bits to apply patches for the 2010.08 release.

---
 build/2010.08-patch.pl           |  9 ++++++++
 build/patch/2010.08-3a339e.patch | 47 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 56 insertions(+)
 create mode 100644 build/2010.08-patch.pl
 create mode 100644 build/patch/2010.08-3a339e.patch

diff --git a/build/2010.08-patch.pl b/build/2010.08-patch.pl
new file mode 100644
index 0000000..4e623cd
--- /dev/null
+++ b/build/2010.08-patch.pl
@@ -0,0 +1,9 @@
+#! perl
+
+## Star patches to be applied to the 2010.08 release
+
+my $DISTDIR = $ENV{'DISTDIR'};
+
+system("cp build/patch/2010.08-3a339e.patch $DISTDIR/build");
+system("cd $DISTDIR/rakudo; patch -p1 <../build/2010.08-3a339e.patch");
+
diff --git a/build/patch/2010.08-3a339e.patch b/build/patch/2010.08-3a339e.patch
new file mode 100644
index 0000000..0995bb4
--- /dev/null
+++ b/build/patch/2010.08-3a339e.patch
@@ -0,0 +1,47 @@
+commit 3a339ee8ab3a72867fe914ec9c689e1f5a890645
+Author: tcurtis <tyler.l.curtis@gmail.com>
+Date:   Tue Aug 24 15:52:28 2010 -0500
+
+    Switch objectref_pmc.template to auto_attrs.
+    
+    Fixes a nasty memory leak that would leak at least 3 scalars per block.
+    Now a simple 'while 1 { }' loop seems not to leak anymore.
+    
+    Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
+
+diff --git a/src/pmc/objectref_pmc.template b/src/pmc/objectref_pmc.template
+index d0a8daa..cafc1d2 100644
+--- a/src/pmc/objectref_pmc.template
++++ b/src/pmc/objectref_pmc.template
+@@ -19,7 +19,7 @@ Forwards all but some methods to the held PMC.
+ #include "parrot/parrot.h"
+ static STRING *OBJECTREF_str;
+ 
+-pmclass ObjectRef dynpmc group perl6_group manual_attrs {
++pmclass ObjectRef dynpmc group perl6_group auto_attrs {
+     ATTR PMC *value;
+ 
+     void class_init() {
+@@ -36,10 +36,6 @@ pmclass ObjectRef dynpmc group perl6_group manual_attrs {
+     VTABLE void init_pmc(PMC *value) {
+         /* Need custom mark and destroy. */
+         PObj_custom_mark_SET(SELF);
+-        PObj_custom_destroy_SET(SELF);
+-
+-        /* Create underlying structure. */
+-        PMC_data(SELF) = mem_allocate_zeroed_typed(Parrot_ObjectRef_attributes);
+ 
+         /* Initialize with an undef PMC if no value. */
+         if (PMC_IS_NULL(value))
+@@ -56,11 +52,6 @@ pmclass ObjectRef dynpmc group perl6_group manual_attrs {
+         }
+     }
+ 
+-    VTABLE void destroy() {
+-        mem_sys_free(PMC_data(SELF));
+-        PMC_data(SELF) = NULL;
+-    }
+-
+     VTABLE PMC * get_pmc() {
+         PMC * value;
+         GET_ATTR_value(INTERP, SELF, value);
-- 
cgit v1.1