#line 639 "utilities/arrcpy.bm"
void SUB_EMITARRAYCOPY1D(qbs*_SUB_EMITARRAYCOPY1D_STRING_SRC_REF,qbs*_SUB_EMITARRAYCOPY1D_STRING_SRC_LOW_EXPR,qbs*_SUB_EMITARRAYCOPY1D_STRING_SRC_HIGH_EXPR,qbs*_SUB_EMITARRAYCOPY1D_STRING_DST_REF,qbs*_SUB_EMITARRAYCOPY1D_STRING_DST_START_EXPR){
#line 639 "utilities/arrcpy.bm"
qbs *tqbs;
#line 639 "utilities/arrcpy.bm"
ptrszint tmp_long;
#line 639 "utilities/arrcpy.bm"
int32 tmp_fileno;
#line 639 "utilities/arrcpy.bm"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 639 "utilities/arrcpy.bm"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 639 "utilities/arrcpy.bm"
uint32 tmp_cmem_sp=cmem_sp;
#line 639 "utilities/arrcpy.bm"
#include "data134.txt"
#line 639 "utilities/arrcpy.bm"
mem_lock *sf_mem_lock;
#line 639 "utilities/arrcpy.bm"
new_mem_lock();
#line 639 "utilities/arrcpy.bm"
sf_mem_lock=mem_lock_tmp;
#line 639 "utilities/arrcpy.bm"
sf_mem_lock->type=3;
#line 639 "utilities/arrcpy.bm"
libqb_check_stack();
#line 639 "utilities/arrcpy.bm"
if (is_error_pending()) goto exit_subfunc;
#line 640 "utilities/arrcpy.bm"
do{
#line 640 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,640,"arrcpy.bm");}while(r);
#line 641 "utilities/arrcpy.bm"
do{
#line 641 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,641,"arrcpy.bm");}while(r);
#line 642 "utilities/arrcpy.bm"
do{
#line 642 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,642,"arrcpy.bm");}while(r);
#line 643 "utilities/arrcpy.bm"
do{
#line 643 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,643,"arrcpy.bm");}while(r);
#line 644 "utilities/arrcpy.bm"
do{
#line 644 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,644,"arrcpy.bm");}while(r);
#line 646 "utilities/arrcpy.bm"
do{
#line 646 "utilities/arrcpy.bm"
SUB_RESOLVEARRAYCOPYPAIREX(_SUB_EMITARRAYCOPY1D_STRING_SRC_REF,_SUB_EMITARRAYCOPY1D_STRING_DST_REF,_SUB_EMITARRAYCOPY1D_STRING_SRC_DESC,_SUB_EMITARRAYCOPY1D_STRING_SRC_PREP,_SUB_EMITARRAYCOPY1D_LONG_SRC_TYPE,_SUB_EMITARRAYCOPY1D_LONG_SRC_SIZE,_SUB_EMITARRAYCOPY1D_LONG_SRC_DIMS,_SUB_EMITARRAYCOPY1D_LONG_SRC_STRING_SLOT_MODE,_SUB_EMITARRAYCOPY1D_STRING_DST_DESC,_SUB_EMITARRAYCOPY1D_STRING_DST_PREP,_SUB_EMITARRAYCOPY1D_LONG_DST_TYPE,_SUB_EMITARRAYCOPY1D_LONG_DST_SIZE,_SUB_EMITARRAYCOPY1D_LONG_DST_DIMS,_SUB_EMITARRAYCOPY1D_LONG_DST_STRING_SLOT_MODE);
#line 646 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 646 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,646,"arrcpy.bm");}while(r);
#line 647 "utilities/arrcpy.bm"
S_37887:;
#line 647 "utilities/arrcpy.bm"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 647 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,647,"arrcpy.bm");if(r)goto S_37887;}
#line 647 "utilities/arrcpy.bm"
do{
#line 647 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 647 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,647,"arrcpy.bm");}while(r);
#line 647 "utilities/arrcpy.bm"
}
#line 649 "utilities/arrcpy.bm"
do{
#line 649 "utilities/arrcpy.bm"
SUB_CHECKARRAYCOPY1DPAIR(_SUB_EMITARRAYCOPY1D_LONG_SRC_TYPE,_SUB_EMITARRAYCOPY1D_LONG_SRC_SIZE,_SUB_EMITARRAYCOPY1D_LONG_SRC_DIMS,_SUB_EMITARRAYCOPY1D_LONG_SRC_STRING_SLOT_MODE,_SUB_EMITARRAYCOPY1D_LONG_DST_TYPE,_SUB_EMITARRAYCOPY1D_LONG_DST_SIZE,_SUB_EMITARRAYCOPY1D_LONG_DST_DIMS,_SUB_EMITARRAYCOPY1D_LONG_DST_STRING_SLOT_MODE,_SUB_EMITARRAYCOPY1D_LONG_ELEMENT_BYTES,_SUB_EMITARRAYCOPY1D_LONG_VAR_STRING_COPY);
#line 649 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,649,"arrcpy.bm");}while(r);
#line 650 "utilities/arrcpy.bm"
S_37891:;
#line 650 "utilities/arrcpy.bm"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 650 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,650,"arrcpy.bm");if(r)goto S_37891;}
#line 650 "utilities/arrcpy.bm"
do{
#line 650 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 650 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,650,"arrcpy.bm");}while(r);
#line 650 "utilities/arrcpy.bm"
}
#line 652 "utilities/arrcpy.bm"
do{
#line 652 "utilities/arrcpy.bm"
SUB_PARSEARRAYCOPYSOURCERANGE1D(_SUB_EMITARRAYCOPY1D_STRING_SRC_LOW_EXPR,_SUB_EMITARRAYCOPY1D_STRING_SRC_HIGH_EXPR,_SUB_EMITARRAYCOPY1D_STRING_SRC_LOW_CODE,_SUB_EMITARRAYCOPY1D_STRING_SRC_HIGH_CODE);
#line 652 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 652 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,652,"arrcpy.bm");}while(r);
#line 653 "utilities/arrcpy.bm"
S_37895:;
#line 653 "utilities/arrcpy.bm"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 653 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,653,"arrcpy.bm");if(r)goto S_37895;}
#line 653 "utilities/arrcpy.bm"
do{
#line 653 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 653 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,653,"arrcpy.bm");}while(r);
#line 653 "utilities/arrcpy.bm"
}
#line 655 "utilities/arrcpy.bm"
do{
#line 655 "utilities/arrcpy.bm"
SUB_PARSEARRAYCOPYDESTINATIONSTART1D(_SUB_EMITARRAYCOPY1D_STRING_DST_START_EXPR,_SUB_EMITARRAYCOPY1D_STRING_DST_START_CODE);
#line 655 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 655 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,655,"arrcpy.bm");}while(r);
#line 656 "utilities/arrcpy.bm"
S_37899:;
#line 656 "utilities/arrcpy.bm"
if ((*__LONG_ERROR_HAPPENED)||is_error_pending()){
#line 656 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,656,"arrcpy.bm");if(r)goto S_37899;}
#line 656 "utilities/arrcpy.bm"
do{
#line 656 "utilities/arrcpy.bm"
goto exit_subfunc;
#line 656 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,656,"arrcpy.bm");}while(r);
#line 656 "utilities/arrcpy.bm"
}
#line 657 "utilities/arrcpy.bm"
do{
#line 657 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("{",1));
#line 657 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 657 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,657,"arrcpy.bm");}while(r);
#line 658 "utilities/arrcpy.bm"
S_37903:;
#line 658 "utilities/arrcpy.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_EMITARRAYCOPY1D_STRING_SRC_PREP,qbs_new_txt_len("",0))))||is_error_pending()){
#line 658 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,658,"arrcpy.bm");if(r)goto S_37903;}
#line 658 "utilities/arrcpy.bm"
do{
#line 658 "utilities/arrcpy.bm"
SUB_WRITEBUFRAWDATA(&(pass3638=*__LONG_MAINTXTBUF),_SUB_EMITARRAYCOPY1D_STRING_SRC_PREP);
#line 658 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 658 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,658,"arrcpy.bm");}while(r);
#line 658 "utilities/arrcpy.bm"
}
#line 659 "utilities/arrcpy.bm"
S_37906:;
#line 659 "utilities/arrcpy.bm"
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_EMITARRAYCOPY1D_STRING_DST_PREP,qbs_new_txt_len("",0))))||is_error_pending()){
#line 659 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,659,"arrcpy.bm");if(r)goto S_37906;}
#line 659 "utilities/arrcpy.bm"
do{
#line 659 "utilities/arrcpy.bm"
SUB_WRITEBUFRAWDATA(&(pass3639=*__LONG_MAINTXTBUF),_SUB_EMITARRAYCOPY1D_STRING_DST_PREP);
#line 659 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 659 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,659,"arrcpy.bm");}while(r);
#line 659 "utilities/arrcpy.bm"
}
#line 660 "utilities/arrcpy.bm"
do{
#line 660 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64 array_copy_src_low=(int64)(",33),_SUB_EMITARRAYCOPY1D_STRING_SRC_LOW_CODE),qbs_new_txt_len(");",2)));
#line 660 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 660 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,660,"arrcpy.bm");}while(r);
#line 661 "utilities/arrcpy.bm"
do{
#line 661 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64 array_copy_src_high=(int64)(",34),_SUB_EMITARRAYCOPY1D_STRING_SRC_HIGH_CODE),qbs_new_txt_len(");",2)));
#line 661 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 661 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,661,"arrcpy.bm");}while(r);
#line 662 "utilities/arrcpy.bm"
do{
#line 662 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("int64 array_copy_dst_start=(int64)(",35),_SUB_EMITARRAYCOPY1D_STRING_DST_START_CODE),qbs_new_txt_len(");",2)));
#line 662 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 662 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,662,"arrcpy.bm");}while(r);
#line 666 "utilities/arrcpy.bm"
do{
#line 666 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("ptrszint *array_copy_src=",25),_SUB_EMITARRAYCOPY1D_STRING_SRC_DESC),qbs_new_txt_len(";",1)));
#line 666 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 666 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,666,"arrcpy.bm");}while(r);
#line 667 "utilities/arrcpy.bm"
do{
#line 667 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("ptrszint *array_copy_dst=",25),_SUB_EMITARRAYCOPY1D_STRING_DST_DESC),qbs_new_txt_len(";",1)));
#line 667 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 667 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,667,"arrcpy.bm");}while(r);
#line 668 "utilities/arrcpy.bm"
S_37914:;
#line 668 "utilities/arrcpy.bm"
if ((*_SUB_EMITARRAYCOPY1D_LONG_VAR_STRING_COPY)||is_error_pending()){
#line 668 "utilities/arrcpy.bm"
if(qbevent){evnt(28798,668,"arrcpy.bm");if(r)goto S_37914;}
#line 669 "utilities/arrcpy.bm"
do{
#line 669 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("qb64_array_copy_1d_range_at_string(array_copy_src,array_copy_dst,array_copy_src_low,array_copy_src_high,array_copy_dst_start);",126));
#line 669 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 669 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,669,"arrcpy.bm");}while(r);
#line 670 "utilities/arrcpy.bm"
}else{
#line 671 "utilities/arrcpy.bm"
do{
#line 671 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_add(qbs_add(qbs_new_txt_len("qb64_array_copy_1d_range_at_fixed(array_copy_src,array_copy_dst,array_copy_src_low,array_copy_src_high,array_copy_dst_start,(uint64)",132),qbs__tostr((int32)(*_SUB_EMITARRAYCOPY1D_LONG_ELEMENT_BYTES),NULL,0)),qbs_new_txt_len(");",2)));
#line 671 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 671 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,671,"arrcpy.bm");}while(r);
#line 672 "utilities/arrcpy.bm"
}
#line 673 "utilities/arrcpy.bm"
do{
#line 673 "utilities/arrcpy.bm"
SUB_WRITEBUFLINECPP(__LONG_MAINTXTBUF,qbs_new_txt_len("}",1));
#line 673 "utilities/arrcpy.bm"
qbs_cleanup(qbs_tmp_base,0);
#line 673 "utilities/arrcpy.bm"
if(!qbevent)break;evnt(28798,673,"arrcpy.bm");}while(r);
#line 674 "utilities/arrcpy.bm"
exit_subfunc:;
#line 674 "utilities/arrcpy.bm"
free_mem_lock(sf_mem_lock);
#line 674 "utilities/arrcpy.bm"
#include "free134.txt"
#line 674 "utilities/arrcpy.bm"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 674 "utilities/arrcpy.bm"
cmem_sp=tmp_cmem_sp;
#line 674 "utilities/arrcpy.bm"
}
