#line 2 "utilities/give_error.bas"
qbs*oldstr4525=NULL;
#line 2 "utilities/give_error.bas"
if(_SUB_GIVE_ERROR_STRING_A->tmp||_SUB_GIVE_ERROR_STRING_A->fixed||_SUB_GIVE_ERROR_STRING_A->readonly){
#line 2 "utilities/give_error.bas"
oldstr4525=_SUB_GIVE_ERROR_STRING_A;
#line 2 "utilities/give_error.bas"
if (oldstr4525->cmem_descriptor){
#line 2 "utilities/give_error.bas"
_SUB_GIVE_ERROR_STRING_A=qbs_new_cmem(oldstr4525->len,0);
#line 2 "utilities/give_error.bas"
}else{
#line 2 "utilities/give_error.bas"
_SUB_GIVE_ERROR_STRING_A=qbs_new(oldstr4525->len,0);
#line 2 "utilities/give_error.bas"
}
#line 2 "utilities/give_error.bas"
memcpy(_SUB_GIVE_ERROR_STRING_A->chr,oldstr4525->chr,oldstr4525->len);
#line 2 "utilities/give_error.bas"
}
