develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35880 - trunk/compilers/imcc

From:
bernhard
Date:
January 22, 2009 04:05
Subject:
[svn:parrot] r35880 - trunk/compilers/imcc
Message ID:
20090122120528.67FA8CB9AE@x12.develooper.com
Author: bernhard
Date: Thu Jan 22 04:05:24 2009
New Revision: 35880

Modified:
   trunk/compilers/imcc/pbc.c

Log:
[codingstd] linelenght.t

Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c	(original)
+++ trunk/compilers/imcc/pbc.c	Thu Jan 22 04:05:24 2009
@@ -1,5 +1,5 @@
 /*
- * Copyright (C) 2002-2008, The Perl Foundation.
+ * Copyright (C) 2002-2009, The Perl Foundation.
  * $Id$
  */
 
@@ -528,8 +528,7 @@
     const size_t size = unit->n_basic_blocks + old;
 
     if (!IMCC_INFO(interp)->globals->cs->jit_info) {
-        const size_t len  =
-            strlen(IMCC_INFO(interp)->globals->cs->seg->base.name) + 5;
+        const size_t len  = strlen(IMCC_INFO(interp)->globals->cs->seg->base.name) + 5;
         char * const name = mem_allocate_n_typed(len, char);
 
         snprintf(name, len, "%s_JIT",
@@ -2168,8 +2167,9 @@
 
         /* Add annotations seg if we're missing one. */
         if (!interp->code->annotations) {
-            /* Create segment. */
-            char               * const name = (char *) mem_sys_allocate(strlen(interp->code->base.name) + 5);
+            /* Create segment. "_ANN" is added to the name */
+            const               size_t len  = strlen(interp->code->base.name) + 5;
+            char               * const name = (char *) mem_sys_allocate(len);
             int                        add  = interp->code && interp->code->base.dir;
             PackFile_Directory * const dir  = add ? interp->code->base.dir :
                     &interp->initial_pf->directory;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About