*** ocaml-2.04/otherlibs/str/strstubs.c	Thu Nov  5 13:53:31 1998
--- ocaml-2.04-new/otherlibs/str/strstubs.c	Sat Mar 11 15:52:17 2000
***************
*** 15,29 ****
    struct re_pattern_buffer re;
  };
  
  typedef struct regexp_struct * regexp;
  
! static void free_regexp(value vexpr)
! {
!   regexp expr = (regexp) Bp_val(vexpr);
!   expr->re.translate = NULL;
!   regfree(&(expr->re));
  }
  
  static regexp alloc_regexp(void)
  {
    value res =
--- 15,42 ----
    struct re_pattern_buffer re;
  };
  
  typedef struct regexp_struct * regexp;
  
! static void free_regexp(value vexpr){
!     regexp expr = (regexp) Bp_val(vexpr);
!     expr->re.translate = NULL;
! 
!     if (expr->re.buffer != NULL)
! 	free (expr->re.buffer);
!     expr->re.buffer = NULL;
! 
!     expr->re.allocated = 0;
!     expr->re.used = 0;
!     
!     if (expr->re.fastmap != NULL)
! 	free (expr->re.fastmap);
!     expr->re.fastmap = NULL;
!     expr->re.fastmap_accurate = 0;
! 
!     /* regfree(&(expr->re)); */
! 
  }
  
  static regexp alloc_regexp(void)
  {
    value res =