cvsuser     03/09/21 14:55:06

  Modified:    include/parrot packfile.h
               .        pdump.c
  Log:
  Patch http://rt.perl.org/rt2/Ticket/Display.html?id=23819 from Steve Clark:
  
  - pdump.c contained declarations for functions in packdump.c. I have
    moved these to packfile.h.
  
  Revision  Changes    Path
  1.50      +6 -1      parrot/include/parrot/packfile.h
  
  Index: packfile.h
  ===================================================================
  RCS file: /cvs/public/parrot/include/parrot/packfile.h,v
  retrieving revision 1.49
  retrieving revision 1.50
  diff -u -w -r1.49 -r1.50
  --- packfile.h        18 Aug 2003 11:30:39 -0000      1.49
  +++ packfile.h        21 Sep 2003 21:55:03 -0000      1.50
  @@ -1,6 +1,6 @@
   /* packfile.h
   *
  -* $Id: packfile.h,v 1.49 2003/08/18 11:30:39 leo Exp $
  +* $Id: packfile.h,v 1.50 2003/09/21 21:55:03 nicholas Exp $
   *
   * History:
   *  Rework by Melvin; new bytecode format, make bytecode portable.
  @@ -281,6 +281,9 @@
   void PackFile_FixupTable_pack(struct PackFile_FixupTable * self,
                                 opcode_t * packed);
   
  +void PackFile_Fixup_dump(struct Parrot_Interp *, 
  +                         struct PackFile_FixupTable *ft);
  +
   /* create new fixup entry */
   void PackFile_FixupTable_new_entry(struct Parrot_Interp *, char *label,
                   enum_fixup_t, opcode_t offs);
  @@ -306,6 +309,8 @@
   
   void PackFile_ConstTable_clear(struct PackFile_ConstTable * self);
   
  +void PackFile_ConstTable_dump(struct Parrot_Interp *,
  +                              struct PackFile_ConstTable *);
   size_t PackFile_ConstTable_pack_size(struct PackFile_Segment * self);
   
   opcode_t * PackFile_ConstTable_pack(struct PackFile_Segment *, opcode_t *);
  
  
  
  1.28      +1 -6      parrot/pdump.c
  
  Index: pdump.c
  ===================================================================
  RCS file: /cvs/public/parrot/pdump.c,v
  retrieving revision 1.27
  retrieving revision 1.28
  diff -u -w -r1.27 -r1.28
  --- pdump.c   28 Aug 2003 15:26:21 -0000      1.27
  +++ pdump.c   21 Sep 2003 21:55:05 -0000      1.28
  @@ -1,7 +1,7 @@
   /* pdump.c
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: pdump.c,v 1.27 2003/08/28 15:26:21 leo Exp $
  + *     $Id: pdump.c,v 1.28 2003/09/21 21:55:05 nicholas Exp $
    *  Overview:
    *     A program to dump pack files to human readable form.
    *  Data Structure and Algorithms:
  @@ -12,11 +12,6 @@
   
   #include "parrot/parrot.h"
   #include "parrot/embed.h"
  -
  -/* s. packdump.c */
  -void PackFile_ConstTable_dump(struct Parrot_Interp *,
  -                                     struct PackFile_ConstTable *);
  -void PackFile_Fixup_dump(Parrot_Interp , struct PackFile_FixupTable *ft);
   
   static void
   const_dump (struct Parrot_Interp *interpreter, struct PackFile_Segment *segp)
  
  
  

Reply via email to