qbs* FUNC_IDESUBS(){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data317.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
sub_pcopy( 0 , 2 );
if(!qbevent)break;evnt(25769,13509,"ide_methods.bas");}while(r);
do{
sub_pcopy( 0 , 1 );
if(!qbevent)break;evnt(25769,13510,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(25769,13511,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(25769,13512,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(25769,13513,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(101);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&4){
_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_UDT_O[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_UDT_O[0]),0,(size_t)alloc_req_bytes);
}else{
_FUNC_IDESUBS_ARRAY_UDT_O[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_UDT_O[0]) error(257);
}
_FUNC_IDESUBS_ARRAY_UDT_O[2]|=1;
_FUNC_IDESUBS_ARRAY_UDT_O[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_UDT_O[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_UDT_O[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_UDT_O[7]=alloc_new_desc[7];
}
}
if(!qbevent)break;evnt(25769,13514,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(25769,13515,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING1_SEP,func_chr( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13516,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR()));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13520,"ide_methods.bas");}while(r);
S_54568:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len> 1 )))||is_error_pending()){
if(qbevent){evnt(25769,13521,"ide_methods.bas");if(r)goto S_54568;}
S_54569:;
while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_A2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||is_error_pending()){
if(qbevent){evnt(25769,13522,"ide_methods.bas");if(r)goto S_54569;}
do{
qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_left(_FUNC_IDESUBS_STRING_A2,_FUNC_IDESUBS_STRING_A2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13523,"ide_methods.bas");}while(r);
S_54571:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,13524,"ide_methods.bas");if(r)goto S_54571;}
do{
goto dl_exit_6316;
if(!qbevent)break;evnt(25769,13524,"ide_methods.bas");}while(r);
}
dl_continue_6316:;
}
dl_exit_6316:;
}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13530,"ide_methods.bas");}while(r);
S_54577:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,13531,"ide_methods.bas");if(r)goto S_54577;}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13531,"ide_methods.bas");}while(r);
}
S_54580:;
if ((-(*__LONG_IDEWX< 100 ))||is_error_pending()){
if(qbevent){evnt(25769,13533,"ide_methods.bas");if(r)goto S_54580;}
do{
*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 20 ;
if(!qbevent)break;evnt(25769,13534,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 42 ;
if(!qbevent)break;evnt(25769,13536,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_L->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13539,"ide_methods.bas");}while(r);
S_54586:;
if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>(*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT+ 2 )))||is_error_pending()){
if(qbevent){evnt(25769,13540,"ide_methods.bas");if(r)goto S_54586;}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_L,*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT- 1 ),func_string( 3 , 250 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13541,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT;
if(!qbevent)break;evnt(25769,13542,"ide_methods.bas");}while(r);
S_54589:;
}else{
if (-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN< 10 )){
if(qbevent){evnt(25769,13543,"ide_methods.bas");if(r)goto S_54589;}
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN= 10 ;
if(!qbevent)break;evnt(25769,13544,"ide_methods.bas");}while(r);
}
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LY,l2string( 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13547,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,_FUNC_IDESUBS_STRING_LY);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13548,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC= 1 ;
if(!qbevent)break;evnt(25769,13549,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC= 0 ;
if(!qbevent)break;evnt(25769,13550,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ;
if(!qbevent)break;evnt(25769,13551,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= 0 ;
if(!qbevent)break;evnt(25769,13552,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MAXLINECOUNT= 0 ;
if(!qbevent)break;evnt(25769,13553,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13555,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13556,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13557,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13558,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13559,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_ARGS[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_ARGS[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13560,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SF[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SF[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SF[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 100 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SF[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SF[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SF[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SF[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SF[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13561,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_TOTALSUBS= 0 ;
if(!qbevent)break;evnt(25769,13563,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
if(!qbevent)break;evnt(25769,13564,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS;
if(!qbevent)break;evnt(25769,13565,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_SUBCLOSED= 0ll ;
if(!qbevent)break;evnt(25769,13566,"ide_methods.bas");}while(r);
S_54610:;
fornext_value6321= 1 ;
fornext_finalvalue6321=*__LONG_IDEN;
fornext_step6321= 1 ;
if (fornext_step6321<0) fornext_step_negative6321=1; else fornext_step_negative6321=0;
if (is_error_pending()) goto fornext_error6321;
goto fornext_entrylabel6321;
while(1){
fornext_value6321=fornext_step6321+(*_FUNC_IDESUBS_LONG_Y);
fornext_entrylabel6321:
*_FUNC_IDESUBS_LONG_Y=fornext_value6321;
if (fornext_step_negative6321){
if (fornext_value6321<fornext_finalvalue6321) break;
}else{
if (fornext_value6321>fornext_finalvalue6321) break;
}
fornext_error6321:;
if(qbevent){evnt(25769,13568,"ide_methods.bas");if(r)goto S_54610;}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,FUNC_IDEGETLINE(_FUNC_IDESUBS_LONG_Y));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13569,"ide_methods.bas");}while(r);
S_54612:;
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
if(qbevent){evnt(25769,13570,"ide_methods.bas");if(r)goto S_54612;}
do{
*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ;
if(!qbevent)break;evnt(25769,13570,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13571,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_SF= 0 ;
if(!qbevent)break;evnt(25769,13572,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_ucase(_FUNC_IDESUBS_STRING_A));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13573,"ide_methods.bas");}while(r);
S_54618:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||is_error_pending()){
if(qbevent){evnt(25769,13574,"ide_methods.bas");if(r)goto S_54618;}
do{
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= -1 ;
if(!qbevent)break;evnt(25769,13574,"ide_methods.bas");}while(r);
}
S_54621:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 11 ),qbs_new_txt_len("END DECLARE",11))))||is_error_pending()){
if(qbevent){evnt(25769,13575,"ide_methods.bas");if(r)goto S_54621;}
do{
*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ;
if(!qbevent)break;evnt(25769,13575,"ide_methods.bas");}while(r);
}
S_54624:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||is_error_pending()){
if(qbevent){evnt(25769,13576,"ide_methods.bas");if(r)goto S_54624;}
do{
*_FUNC_IDESUBS_LONG_SF= 1 ;
if(!qbevent)break;evnt(25769,13576,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("SUB   ",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13576,"ide_methods.bas");}while(r);
}
S_54628:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||is_error_pending()){
if(qbevent){evnt(25769,13577,"ide_methods.bas");if(r)goto S_54628;}
do{
*_FUNC_IDESUBS_LONG_SF= 2 ;
if(!qbevent)break;evnt(25769,13577,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("FUNC  ",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13577,"ide_methods.bas");}while(r);
}
S_54632:;
if ((*_FUNC_IDESUBS_LONG_SF)||is_error_pending()){
if(qbevent){evnt(25769,13578,"ide_methods.bas");if(r)goto S_54632;}
do{
*_FUNC_IDESUBS_LONG_TOTALSUBS=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 1 ;
if(!qbevent)break;evnt(25769,13580,"ide_methods.bas");}while(r);
S_54634:;
if ((~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE))||is_error_pending()){
if(qbevent){evnt(25769,13581,"ide_methods.bas");if(r)goto S_54634;}
do{
*_FUNC_IDESUBS_LONG_LASTOPENSUB=*_FUNC_IDESUBS_LONG_TOTALSUBS;
if(!qbevent)break;evnt(25769,13581,"ide_methods.bas");}while(r);
}
S_54637:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESUBS_LONG_TOTALSUBS>func_ubound(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST,1,1))))||is_error_pending()){
if(qbevent){evnt(25769,13582,"ide_methods.bas");if(r)goto S_54637;}
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13583,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13584,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13585,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13586,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13587,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_ARGS[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_ARGS[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13588,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SF[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SF[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SF[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS+ 99 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SF[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SF[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SF[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SF[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SF[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13589,"ide_methods.bas");}while(r);
}
S_54646:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDESUBS_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||is_error_pending()){
if(qbevent){evnt(25769,13592,"ide_methods.bas");if(r)goto S_54646;}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 7 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13593,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LY,qbs_add(_FUNC_IDESUBS_STRING_LY,l2string(*_FUNC_IDESUBS_LONG_Y)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13597,"ide_methods.bas");}while(r);
S_54650:;
if (((-(*__LONG_IDECY>=*_FUNC_IDESUBS_LONG_Y))&(~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE)))||is_error_pending()){
if(qbevent){evnt(25769,13601,"ide_methods.bas");if(r)goto S_54650;}
do{
*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13602,"ide_methods.bas");}while(r);
}
S_54653:;
if ((-(*_FUNC_IDESUBS_LONG_SF== 1 ))||is_error_pending()){
if(qbevent){evnt(25769,13606,"ide_methods.bas");if(r)goto S_54653;}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 4 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13607,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 9 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13609,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13611,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_X=func_instr(NULL,_FUNC_IDESUBS_STRING_A,qbs_new_txt_len("(",1),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13612,"ide_methods.bas");}while(r);
do{
if(!qbevent)break;evnt(25769,13613,"ide_methods.bas");}while(r);
S_54661:;
if ((*_FUNC_IDESUBS_LONG_X)||is_error_pending()){
if(qbevent){evnt(25769,13614,"ide_methods.bas");if(r)goto S_54661;}
do{
SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_LONG_X,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13614,"ide_methods.bas");}while(r);
}
S_54664:;
if (((-(*_FUNC_IDESUBS_LONG_X> 0 ))&(-(*_FUNC_IDESUBS_BYTE_COMMENT== 0 ))&(-(*_FUNC_IDESUBS_BYTE_QUOTE== 0 )))||is_error_pending()){
if(qbevent){evnt(25769,13615,"ide_methods.bas");if(r)goto S_54664;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X- 1 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13616,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len-*_FUNC_IDESUBS_LONG_X+ 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13617,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_X= 1 ;
if(!qbevent)break;evnt(25769,13618,"ide_methods.bas");}while(r);
S_54668:;
fornext_value6328= 2 ;
fornext_finalvalue6328=_FUNC_IDESUBS_STRING_ARGS->len;
fornext_step6328= 1 ;
if (fornext_step6328<0) fornext_step_negative6328=1; else fornext_step_negative6328=0;
if (is_error_pending()) goto fornext_error6328;
goto fornext_entrylabel6328;
while(1){
fornext_value6328=fornext_step6328+(*_FUNC_IDESUBS_LONG_I);
fornext_entrylabel6328:
*_FUNC_IDESUBS_LONG_I=fornext_value6328;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative6328){
if (fornext_value6328<fornext_finalvalue6328) break;
}else{
if (fornext_value6328>fornext_finalvalue6328) break;
}
fornext_error6328:;
if(qbevent){evnt(25769,13619,"ide_methods.bas");if(r)goto S_54668;}
S_54669:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 40 )))||is_error_pending()){
if(qbevent){evnt(25769,13620,"ide_methods.bas");if(r)goto S_54669;}
do{
*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X+ 1 ;
if(!qbevent)break;evnt(25769,13620,"ide_methods.bas");}while(r);
}
S_54672:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 41 )))||is_error_pending()){
if(qbevent){evnt(25769,13621,"ide_methods.bas");if(r)goto S_54672;}
do{
*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X- 1 ;
if(!qbevent)break;evnt(25769,13621,"ide_methods.bas");}while(r);
}
S_54675:;
if ((-(*_FUNC_IDESUBS_LONG_X== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13622,"ide_methods.bas");if(r)goto S_54675;}
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_left(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13622,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6327;
if(!qbevent)break;evnt(25769,13622,"ide_methods.bas");}while(r);
}
fornext_continue_6327:;
}
fornext_exit_6327:;
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13625,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len("()",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13626,"ide_methods.bas");}while(r);
}
do{
SUB_CLEANSUBNAME(_FUNC_IDESUBS_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13628,"ide_methods.bas");}while(r);
S_54685:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||is_error_pending()){
if(qbevent){evnt(25769,13629,"ide_methods.bas");if(r)goto S_54685;}
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_N->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13629,"ide_methods.bas");}while(r);
}
S_54688:;
if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT))||is_error_pending()){
if(qbevent){evnt(25769,13630,"ide_methods.bas");if(r)goto S_54688;}
do{
*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT;
if(!qbevent)break;evnt(25769,13630,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_N2,_FUNC_IDESUBS_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13634,"ide_methods.bas");}while(r);
S_54692:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N2->len> 1 )))||is_error_pending()){
if(qbevent){evnt(25769,13635,"ide_methods.bas");if(r)goto S_54692;}
S_54693:;
while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_N2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||is_error_pending()){
if(qbevent){evnt(25769,13636,"ide_methods.bas");if(r)goto S_54693;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N2,qbs_left(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_N2->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13637,"ide_methods.bas");}while(r);
dl_continue_6333:;
}
dl_exit_6333:;
}
S_54697:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A2,qbs_ucase(_FUNC_IDESUBS_STRING_N2))))||is_error_pending()){
if(qbevent){evnt(25769,13640,"ide_methods.bas");if(r)goto S_54697;}
do{
*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13640,"ide_methods.bas");}while(r);
}
S_54700:;
if ((-(*_FUNC_IDESUBS_LONG_INSIDEDECLARE== -1 ))||is_error_pending()){
if(qbevent){evnt(25769,13642,"ide_methods.bas");if(r)goto S_54700;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_new_txt_len("*",1),_FUNC_IDESUBS_STRING_N));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13643,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= -1 ;
if(!qbevent)break;evnt(25769,13644,"ide_methods.bas");}while(r);
}else{
S_54704:;
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
if(qbevent){evnt(25769,13646,"ide_methods.bas");if(r)goto S_54704;}
do{
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
if(!qbevent)break;evnt(25769,13646,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=173;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDLINECOUNT;
RETURN_173:;
if(!qbevent)break;evnt(25769,13646,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_SUBCLOSED= 0ll ;
if(!qbevent)break;evnt(25769,13647,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ;
if(!qbevent)break;evnt(25769,13648,"ide_methods.bas");}while(r);
}
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long])),_FUNC_IDESUBS_STRING_N);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13652,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]);
if (!is_error_pending()) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_Y;
if(!qbevent)break;evnt(25769,13653,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long])),_FUNC_IDESUBS_STRING_ARGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13654,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long])),_FUNC_IDESUBS_STRING_SF);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13655,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDESUBS_LONG_I=func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("  ",2),0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13658,"ide_methods.bas");}while(r);
S_54717:;
while((-(*_FUNC_IDESUBS_LONG_I> 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13659,"ide_methods.bas");if(r)goto S_54717;}
do{
qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I),func_mid(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I+ 2 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13660,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=func_instr(*_FUNC_IDESUBS_LONG_I,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("  ",2),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13661,"ide_methods.bas");}while(r);
dl_continue_6336:;
}
dl_exit_6336:;
do{
*_FUNC_IDESUBS_LONG_CURSOR= 0 ;
if(!qbevent)break;evnt(25769,13664,"ide_methods.bas");}while(r);
LABEL_LOOKFORENDSUB:;
if(qbevent){evnt(25769,13665,"ide_methods.bas");r=0;}
do{
*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END SUB",7),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13666,"ide_methods.bas");}while(r);
S_54723:;
if ((-(*_FUNC_IDESUBS_LONG_SF== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13667,"ide_methods.bas");if(r)goto S_54723;}
do{
*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END FUNCTION",12),0|1);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13667,"ide_methods.bas");}while(r);
}
S_54726:;
if ((*_FUNC_IDESUBS_LONG_SF)||is_error_pending()){
if(qbevent){evnt(25769,13669,"ide_methods.bas");if(r)goto S_54726;}
do{
SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_NCA,_FUNC_IDESUBS_LONG_SF,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13670,"ide_methods.bas");}while(r);
S_54728:;
if ((*_FUNC_IDESUBS_BYTE_COMMENT|*_FUNC_IDESUBS_BYTE_QUOTE)||is_error_pending()){
if(qbevent){evnt(25769,13671,"ide_methods.bas");if(r)goto S_54728;}
do{
*_FUNC_IDESUBS_LONG_CURSOR=*_FUNC_IDESUBS_LONG_SF;
if(!qbevent)break;evnt(25769,13671,"ide_methods.bas");}while(r);
do{
goto LABEL_LOOKFORENDSUB;
if(!qbevent)break;evnt(25769,13671,"ide_methods.bas");}while(r);
}
do{
return_point[next_return_point++]=174;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDLINECOUNT;
RETURN_174:;
if(!qbevent)break;evnt(25769,13672,"ide_methods.bas");}while(r);
}
}
fornext_continue_6320:;
}
fornext_exit_6320:;
S_54736:;
if ((~(*_FUNC_IDESUBS_LONG_SUBCLOSED))||is_error_pending()){
if(qbevent){evnt(25769,13677,"ide_methods.bas");if(r)goto S_54736;}
do{
return_point[next_return_point++]=175;
if (next_return_point>=return_points) more_return_points();
goto LABEL_ADDLINECOUNT;
RETURN_175:;
if(!qbevent)break;evnt(25769,13677,"ide_methods.bas");}while(r);
}
S_54739:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))&(-(*_FUNC_IDESUBS_LONG_TOTALSUBS<func_ubound(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST,1,1)))))||is_error_pending()){
if(qbevent){evnt(25769,13680,"ide_methods.bas");if(r)goto S_54739;}
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13681,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 1 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(998);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*998);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1;
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13682,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13683,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13684,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_LONG_SUBLINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(4);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
memset((void*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*4);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257);
}
}
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1;
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13685,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_ARGS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_ARGS[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_ARGS[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_ARGS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_ARGS[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_ARGS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13686,"ide_methods.bas");}while(r);
do{
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)_FUNC_IDESUBS_ARRAY_STRING_SF)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&1){
preserve_old_ptr=_FUNC_IDESUBS_ARRAY_STRING_SF[0];
preserve_old_flags=_FUNC_IDESUBS_ARRAY_STRING_SF[2];
preserve_old_total=_FUNC_IDESUBS_ARRAY_STRING_SF[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_FUNC_IDESUBS_LONG_TOTALSUBS)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=preserve_new_ptr;
}else{
_FUNC_IDESUBS_ARRAY_STRING_SF[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_IDESUBS_ARRAY_STRING_SF[0]) error(257);
_FUNC_IDESUBS_ARRAY_STRING_SF[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&4){
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
_FUNC_IDESUBS_ARRAY_STRING_SF[4]=alloc_new_desc[4];
_FUNC_IDESUBS_ARRAY_STRING_SF[5]=alloc_new_desc[5];
_FUNC_IDESUBS_ARRAY_STRING_SF[6]=alloc_new_desc[6];
_FUNC_IDESUBS_ARRAY_STRING_SF[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25769,13687,"ide_methods.bas");}while(r);
}
S_54748:;
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13691,"ide_methods.bas");if(r)goto S_54748;}
S_54749:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__tostr((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT),NULL,0))->len)<= 10 )))||is_error_pending()){
if(qbevent){evnt(25769,13692,"ide_methods.bas");if(r)goto S_54749;}
do{
*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 10 ;
if(!qbevent)break;evnt(25769,13693,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Line count",10));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13694,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,qbs_new_txt_len("external",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13695,"ide_methods.bas");}while(r);
}
S_54754:;
if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__tostr((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT),NULL,0))->len)<= 5 )))||is_error_pending()){
if(qbevent){evnt(25769,13697,"ide_methods.bas");if(r)goto S_54754;}
do{
*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 5 ;
if(!qbevent)break;evnt(25769,13698,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Lines",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13699,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,func_chr( 196 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13700,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,func_space((*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+ 2 )-_FUNC_IDESUBS_STRING_L->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13703,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13704,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13705,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("  Type  Arguments",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13706,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13707,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13708,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,qbs_new_txt_len("  ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len("  Type  Arguments",17)),_FUNC_IDESUBS_STRING1_SEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13709,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_new_txt_len("  ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len("  Type  Arguments",17)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13710,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13712,"ide_methods.bas");}while(r);
S_54769:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,13713,"ide_methods.bas");if(r)goto S_54769;}
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13713,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13714,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_DIALOGWIDTH= 50 ;
if(!qbevent)break;evnt(25769,13718,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_ARGSLENGTH= 2 ;
if(!qbevent)break;evnt(25769,13719,"ide_methods.bas");}while(r);
S_54776:;
fornext_value6339= 1 ;
fornext_finalvalue6339=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step6339= 1 ;
if (fornext_step6339<0) fornext_step_negative6339=1; else fornext_step_negative6339=0;
if (is_error_pending()) goto fornext_error6339;
goto fornext_entrylabel6339;
while(1){
fornext_value6339=fornext_step6339+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel6339:
*_FUNC_IDESUBS_LONG_X=fornext_value6339;
if (fornext_step_negative6339){
if (fornext_value6339<fornext_finalvalue6339) break;
}else{
if (fornext_value6339>fornext_finalvalue6339) break;
}
fornext_error6339:;
if(qbevent){evnt(25769,13720,"ide_methods.bas");if(r)goto S_54776;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13721,"ide_methods.bas");}while(r);
S_54778:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||is_error_pending()){
if(qbevent){evnt(25769,13722,"ide_methods.bas");if(r)goto S_54778;}
do{
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_N,*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN- 3 ),func_string( 3 , 250 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13723,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(_FUNC_IDESUBS_STRING_N,func_space(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN-_FUNC_IDESUBS_STRING_N->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13725,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13728,"ide_methods.bas");}while(r);
S_54784:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len>*_FUNC_IDESUBS_LONG_ARGSLENGTH)))||is_error_pending()){
if(qbevent){evnt(25769,13729,"ide_methods.bas");if(r)goto S_54784;}
do{
*_FUNC_IDESUBS_LONG_ARGSLENGTH=_FUNC_IDESUBS_STRING_ARGS->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13729,"ide_methods.bas");}while(r);
}
S_54787:;
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len<=(*__LONG_IDEWX- 41 ))))||is_error_pending()){
if(qbevent){evnt(25769,13730,"ide_methods.bas");if(r)goto S_54787;}
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(_FUNC_IDESUBS_STRING_ARGS,func_space((*__LONG_IDEWX- 41 )-_FUNC_IDESUBS_STRING_ARGS->len)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13731,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_ARGS,(*__LONG_IDEWX- 44 )),func_string( 3 , 250 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13733,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_SF,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5])])));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13736,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_L,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len("  ",2)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13739,"ide_methods.bas");}while(r);
S_54794:;
if ((-(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13741,"ide_methods.bas");if(r)goto S_54794;}
do{
qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13741,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs__tostr((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13741,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len("  ",2)),func_chr( 16 )),func_chr( 2 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len("  ",2)),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS),_FUNC_IDESUBS_STRING1_SEP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13744,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LISTITEM,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_N,qbs_new_txt_len("  ",2)),func_chr( 1 )),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13746,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=_FUNC_IDESUBS_STRING_LISTITEM->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13747,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[tmp_long*998],998,1),qbs_ucase(_FUNC_IDESUBS_STRING_LISTITEM));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13748,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]);
if (!is_error_pending()) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[tmp_long*998],998,1),_FUNC_IDESUBS_STRING_LISTITEM);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13749,"ide_methods.bas");}while(r);
do{
sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1);
if(!qbevent)break;evnt(25769,13750,"ide_methods.bas");}while(r);
do{
sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1);
if(!qbevent)break;evnt(25769,13751,"ide_methods.bas");}while(r);
fornext_continue_6338:;
}
fornext_exit_6338:;
do{
sub_mid(_FUNC_IDESUBS_STRING_L,func__instrrev(NULL,_FUNC_IDESUBS_STRING_L,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
if(!qbevent)break;evnt(25769,13754,"ide_methods.bas");}while(r);
do{
sub_mid(_FUNC_IDESUBS_STRING_LSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
if(!qbevent)break;evnt(25769,13755,"ide_methods.bas");}while(r);
S_54809:;
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||is_error_pending()){
if(qbevent){evnt(25769,13757,"ide_methods.bas");if(r)goto S_54809;}
do{
SUB_SORT(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13758,"ide_methods.bas");}while(r);
S_54811:;
fornext_value6349= 1 ;
fornext_finalvalue6349=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step6349= 1 ;
if (fornext_step6349<0) fornext_step_negative6349=1; else fornext_step_negative6349=0;
if (is_error_pending()) goto fornext_error6349;
goto fornext_entrylabel6349;
while(1){
fornext_value6349=fornext_step6349+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel6349:
*_FUNC_IDESUBS_LONG_X=fornext_value6349;
if (fornext_step_negative6349){
if (fornext_value6349<fornext_finalvalue6349) break;
}else{
if (fornext_value6349>fornext_finalvalue6349) break;
}
fornext_error6349:;
if(qbevent){evnt(25769,13760,"ide_methods.bas");if(r)goto S_54811;}
do{
*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=string2i(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 2 , 2 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13761,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,qbs_add(_FUNC_IDESUBS_STRING_LYSORTED,func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13762,"ide_methods.bas");}while(r);
S_54814:;
fornext_value6353= 1 ;
fornext_finalvalue6353=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step6353= 1 ;
if (fornext_step6353<0) fornext_step_negative6353=1; else fornext_step_negative6353=0;
if (is_error_pending()) goto fornext_error6353;
goto fornext_entrylabel6353;
while(1){
fornext_value6353=fornext_step6353+(*_FUNC_IDESUBS_LONG_RESTORECASEBKP);
fornext_entrylabel6353:
*_FUNC_IDESUBS_LONG_RESTORECASEBKP=fornext_value6353;
if (fornext_step_negative6353){
if (fornext_value6353<fornext_finalvalue6353) break;
}else{
if (fornext_value6353>fornext_finalvalue6353) break;
}
fornext_error6353:;
if(qbevent){evnt(25769,13763,"ide_methods.bas");if(r)goto S_54814;}
S_54815:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||is_error_pending()){
if(qbevent){evnt(25769,13764,"ide_methods.bas");if(r)goto S_54815;}
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13765,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_TEMP,qbs_left(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),*_FUNC_IDESUBS_LONG_LISTITEMLENGTH));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13766,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13768,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs__tostr((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13770,"ide_methods.bas");}while(r);
S_54820:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_TEMP, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
if(qbevent){evnt(25769,13771,"ide_methods.bas");if(r)goto S_54820;}
do{
qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13771,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13772,"ide_methods.bas");}while(r);
do{
qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len("  ",2)),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13775,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6352;
if(!qbevent)break;evnt(25769,13776,"ide_methods.bas");}while(r);
}
fornext_continue_6352:;
}
fornext_exit_6352:;
fornext_continue_6348:;
}
fornext_exit_6348:;
do{
sub_mid(_FUNC_IDESUBS_STRING_LSORTED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
if(!qbevent)break;evnt(25769,13781,"ide_methods.bas");}while(r);
do{
sub_mid(_FUNC_IDESUBS_STRING_LSORTEDSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTEDSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1);
if(!qbevent)break;evnt(25769,13782,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS;
if(!qbevent)break;evnt(25769,13783,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG= 0 ;
if(!qbevent)break;evnt(25769,13785,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_I= 0 ;
if(!qbevent)break;evnt(25769,13789,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 4 ;
if(!qbevent)break;evnt(25769,13790,"ide_methods.bas");}while(r);
S_54837:;
if ((-(*_FUNC_IDESUBS_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||is_error_pending()){
if(qbevent){evnt(25769,13791,"ide_methods.bas");if(r)goto S_54837;}
do{
*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ;
if(!qbevent)break;evnt(25769,13792,"ide_methods.bas");}while(r);
}
S_54840:;
if ((-((*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 )>*_FUNC_IDESUBS_LONG_DIALOGWIDTH))||is_error_pending()){
if(qbevent){evnt(25769,13795,"ide_methods.bas");if(r)goto S_54840;}
do{
*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 ;
if(!qbevent)break;evnt(25769,13795,"ide_methods.bas");}while(r);
}
S_54843:;
if ((-(*_FUNC_IDESUBS_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||is_error_pending()){
if(qbevent){evnt(25769,13796,"ide_methods.bas");if(r)goto S_54843;}
do{
*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ;
if(!qbevent)break;evnt(25769,13796,"ide_methods.bas");}while(r);
}
do{
SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + ((0+0)) ),_FUNC_IDESUBS_LONG_DIALOGWIDTH,_FUNC_IDESUBS_LONG_DIALOGHEIGHT,qbs_new_txt_len("SUBs",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13798,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
if(!qbevent)break;evnt(25769,13800,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)))= 2 ;
if(!qbevent)break;evnt(25769,13801,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+24)))= 1 ;
if(!qbevent)break;evnt(25769,13802,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+28)))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 4 ;
if(!qbevent)break;evnt(25769,13804,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+32)))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT- 3 ;
if(!qbevent)break;evnt(25769,13804,"ide_methods.bas");}while(r);
S_54852:;
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13805,"ide_methods.bas");if(r)goto S_54852;}
S_54853:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(25769,13806,"ide_methods.bas");if(r)goto S_54853;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSIZED);
if(!qbevent)break;evnt(25769,13807,"ide_methods.bas");}while(r);
}else{
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_L);
if(!qbevent)break;evnt(25769,13809,"ide_methods.bas");}while(r);
}
S_54858:;
if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13812,"ide_methods.bas");if(r)goto S_54858;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC;
if(!qbevent)break;evnt(25769,13813,"ide_methods.bas");}while(r);
}else{
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC;
if(!qbevent)break;evnt(25769,13815,"ide_methods.bas");}while(r);
}
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13818,"ide_methods.bas");}while(r);
S_54865:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(25769,13819,"ide_methods.bas");if(r)goto S_54865;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTEDSIZED);
if(!qbevent)break;evnt(25769,13820,"ide_methods.bas");}while(r);
}else{
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTED);
if(!qbevent)break;evnt(25769,13822,"ide_methods.bas");}while(r);
}
S_54870:;
if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13824,"ide_methods.bas");if(r)goto S_54870;}
S_54871:;
fornext_value6358= 1 ;
fornext_finalvalue6358=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step6358= 1 ;
if (fornext_step6358<0) fornext_step_negative6358=1; else fornext_step_negative6358=0;
if (is_error_pending()) goto fornext_error6358;
goto fornext_entrylabel6358;
while(1){
fornext_value6358=fornext_step6358+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel6358:
*_FUNC_IDESUBS_LONG_X=fornext_value6358;
if (fornext_step_negative6358){
if (fornext_value6358<fornext_finalvalue6358) break;
}else{
if (fornext_value6358>fornext_finalvalue6358) break;
}
fornext_error6358:;
if(qbevent){evnt(25769,13825,"ide_methods.bas");if(r)goto S_54871;}
S_54872:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC* 4 )-( 3 ), 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||is_error_pending()){
if(qbevent){evnt(25769,13826,"ide_methods.bas");if(r)goto S_54872;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_X+ 1 ;
if(!qbevent)break;evnt(25769,13827,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6357;
if(!qbevent)break;evnt(25769,13828,"ide_methods.bas");}while(r);
}
fornext_continue_6357:;
}
fornext_exit_6357:;
}else{
S_54878:;
fornext_value6361= 1 ;
fornext_finalvalue6361=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step6361= 1 ;
if (fornext_step6361<0) fornext_step_negative6361=1; else fornext_step_negative6361=0;
if (is_error_pending()) goto fornext_error6361;
goto fornext_entrylabel6361;
while(1){
fornext_value6361=fornext_step6361+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel6361:
*_FUNC_IDESUBS_LONG_X=fornext_value6361;
if (fornext_step_negative6361){
if (fornext_value6361<fornext_finalvalue6361) break;
}else{
if (fornext_value6361>fornext_finalvalue6361) break;
}
fornext_error6361:;
if(qbevent){evnt(25769,13832,"ide_methods.bas");if(r)goto S_54878;}
S_54879:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC* 4 )-( 3 ), 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||is_error_pending()){
if(qbevent){evnt(25769,13833,"ide_methods.bas");if(r)goto S_54879;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_X+ 1 ;
if(!qbevent)break;evnt(25769,13834,"ide_methods.bas");}while(r);
do{
goto fornext_exit_6360;
if(!qbevent)break;evnt(25769,13835,"ide_methods.bas");}while(r);
}
fornext_continue_6360:;
}
fornext_exit_6360:;
}
}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("Program Items",13));
if(!qbevent)break;evnt(25769,13840,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
if(!qbevent)break;evnt(25769,13842,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)))= 4 ;
if(!qbevent)break;evnt(25769,13843,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+20)))= 2 ;
if(!qbevent)break;evnt(25769,13844,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+24)))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT;
if(!qbevent)break;evnt(25769,13845,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("#Line Count",11));
if(!qbevent)break;evnt(25769,13846,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*__BYTE_IDESUBSLENGTH;
if(!qbevent)break;evnt(25769,13847,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
if(!qbevent)break;evnt(25769,13849,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)))= 4 ;
if(!qbevent)break;evnt(25769,13850,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+20)))= 18 ;
if(!qbevent)break;evnt(25769,13851,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+24)))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT;
if(!qbevent)break;evnt(25769,13852,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+40)))=FUNC_IDENEWTXT(qbs_new_txt_len("#Sort",5));
if(!qbevent)break;evnt(25769,13853,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG;
if(!qbevent)break;evnt(25769,13854,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ;
if(!qbevent)break;evnt(25769,13856,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)))= 3 ;
if(!qbevent)break;evnt(25769,13857,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+28)))= 26 ;
if(!qbevent)break;evnt(25769,13858,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+20)))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 22 ;
if(!qbevent)break;evnt(25769,13859,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+24)))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT;
if(!qbevent)break;evnt(25769,13860,"ide_methods.bas");}while(r);
S_54904:;
if ((-(*__LONG_IDEDEBUGMODE== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13861,"ide_methods.bas");if(r)goto S_54904;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Edit",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7)));
if(!qbevent)break;evnt(25769,13862,"ide_methods.bas");}while(r);
}else{
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44)))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#View",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7)));
if(!qbevent)break;evnt(25769,13864,"ide_methods.bas");}while(r);
}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+60)))= 1 ;
if(!qbevent)break;evnt(25769,13866,"ide_methods.bas");}while(r);
S_54910:;
fornext_value6364= 1 ;
fornext_finalvalue6364= 100 ;
fornext_step6364= 1 ;
if (fornext_step6364<0) fornext_step_negative6364=1; else fornext_step_negative6364=0;
if (is_error_pending()) goto fornext_error6364;
goto fornext_entrylabel6364;
while(1){
fornext_value6364=fornext_step6364+(*_FUNC_IDESUBS_LONG_I);
fornext_entrylabel6364:
*_FUNC_IDESUBS_LONG_I=fornext_value6364;
if (fornext_step_negative6364){
if (fornext_value6364<fornext_finalvalue6364) break;
}else{
if (fornext_value6364>fornext_finalvalue6364) break;
}
fornext_error6364:;
if(qbevent){evnt(25769,13872,"ide_methods.bas");if(r)goto S_54910;}
do{
memcpy(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+0))+ 0,((char*)_FUNC_IDESUBS_UDT_P)+((0+0))+ 0, 20);
if(!qbevent)break;evnt(25769,13872,"ide_methods.bas");}while(r);
fornext_continue_6363:;
}
fornext_exit_6363:;
S_54913:;
do{
if(qbevent){evnt(25769,13875,"ide_methods.bas");if(r)goto S_54913;}
do{
SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + ((0+0)) ));
if(!qbevent)break;evnt(25769,13878,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_F= 1 ;
if(!qbevent)break;evnt(25769,13879,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CX= 0 ;
if(!qbevent)break;evnt(25769,13879,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CY= 0 ;
if(!qbevent)break;evnt(25769,13879,"ide_methods.bas");}while(r);
S_54918:;
fornext_value6367= 1 ;
fornext_finalvalue6367= 100 ;
fornext_step6367= 1 ;
if (fornext_step6367<0) fornext_step_negative6367=1; else fornext_step_negative6367=0;
if (is_error_pending()) goto fornext_error6367;
goto fornext_entrylabel6367;
while(1){
fornext_value6367=fornext_step6367+(*_FUNC_IDESUBS_LONG_I);
fornext_entrylabel6367:
*_FUNC_IDESUBS_LONG_I=fornext_value6367;
if (fornext_step_negative6367){
if (fornext_value6367<fornext_finalvalue6367) break;
}else{
if (fornext_value6367>fornext_finalvalue6367) break;
}
fornext_error6367:;
if(qbevent){evnt(25769,13880,"ide_methods.bas");if(r)goto S_54918;}
S_54919:;
if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36))))||is_error_pending()){
if(qbevent){evnt(25769,13881,"ide_methods.bas");if(r)goto S_54919;}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+72)))=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F;
if(!qbevent)break;evnt(25769,13884,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+64)))= 0 ;
if(!qbevent)break;evnt(25769,13885,"ide_methods.bas");}while(r);
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+68)))= 0 ;
if(!qbevent)break;evnt(25769,13885,"ide_methods.bas");}while(r);
do{
SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDESUBS_LONG_F);
if(!qbevent)break;evnt(25769,13886,"ide_methods.bas");}while(r);
S_54924:;
if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+64))))||is_error_pending()){
if(qbevent){evnt(25769,13887,"ide_methods.bas");if(r)goto S_54924;}
do{
*_FUNC_IDESUBS_LONG_CX=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+64)));
if(!qbevent)break;evnt(25769,13887,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CY=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+68)));
if(!qbevent)break;evnt(25769,13887,"ide_methods.bas");}while(r);
}
}
fornext_continue_6366:;
}
fornext_exit_6366:;
do{
*_FUNC_IDESUBS_LONG_LASTFOCUS=*_FUNC_IDESUBS_LONG_F- 1 ;
if(!qbevent)break;evnt(25769,13890,"ide_methods.bas");}while(r);
S_54931:;
if ((*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC)||is_error_pending()){
if(qbevent){evnt(25769,13894,"ide_methods.bas");if(r)goto S_54931;}
do{
qbg_sub_color( 2 , 7 ,NULL,NULL,3);
if(!qbevent)break;evnt(25769,13895,"ide_methods.bas");}while(r);
do{
sub__printstring(*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+((0+0)))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+((0+8)))- 32 ,*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+((0+4)))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+((0+12))),qbs_new_txt_len("* external",10),NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13896,"ide_methods.bas");}while(r);
}
do{
sub_pcopy( 1 , 0 );
if(!qbevent)break;evnt(25769,13901,"ide_methods.bas");}while(r);
S_54936:;
if ((*_FUNC_IDESUBS_LONG_CX)||is_error_pending()){
if(qbevent){evnt(25769,13902,"ide_methods.bas");if(r)goto S_54936;}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(25769,13902,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(*_FUNC_IDESUBS_LONG_CY,*_FUNC_IDESUBS_LONG_CX, 1 ,NULL,NULL,7);
if(!qbevent)break;evnt(25769,13902,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(25769,13902,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 0 ;
if(!qbevent)break;evnt(25769,13905,"ide_methods.bas");}while(r);
S_54942:;
do{
if(qbevent){evnt(25769,13906,"ide_methods.bas");if(r)goto S_54942;}
do{
SUB_GETINPUT();
if(!qbevent)break;evnt(25769,13907,"ide_methods.bas");}while(r);
S_54944:;
if ((*__LONG_MWHEEL)||is_error_pending()){
if(qbevent){evnt(25769,13908,"ide_methods.bas");if(r)goto S_54944;}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(25769,13908,"ide_methods.bas");}while(r);
}
S_54947:;
if ((*__LONG_KB)||is_error_pending()){
if(qbevent){evnt(25769,13909,"ide_methods.bas");if(r)goto S_54947;}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(25769,13909,"ide_methods.bas");}while(r);
}
S_54950:;
if ((*__LONG_MCLICK)||is_error_pending()){
if(qbevent){evnt(25769,13910,"ide_methods.bas");if(r)goto S_54950;}
do{
*_FUNC_IDESUBS_LONG_MOUSEDOWN= 1 ;
if(!qbevent)break;evnt(25769,13910,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(25769,13910,"ide_methods.bas");}while(r);
}
S_54954:;
if ((*__LONG_MRELEASE)||is_error_pending()){
if(qbevent){evnt(25769,13911,"ide_methods.bas");if(r)goto S_54954;}
do{
*_FUNC_IDESUBS_LONG_MOUSEUP= 1 ;
if(!qbevent)break;evnt(25769,13911,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(25769,13911,"ide_methods.bas");}while(r);
}
S_54958:;
if ((*__LONG_MB)||is_error_pending()){
if(qbevent){evnt(25769,13912,"ide_methods.bas");if(r)goto S_54958;}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(25769,13912,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_ALT=*__LONG_KALT;
if(!qbevent)break;evnt(25769,13913,"ide_methods.bas");}while(r);
S_54962:;
if ((-(*_FUNC_IDESUBS_LONG_ALT!=*_FUNC_IDESUBS_LONG_OLDALT))||is_error_pending()){
if(qbevent){evnt(25769,13913,"ide_methods.bas");if(r)goto S_54962;}
do{
*_FUNC_IDESUBS_LONG_CHANGE= 1 ;
if(!qbevent)break;evnt(25769,13913,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_OLDALT=*_FUNC_IDESUBS_LONG_ALT;
if(!qbevent)break;evnt(25769,13914,"ide_methods.bas");}while(r);
do{
sub__limit( 100 );
if(!qbevent)break;evnt(25769,13915,"ide_methods.bas");}while(r);
S_54967:;
dl_continue_6368:;
}while((!(*_FUNC_IDESUBS_LONG_CHANGE))&&(!is_error_pending()));
dl_exit_6368:;
if(qbevent){evnt(25769,13916,"ide_methods.bas");if(r)goto S_54967;}
S_54968:;
if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(25769,13917,"ide_methods.bas");if(r)goto S_54968;}
do{
*__LONG_IDEHL= 1 ;
if(!qbevent)break;evnt(25769,13917,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_IDEHL= 0 ;
if(!qbevent)break;evnt(25769,13917,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13919,"ide_methods.bas");}while(r);
S_54974:;
if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||is_error_pending()){
if(qbevent){evnt(25769,13920,"ide_methods.bas");if(r)goto S_54974;}
S_54975:;
if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||is_error_pending()){
if(qbevent){evnt(25769,13921,"ide_methods.bas");if(r)goto S_54975;}
do{
*_FUNC_IDESUBS_LONG_K=qbs_asc(qbs_ucase(__STRING_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13922,"ide_methods.bas");}while(r);
S_54977:;
if (((-(*_FUNC_IDESUBS_LONG_K>= 65 ))&(-(*_FUNC_IDESUBS_LONG_K<= 90 )))||is_error_pending()){
if(qbevent){evnt(25769,13923,"ide_methods.bas");if(r)goto S_54977;}
do{
qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,func_chr(*_FUNC_IDESUBS_LONG_K));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13923,"ide_methods.bas");}while(r);
}
}
}
do{
qbg_screen(NULL,NULL, 0 , 0 ,NULL,12);
if(!qbevent)break;evnt(25769,13926,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4);
if(!qbevent)break;evnt(25769,13926,"ide_methods.bas");}while(r);
do{
qbg_screen(NULL,NULL, 1 , 0 ,NULL,12);
if(!qbevent)break;evnt(25769,13926,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_INFO= 0 ;
if(!qbevent)break;evnt(25769,13930,"ide_methods.bas");}while(r);
S_54986:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||is_error_pending()){
if(qbevent){evnt(25769,13931,"ide_methods.bas");if(r)goto S_54986;}
do{
qbs_set(__STRING_K,func_chr( 255 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13931,"ide_methods.bas");}while(r);
}
S_54989:;
if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||is_error_pending()){
if(qbevent){evnt(25769,13932,"ide_methods.bas");if(r)goto S_54989;}
do{
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS+ 1 ;
if(!qbevent)break;evnt(25769,13932,"ide_methods.bas");}while(r);
}
S_54992:;
if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||is_error_pending()){
if(qbevent){evnt(25769,13933,"ide_methods.bas");if(r)goto S_54992;}
do{
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS- 1 ;
if(!qbevent)break;evnt(25769,13933,"ide_methods.bas");}while(r);
do{
qbs_set(__STRING_K,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13933,"ide_methods.bas");}while(r);
}
S_54996:;
if ((-(*_FUNC_IDESUBS_LONG_FOCUS< 1 ))||is_error_pending()){
if(qbevent){evnt(25769,13934,"ide_methods.bas");if(r)goto S_54996;}
do{
*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_LASTFOCUS;
if(!qbevent)break;evnt(25769,13934,"ide_methods.bas");}while(r);
}
S_54999:;
if ((-(*_FUNC_IDESUBS_LONG_FOCUS>*_FUNC_IDESUBS_LONG_LASTFOCUS))||is_error_pending()){
if(qbevent){evnt(25769,13935,"ide_methods.bas");if(r)goto S_54999;}
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(25769,13935,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_F= 1 ;
if(!qbevent)break;evnt(25769,13936,"ide_methods.bas");}while(r);
S_55003:;
fornext_value6371= 1 ;
fornext_finalvalue6371= 100 ;
fornext_step6371= 1 ;
if (fornext_step6371<0) fornext_step_negative6371=1; else fornext_step_negative6371=0;
if (is_error_pending()) goto fornext_error6371;
goto fornext_entrylabel6371;
while(1){
fornext_value6371=fornext_step6371+(*_FUNC_IDESUBS_LONG_I);
fornext_entrylabel6371:
*_FUNC_IDESUBS_LONG_I=fornext_value6371;
if (fornext_step_negative6371){
if (fornext_value6371<fornext_finalvalue6371) break;
}else{
if (fornext_value6371>fornext_finalvalue6371) break;
}
fornext_error6371:;
if(qbevent){evnt(25769,13937,"ide_methods.bas");if(r)goto S_55003;}
do{
*_FUNC_IDESUBS_LONG_T=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+36)));
if(!qbevent)break;evnt(25769,13938,"ide_methods.bas");}while(r);
S_55005:;
if ((*_FUNC_IDESUBS_LONG_T)||is_error_pending()){
if(qbevent){evnt(25769,13939,"ide_methods.bas");if(r)goto S_55005;}
do{
*_FUNC_IDESUBS_LONG_FOCUSOFFSET=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F;
if(!qbevent)break;evnt(25769,13940,"ide_methods.bas");}while(r);
do{
SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + (((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+0)) ),_FUNC_IDESUBS_LONG_FOCUS,_FUNC_IDESUBS_LONG_F,_FUNC_IDESUBS_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESUBS_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESUBS_LONG_MOUSEDOWN,_FUNC_IDESUBS_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESUBS_LONG_INFO,__LONG_MWHEEL);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13941,"ide_methods.bas");}while(r);
}
fornext_continue_6370:;
}
fornext_exit_6370:;
S_55010:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 5 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))))||is_error_pending()){
if(qbevent){evnt(25769,13946,"ide_methods.bas");if(r)goto S_55010;}
do{
qbs_set(_FUNC_IDESUBS_STRING_IDESUBS,qbs_new_txt_len("C",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13947,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=176;
if (next_return_point>=return_points) more_return_points();
goto LABEL_SAVESORTSETTINGS;
RETURN_176:;
if(!qbevent)break;evnt(25769,13948,"ide_methods.bas");}while(r);
do{
SUB_CLEARMOUSE();
if(!qbevent)break;evnt(25769,13949,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,13950,"ide_methods.bas");}while(r);
}
S_55016:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 4 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDESUBS_LONG_INFO== 1 ))&(-(*_FUNC_IDESUBS_LONG_FOCUS== 1 ))))))||is_error_pending()){
if(qbevent){evnt(25769,13953,"ide_methods.bas");if(r)goto S_55016;}
do{
*_FUNC_IDESUBS_LONG_Y=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)));
if(!qbevent)break;evnt(25769,13954,"ide_methods.bas");}while(r);
S_55018:;
if ((-(*_FUNC_IDESUBS_LONG_Y< 1 ))||is_error_pending()){
if(qbevent){evnt(25769,13955,"ide_methods.bas");if(r)goto S_55018;}
do{
*_FUNC_IDESUBS_LONG_Y=-(*_FUNC_IDESUBS_LONG_Y);
if(!qbevent)break;evnt(25769,13955,"ide_methods.bas");}while(r);
}
do{
SUB_ADDQUICKNAVHISTORY();
if(!qbevent)break;evnt(25769,13956,"ide_methods.bas");}while(r);
S_55022:;
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13957,"ide_methods.bas");if(r)goto S_55022;}
do{
*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13958,"ide_methods.bas");}while(r);
}else{
do{
*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13960,"ide_methods.bas");}while(r);
}
do{
*__LONG_IDESY=*__LONG_IDECY;
if(!qbevent)break;evnt(25769,13962,"ide_methods.bas");}while(r);
do{
*__LONG_IDECX= 1 ;
if(!qbevent)break;evnt(25769,13963,"ide_methods.bas");}while(r);
do{
*__LONG_IDESX= 1 ;
if(!qbevent)break;evnt(25769,13964,"ide_methods.bas");}while(r);
do{
return_point[next_return_point++]=177;
if (next_return_point>=return_points) more_return_points();
goto LABEL_SAVESORTSETTINGS;
RETURN_177:;
if(!qbevent)break;evnt(25769,13966,"ide_methods.bas");}while(r);
do{
SUB_CLEARMOUSE();
if(!qbevent)break;evnt(25769,13967,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,13968,"ide_methods.bas");}while(r);
}
S_55034:;
if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))!=*__BYTE_IDESUBSLENGTH))||is_error_pending()){
if(qbevent){evnt(25769,13971,"ide_methods.bas");if(r)goto S_55034;}
do{
*__BYTE_IDESUBSLENGTH=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)));
if(!qbevent)break;evnt(25769,13972,"ide_methods.bas");}while(r);
S_55036:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(25769,13973,"ide_methods.bas");if(r)goto S_55036;}
S_55037:;
if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76))))||is_error_pending()){
if(qbevent){evnt(25769,13974,"ide_methods.bas");if(r)goto S_55037;}
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13975,"ide_methods.bas");}while(r);
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13977,"ide_methods.bas");}while(r);
}
}else{
S_55043:;
if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76))))||is_error_pending()){
if(qbevent){evnt(25769,13980,"ide_methods.bas");if(r)goto S_55043;}
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13981,"ide_methods.bas");}while(r);
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13983,"ide_methods.bas");}while(r);
}
}
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(25769,13986,"ide_methods.bas");}while(r);
}
S_55051:;
if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||is_error_pending()){
if(qbevent){evnt(25769,13989,"ide_methods.bas");if(r)goto S_55051;}
S_55052:;
if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))!=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG))||is_error_pending()){
if(qbevent){evnt(25769,13990,"ide_methods.bas");if(r)goto S_55052;}
do{
*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)));
if(!qbevent)break;evnt(25769,13991,"ide_methods.bas");}while(r);
S_55054:;
if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13993,"ide_methods.bas");if(r)goto S_55054;}
do{
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ;
if(!qbevent)break;evnt(25769,13995,"ide_methods.bas");}while(r);
S_55056:;
if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))> 0 ))||is_error_pending()){
if(qbevent){evnt(25769,13996,"ide_methods.bas");if(r)goto S_55056;}
do{
qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,13997,"ide_methods.bas");}while(r);
S_55058:;
fornext_value6373= 1 ;
fornext_finalvalue6373=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step6373= 1 ;
if (fornext_step6373<0) fornext_step_negative6373=1; else fornext_step_negative6373=0;
if (is_error_pending()) goto fornext_error6373;
goto fornext_entrylabel6373;
while(1){
fornext_value6373=fornext_step6373+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel6373:
*_FUNC_IDESUBS_LONG_X=fornext_value6373;
if (fornext_step_negative6373){
if (fornext_value6373<fornext_finalvalue6373) break;
}else{
if (fornext_value6373>fornext_finalvalue6373) break;
}
fornext_error6373:;
if(qbevent){evnt(25769,13998,"ide_methods.bas");if(r)goto S_55058;}
S_55059:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,0|1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||is_error_pending()){
if(qbevent){evnt(25769,13999,"ide_methods.bas");if(r)goto S_55059;}
do{
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X;
if(!qbevent)break;evnt(25769,14000,"ide_methods.bas");}while(r);
}
fornext_continue_6372:;
}
fornext_exit_6372:;
}
S_55064:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(25769,14005,"ide_methods.bas");if(r)goto S_55064;}
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14006,"ide_methods.bas");}while(r);
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14008,"ide_methods.bas");}while(r);
}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION;
if(!qbevent)break;evnt(25769,14010,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(25769,14011,"ide_methods.bas");}while(r);
}else{
do{
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ;
if(!qbevent)break;evnt(25769,14014,"ide_methods.bas");}while(r);
S_55073:;
if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))> 0 ))||is_error_pending()){
if(qbevent){evnt(25769,14015,"ide_methods.bas");if(r)goto S_55073;}
do{
qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LY,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))* 4 )-( 3 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14016,"ide_methods.bas");}while(r);
S_55075:;
fornext_value6375= 1 ;
fornext_finalvalue6375=*_FUNC_IDESUBS_LONG_TOTALSUBS;
fornext_step6375= 1 ;
if (fornext_step6375<0) fornext_step_negative6375=1; else fornext_step_negative6375=0;
if (is_error_pending()) goto fornext_error6375;
goto fornext_entrylabel6375;
while(1){
fornext_value6375=fornext_step6375+(*_FUNC_IDESUBS_LONG_X);
fornext_entrylabel6375:
*_FUNC_IDESUBS_LONG_X=fornext_value6375;
if (fornext_step_negative6375){
if (fornext_value6375<fornext_finalvalue6375) break;
}else{
if (fornext_value6375>fornext_finalvalue6375) break;
}
fornext_error6375:;
if(qbevent){evnt(25769,14017,"ide_methods.bas");if(r)goto S_55075;}
S_55076:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,0|1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||is_error_pending()){
if(qbevent){evnt(25769,14018,"ide_methods.bas");if(r)goto S_55076;}
do{
*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X;
if(!qbevent)break;evnt(25769,14019,"ide_methods.bas");}while(r);
}
fornext_continue_6374:;
}
fornext_exit_6374:;
}
S_55081:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(25769,14024,"ide_methods.bas");if(r)goto S_55081;}
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14025,"ide_methods.bas");}while(r);
}else{
do{
tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+44))))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14027,"ide_methods.bas");}while(r);
}
do{
*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+(((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*101+76)))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION;
if(!qbevent)break;evnt(25769,14029,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_FOCUS= 1 ;
if(!qbevent)break;evnt(25769,14030,"ide_methods.bas");}while(r);
}
}
}
do{
*_FUNC_IDESUBS_LONG_MOUSEDOWN= 0 ;
if(!qbevent)break;evnt(25769,14036,"ide_methods.bas");}while(r);
do{
*_FUNC_IDESUBS_LONG_MOUSEUP= 0 ;
if(!qbevent)break;evnt(25769,14037,"ide_methods.bas");}while(r);
dl_continue_6365:;
}while(1);
dl_exit_6365:;
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,14040,"ide_methods.bas");}while(r);
LABEL_SAVESORTSETTINGS:;
if(qbevent){evnt(25769,14041,"ide_methods.bas");r=0;}
do{
*__BYTE_IDESORTSUBS=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG;
if(!qbevent)break;evnt(25769,14042,"ide_methods.bas");}while(r);
S_55096:;
if ((*__BYTE_IDESORTSUBS)||is_error_pending()){
if(qbevent){evnt(25769,14043,"ide_methods.bas");if(r)goto S_55096;}
do{
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("True",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14044,"ide_methods.bas");}while(r);
}else{
do{
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14046,"ide_methods.bas");}while(r);
}
S_55101:;
if ((*__BYTE_IDESUBSLENGTH)||is_error_pending()){
if(qbevent){evnt(25769,14049,"ide_methods.bas");if(r)goto S_55101;}
do{
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14050,"ide_methods.bas");}while(r);
}else{
do{
SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,14052,"ide_methods.bas");}while(r);
}
do{
#include "ret317.txt"
if(!qbevent)break;evnt(25769,14054,"ide_methods.bas");}while(r);
LABEL_ADDLINECOUNT:;
if(qbevent){evnt(25769,14056,"ide_methods.bas");r=0;}
do{
*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ;
if(!qbevent)break;evnt(25769,14057,"ide_methods.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_IDESUBS_LONG_LASTOPENSUB)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]);
if (!is_error_pending()) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_MODULESIZE;
if(!qbevent)break;evnt(25769,14058,"ide_methods.bas");}while(r);
S_55109:;
if ((-(*_FUNC_IDESUBS_LONG_MODULESIZE>*_FUNC_IDESUBS_LONG_MAXLINECOUNT))||is_error_pending()){
if(qbevent){evnt(25769,14059,"ide_methods.bas");if(r)goto S_55109;}
do{
*_FUNC_IDESUBS_LONG_MAXLINECOUNT=*_FUNC_IDESUBS_LONG_MODULESIZE;
if(!qbevent)break;evnt(25769,14059,"ide_methods.bas");}while(r);
}
do{
*_FUNC_IDESUBS_LONG_SUBCLOSED= -1ll ;
if(!qbevent)break;evnt(25769,14060,"ide_methods.bas");}while(r);
do{
#include "ret317.txt"
if(!qbevent)break;evnt(25769,14061,"ide_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free317.txt"
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;
cmem_sp=tmp_cmem_sp;
qbs_maketmp(_FUNC_IDESUBS_STRING_IDESUBS);return _FUNC_IDESUBS_STRING_IDESUBS;
}
