Branch: Tag:

2013-08-09

2013-08-09 20:05:00 by Arne Goedeke <el@laramies.com>

propagate CLEAR_ON_EXIT flag in string operations

706:       ret = end_shared_string(ret);    ret->flags |= STRING_IS_LOWERCASE; +  ret->flags |= orig->flags & STRING_CLEAR_ON_EXIT;    pop_n_elems(args);    push_string(ret);   }
813:    pop_n_elems(args);    ret = end_shared_string(ret);    ret->flags |= STRING_IS_UPPERCASE; +  ret->flags |= orig->flags & STRING_CLEAR_ON_EXIT;    push_string(ret);   }   
1779:   #endif    }    pop_n_elems(args); +  out->flags |= in->flags & STRING_CLEAR_ON_EXIT;    push_string(out);   }   
1938:    }    out = end_shared_string(out);    pop_n_elems(args); +  out->flags |= in->flags & STRING_CLEAR_ON_EXIT;    push_string(out);   }   
2082:   #endif /* PIKE_DEBUG */    out = end_shared_string(out);    pop_n_elems(args); +  out->flags |= in->flags & STRING_CLEAR_ON_EXIT;    push_string(out);   }   
2435:    check_string (out);   #endif    pop_n_elems(args); +  out->flags |= in->flags & STRING_CLEAR_ON_EXIT;    push_string(out);   }