perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r25065 - trunk/src

Subject: [svn:parrot] r25065 - trunk/src
From:
Date: Sun, 20 Jan 2008 11:57:32 -0800 PST
Newsgroups: perl.cvs.parrot

Author: petdance
Date: Sun Jan 20 11:57:32 2008
New Revision: 25065

Modified:
   trunk/src/packfile.c

Log:
use our wrappers around malloc() and free()

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c        (original)
+++ trunk/src/packfile.c        Sun Jan 20 11:57:32 2008
@@ -1400,11 +1400,11 @@
     PackFile_Segment *seg;
 
     const size_t len = strlen(name) + strlen(file_name) + 2;
-    char * const buf = (char *)malloc(len);
+    char * const buf = (char *)mem_sys_allocate(len);
 
     sprintf(buf, "%s_%s", name, file_name);
     seg = PackFile_Segment_new_seg(interp, dir, t, buf, add);
-    free(buf);
+    mem_sys_free(buf);
     return seg;
 }
 

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r25065 - trunk/src, petdance <=