Changeset 96828e4 for perlglue.xs

Timestamp:

Feb 11, 2011, 4:31:33 PM (15 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

35b6eb9

Parents:

9518a85

git-author:

Anders Kaseorg <andersk@mit.edu> (08/27/09 00:51:45)

git-committer:

Anders Kaseorg <andersk@mit.edu> (02/11/11 16:31:33)

Message:

Replace owl_malloc with g_new and g_new0.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>
Reviewed-by: Karl Ramm <kcr@mit.edu>

File:

• perlglue.xs (modified) (2 diffs)

perlglue.xs

@@ -43 +43 @@
                         rv = owl_function_command(cmd);
                 } else {
-                        argv = owl_malloc((items + 1) * sizeof *argv);
+                        argv = g_new(const char *, items + 1);
                         argv[0] = cmd;
                         for(i = 1; i < items; i++) {
@@ -287 +287 @@
      CODE:
         {
-                s = owl_malloc(sizeof(owl_style));
+                s = g_new(owl_style, 1);
                 owl_style_create_perl(s, name, newSVsv(object));
                 owl_global_add_style(&g, s);