cvs commit: parrot interpreter.c

[Simon Glover]

cvsuser     03/07/23 18:16:34

  Modified:    .        interpreter.c
  Log:
  Get Parrot to build with --gc=malloc option
  
  Revision  Changes    Path
  1.173     +3 -1      parrot/interpreter.c
  
  Index: interpreter.c
  ===================================================================
  RCS file: /cvs/public/parrot/interpreter.c,v
  retrieving revision 1.172
  retrieving revision 1.173
  diff -u -w -r1.172 -r1.173
  --- interpreter.c     21 Jul 2003 18:00:24 -0000      1.172
  +++ interpreter.c     24 Jul 2003 01:16:33 -0000      1.173
  @@ -1,7 +1,7 @@
   /* interpreter.c
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: interpreter.c,v 1.172 2003/07/21 18:00:24 chromatic Exp $
  + *     $Id: interpreter.c,v 1.173 2003/07/24 01:16:33 scog Exp $
    *  Overview:
    *     The interpreter api handles running the operations
    *  Data Structure and Algorithms:
  @@ -741,7 +741,9 @@
       switch (what) {
           case TOTAL_MEM_ALLOC:
   #ifdef GC_IS_MALLOC
  +#if 0
               interpreter->memory_allocated = mallinfo().uordblks;
  +#endif
   #endif
               ret = interpreter->memory_allocated;
               break;