cvsuser 03/07/23 18:20:10
Modified: classes scratchpad.pmc
Log:
Check before freeing because things may be NULL
Courtesy of Simon Glover <[EMAIL PROTECTED]>
Revision Changes Path
1.11 +3 -2 parrot/classes/scratchpad.pmc
Index: scratchpad.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/scratchpad.pmc,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -r1.10 -r1.11
--- scratchpad.pmc 21 Jul 2003 18:00:29 -0000 1.10
+++ scratchpad.pmc 24 Jul 2003 01:20:10 -0000 1.11
@@ -1,7 +1,7 @@
/* Scratchpad.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: scratchpad.pmc,v 1.10 2003/07/21 18:00:29 chromatic Exp $
+ * $Id: scratchpad.pmc,v 1.11 2003/07/24 01:20:10 dan Exp $
* Overview:
* These are the vtable functions for the Scratchpad base class.
* Data Structure and Algorithms:
@@ -31,6 +31,7 @@
}
void destroy () {
+ if (PMC_data(SELF))
mem_sys_free(PMC_data(SELF));
}
