cvs commit: parrot embed.c spf_render.c

[Leopold Toetsch]

cvsuser     03/01/09 08:37:43

  Modified:    .        embed.c spf_render.c
  Log:
  '7' is not a valid sprintf format ;-) nicer profile; anchor argv
  
  Revision  Changes    Path
  1.58      +8 -7      parrot/embed.c
  
  Index: embed.c
  ===================================================================
  RCS file: /cvs/public/parrot/embed.c,v
  retrieving revision 1.57
  retrieving revision 1.58
  diff -u -w -r1.57 -r1.58
  --- embed.c   4 Jan 2003 11:34:51 -0000       1.57
  +++ embed.c   9 Jan 2003 16:37:42 -0000       1.58
  @@ -1,7 +1,7 @@
   /* embed.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: embed.c,v 1.57 2003/01/04 11:34:51 leo Exp $
  + *     $Id: embed.c,v 1.58 2003/01/09 16:37:42 leo Exp $
    *  Overview:
    *     The Parrot embedding interface.
    *  Data Structure and Algorithms:
  @@ -248,9 +248,10 @@
                   argc);
       }
   
  -    userargv = pmc_new(interpreter, enum_class_PerlArray);
  +    userargv = pmc_new_noinit(interpreter, enum_class_PerlArray);
       /* immediately anchor pmc to root set */
       interpreter->ctx.pmc_reg.registers[0] = userargv;
  +    userargv->vtable->init(interpreter, userargv);
   
       for (i = 0; i < argc; i++) {
           /* Run through argv, adding everything to @ARGS. */
  @@ -319,7 +320,7 @@
           PIO_printf(interpreter, "\n\n");
           PIO_printf(interpreter, "                   OPERATION PROFILE               
  \n\n");
           PIO_printf(interpreter, "  CODE   OP FULL NAME   CALLS  TOTAL TIME    AVG 
TIME\n");
  -        PIO_printf(interpreter, "  -----  ------------  ------  ----------  
----------\n");
  +        PIO_printf(interpreter, "  -----  ------------     -------  ----------  
----------\n");
   
           for (j = 0; j < interpreter->op_count; j++) {
               if (interpreter->profile[j].numcalls > 0) {
  @@ -327,7 +328,7 @@
                   call_count += interpreter->profile[j].numcalls;
                   sum_time += interpreter->profile[j].time;
   
  -                PIO_printf(interpreter, "  %5vu  %-12s  %6vu  %10vf  %10vf\n", j,
  +                PIO_printf(interpreter, "  %5vu  %-15s  %7vu  %10vf  %10vf\n", j,
                          interpreter->op_info_table[j].full_name,
                          interpreter->profile[j].numcalls,
                          interpreter->profile[j].time,
  @@ -337,8 +338,8 @@
               }
           }
   
  -        PIO_printf(interpreter, "  -----  ------------  ------  ----------  
----------\n");
  -        PIO_printf(interpreter, "  %5vu  %-12s  %6vu  %10vf  %10vf\n",
  +        PIO_printf(interpreter, "  -----  ------------     -------  ----------  
----------\n");
  +        PIO_printf(interpreter, "  %5vu  %-15s  %7vu  %10vf  %10vf\n",
               op_count,
               "",
               call_count,
  
  
  
  1.18      +2 -1      parrot/spf_render.c
  
  Index: spf_render.c
  ===================================================================
  RCS file: /cvs/public/parrot/spf_render.c,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -w -r1.17 -r1.18
  --- spf_render.c      4 Jan 2003 03:29:36 -0000       1.17
  +++ spf_render.c      9 Jan 2003 16:37:42 -0000       1.18
  @@ -1,7 +1,7 @@
   /* spf_render.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: spf_render.c,v 1.17 2003/01/04 03:29:36 josh Exp $
  + *     $Id: spf_render.c,v 1.18 2003/01/09 16:37:42 leo Exp $
    *  Overview:
    *     Implements the main function that drives the Parrot_sprintf
    *     family and its utility functions.
  @@ -393,6 +393,7 @@
                           case '4':
                           case '5':
                           case '6':
  +                        case '7':
                           case '8':
                           case '9':
                               info.flags |= FLAG_WIDTH;