Re: Anyone using the current regex ops?

[Peter Gibbs]

Dan

I assume you meant pmc_pool not buffer_header_pool ??

--
Peter Gibbs
EmKel Systems

Index: resources.c
===================================================================
RCS file: /home/perlcvs/parrot/resources.c,v
retrieving revision 1.30
diff -c -r1.30 resources.c
*** resources.c 18 Mar 2002 16:42:06 -0000  1.30
--- resources.c 18 Mar 2002 19:21:21 -0000
***************
*** 702,711 ****

    /* Collect the PMC header pool */
    memcpy(cur_spot,
!    interpreter->arena_base->buffer_header_pool->pool_buffer.bufstart,
!    interpreter->arena_base->buffer_header_pool->pool_buffer.buflen);
!   interpreter->arena_base->buffer_header_pool->pool_buffer.bufstart =
cur_spot
;
!   cur_size =
interpreter->arena_base->buffer_header_pool->pool_buffer.buflen;
    if (cur_size & 0x0f) {
      cur_size &= ~0x0f;
      cur_size += 16;
--- 702,711 ----

    /* Collect the PMC header pool */
    memcpy(cur_spot,
!    interpreter->arena_base->pmc_pool->pool_buffer.bufstart,
!    interpreter->arena_base->pmc_pool->pool_buffer.buflen);
!   interpreter->arena_base->pmc_pool->pool_buffer.bufstart = cur_spot;
!   cur_size = interpreter->arena_base->pmc_pool->pool_buffer.buflen;
    if (cur_size & 0x0f) {
      cur_size &= ~0x0f;
      cur_size += 16;