pike.git/ src/ stralloc.c

1997-07-09

1997-07-09 00:57:07 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• a99145ebabf00c78313dcff105325bd60d4f44c3 (22 lines) (+22/-0) ^{[ Show | Annotate ]}
  Branch: 7.9

some bugfixes

Rev: src/.cvsignore:1.12
Rev: src/ChangeLog:1.111
Rev: src/configure.in:1.102
Rev: src/dynamic_load.c:1.18
Rev: src/gc.c:1.10
Rev: src/stralloc.c:1.16
Rev: src/testsuite.in:1.45

510:    char *s,*tmp,*r,*end;    struct mem_searcher searcher;    +  if(!str->len) +  { +  str->refs++; +  return str; +  } +  +  if(!del->len) +  { +  int e; +  ret=begin_shared_string(str->len + to->len * (str->len -1)); +  s=ret->str; +  *(s++)=str->str[0]; +  for(e=1;e<str->len;e++) +  { +  MEMCPY(s,to->str,to->len); +  s+=to->len; +  *(s++)=str->str[e]; +  } +  return end_shared_string(ret); +  } +     s=str->str;    end=s+str->len;