#line 11401 "ide/ide_methods.bas"
void SUB_IDEDELLINE(int32*_SUB_IDEDELLINE_LONG_I){
#line 11401 "ide/ide_methods.bas"
qbs *tqbs;
#line 11401 "ide/ide_methods.bas"
ptrszint tmp_long;
#line 11401 "ide/ide_methods.bas"
int32 tmp_fileno;
#line 11401 "ide/ide_methods.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 11401 "ide/ide_methods.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 11401 "ide/ide_methods.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 11401 "ide/ide_methods.bas"
#include "data394.txt"
#line 11401 "ide/ide_methods.bas"
mem_lock *sf_mem_lock;
#line 11401 "ide/ide_methods.bas"
new_mem_lock();
#line 11401 "ide/ide_methods.bas"
sf_mem_lock=mem_lock_tmp;
#line 11401 "ide/ide_methods.bas"
sf_mem_lock->type=3;
#line 11401 "ide/ide_methods.bas"
libqb_check_stack();
#line 11401 "ide/ide_methods.bas"
if (is_error_pending()) goto exit_subfunc;
#line 11403 "ide/ide_methods.bas"
S_57511:;
#line 11403 "ide/ide_methods.bas"
fornext_value5955= 1 ;
#line 11403 "ide/ide_methods.bas"
fornext_finalvalue5955=*__LONG_IDEBMKN;
#line 11403 "ide/ide_methods.bas"
fornext_step5955= 1 ;
#line 11403 "ide/ide_methods.bas"
if (fornext_step5955<0) fornext_step_negative5955=1; else fornext_step_negative5955=0;
#line 11403 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error5955;
#line 11403 "ide/ide_methods.bas"
goto fornext_entrylabel5955;
#line 11403 "ide/ide_methods.bas"
while(1){
#line 11403 "ide/ide_methods.bas"
fornext_value5955=fornext_step5955+(*_SUB_IDEDELLINE_LONG_B);
#line 11403 "ide/ide_methods.bas"
fornext_entrylabel5955:
#line 11403 "ide/ide_methods.bas"
*_SUB_IDEDELLINE_LONG_B=fornext_value5955;
#line 11403 "ide/ide_methods.bas"
if (fornext_step_negative5955){
#line 11403 "ide/ide_methods.bas"
if (fornext_value5955<fornext_finalvalue5955) break;
#line 11403 "ide/ide_methods.bas"
}else{
#line 11403 "ide/ide_methods.bas"
if (fornext_value5955>fornext_finalvalue5955) break;
#line 11403 "ide/ide_methods.bas"
}
#line 11403 "ide/ide_methods.bas"
fornext_error5955:;
#line 11403 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11403,"ide_methods.bas");if(r)goto S_57511;}
#line 11404 "ide/ide_methods.bas"
S_57512:;
#line 11404 "ide/ide_methods.bas"
if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+(((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+0)))>=*_SUB_IDEDELLINE_LONG_I))||is_error_pending()){
#line 11404 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11404,"ide_methods.bas");if(r)goto S_57512;}
#line 11405 "ide/ide_methods.bas"
do{
#line 11405 "ide/ide_methods.bas"
*_SUB_IDEDELLINE_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+(((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+0)))- 1 ;
#line 11405 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11405,"ide_methods.bas");}while(r);
#line 11405 "ide/ide_methods.bas"
S_57514:;
#line 11405 "ide/ide_methods.bas"
if ((-(*_SUB_IDEDELLINE_LONG_Y== 0 ))||is_error_pending()){
#line 11405 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11405,"ide_methods.bas");if(r)goto S_57514;}
#line 11405 "ide/ide_methods.bas"
do{
#line 11405 "ide/ide_methods.bas"
*_SUB_IDEDELLINE_LONG_Y= 1 ;
#line 11405 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11405,"ide_methods.bas");}while(r);
#line 11405 "ide/ide_methods.bas"
}
#line 11406 "ide/ide_methods.bas"
do{
#line 11406 "ide/ide_methods.bas"
*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+(((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+0)))=*_SUB_IDEDELLINE_LONG_Y;
#line 11406 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11406,"ide_methods.bas");}while(r);
#line 11407 "ide/ide_methods.bas"
}
#line 11408 "ide/ide_methods.bas"
fornext_continue_5954:;
#line 11408 "ide/ide_methods.bas"
}
#line 11408 "ide/ide_methods.bas"
fornext_exit_5954:;
#line 11410 "ide/ide_methods.bas"
S_57520:;
#line 11410 "ide/ide_methods.bas"
if ((FUNC_GETRCSTATEVAR((void*)( ((char*)(__UDT_VWATCHON)) + ((0+0)) )))||is_error_pending()){
#line 11410 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11410,"ide_methods.bas");if(r)goto S_57520;}
#line 11411 "ide/ide_methods.bas"
S_57521:;
#line 11411 "ide/ide_methods.bas"
if (((-(*__LONG_IDEN>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))|(-(*__LONG_IDEN>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1))))||is_error_pending()){
#line 11411 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11411,"ide_methods.bas");if(r)goto S_57521;}
#line 11412 "ide/ide_methods.bas"
do{
if (__ARRAY_BYTE_IDEBREAKPOINTS[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*)__ARRAY_BYTE_IDEBREAKPOINTS)[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 (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){
preserve_old_ptr=__ARRAY_BYTE_IDEBREAKPOINTS[0];
preserve_old_flags=__ARRAY_BYTE_IDEBREAKPOINTS[2];
preserve_old_total=__ARRAY_BYTE_IDEBREAKPOINTS[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]=(*__LONG_IDEN)-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)(1);
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 (__ARRAY_BYTE_IDEBREAKPOINTS[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*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDEBREAKPOINTS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[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*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDEBREAKPOINTS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
}
}
__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1;
__ARRAY_BYTE_IDEBREAKPOINTS[4]=alloc_new_desc[4];
__ARRAY_BYTE_IDEBREAKPOINTS[5]=alloc_new_desc[5];
__ARRAY_BYTE_IDEBREAKPOINTS[6]=alloc_new_desc[6];
__ARRAY_BYTE_IDEBREAKPOINTS[7]=alloc_new_desc[7];
}
#line 11412 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11412,"ide_methods.bas");}while(r);
#line 11413 "ide/ide_methods.bas"
do{
if (__ARRAY_BYTE_IDESKIPLINES[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*)__ARRAY_BYTE_IDESKIPLINES)[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 (__ARRAY_BYTE_IDESKIPLINES[2]&1){
preserve_old_ptr=__ARRAY_BYTE_IDESKIPLINES[0];
preserve_old_flags=__ARRAY_BYTE_IDESKIPLINES[2];
preserve_old_total=__ARRAY_BYTE_IDESKIPLINES[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]=(*__LONG_IDEN)-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)(1);
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 (__ARRAY_BYTE_IDESKIPLINES[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*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDESKIPLINES[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
memset((void*)(__ARRAY_BYTE_IDESKIPLINES[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*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDESKIPLINES[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
}
}
__ARRAY_BYTE_IDESKIPLINES[2]|=1;
__ARRAY_BYTE_IDESKIPLINES[4]=alloc_new_desc[4];
__ARRAY_BYTE_IDESKIPLINES[5]=alloc_new_desc[5];
__ARRAY_BYTE_IDESKIPLINES[6]=alloc_new_desc[6];
__ARRAY_BYTE_IDESKIPLINES[7]=alloc_new_desc[7];
}
#line 11413 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11413,"ide_methods.bas");}while(r);
#line 11414 "ide/ide_methods.bas"
}
#line 11416 "ide/ide_methods.bas"
S_57525:;
#line 11416 "ide/ide_methods.bas"
fornext_value5957=*_SUB_IDEDELLINE_LONG_I;
#line 11416 "ide/ide_methods.bas"
fornext_finalvalue5957=*__LONG_IDEN- 1 ;
#line 11416 "ide/ide_methods.bas"
fornext_step5957= 1 ;
#line 11416 "ide/ide_methods.bas"
if (fornext_step5957<0) fornext_step_negative5957=1; else fornext_step_negative5957=0;
#line 11416 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error5957;
#line 11416 "ide/ide_methods.bas"
goto fornext_entrylabel5957;
#line 11416 "ide/ide_methods.bas"
while(1){
#line 11416 "ide/ide_methods.bas"
fornext_value5957=fornext_step5957+(*_SUB_IDEDELLINE_LONG_B);
#line 11416 "ide/ide_methods.bas"
fornext_entrylabel5957:
#line 11416 "ide/ide_methods.bas"
*_SUB_IDEDELLINE_LONG_B=fornext_value5957;
#line 11416 "ide/ide_methods.bas"
if (fornext_step_negative5957){
#line 11416 "ide/ide_methods.bas"
if (fornext_value5957<fornext_finalvalue5957) break;
#line 11416 "ide/ide_methods.bas"
}else{
#line 11416 "ide/ide_methods.bas"
if (fornext_value5957>fornext_finalvalue5957) break;
#line 11416 "ide/ide_methods.bas"
}
#line 11416 "ide/ide_methods.bas"
fornext_error5957:;
#line 11416 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11416,"ide_methods.bas");if(r)goto S_57525;}
#line 11417 "ide/ide_methods.bas"
do{
#line 11417 "ide/ide_methods.bas"
swap_8(&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])],&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEDELLINE_LONG_B+ 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]);
#line 11417 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11417,"ide_methods.bas");}while(r);
#line 11418 "ide/ide_methods.bas"
fornext_continue_5956:;
#line 11418 "ide/ide_methods.bas"
}
#line 11418 "ide/ide_methods.bas"
fornext_exit_5956:;
#line 11419 "ide/ide_methods.bas"
do{
if (__ARRAY_BYTE_IDEBREAKPOINTS[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*)__ARRAY_BYTE_IDEBREAKPOINTS)[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 (__ARRAY_BYTE_IDEBREAKPOINTS[2]&1){
preserve_old_ptr=__ARRAY_BYTE_IDEBREAKPOINTS[0];
preserve_old_flags=__ARRAY_BYTE_IDEBREAKPOINTS[2];
preserve_old_total=__ARRAY_BYTE_IDEBREAKPOINTS[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]=(*__LONG_IDEN- 1 )-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)(1);
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 (__ARRAY_BYTE_IDEBREAKPOINTS[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*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDEBREAKPOINTS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
memset((void*)(__ARRAY_BYTE_IDEBREAKPOINTS[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*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDEBREAKPOINTS[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257);
}
}
__ARRAY_BYTE_IDEBREAKPOINTS[2]|=1;
__ARRAY_BYTE_IDEBREAKPOINTS[4]=alloc_new_desc[4];
__ARRAY_BYTE_IDEBREAKPOINTS[5]=alloc_new_desc[5];
__ARRAY_BYTE_IDEBREAKPOINTS[6]=alloc_new_desc[6];
__ARRAY_BYTE_IDEBREAKPOINTS[7]=alloc_new_desc[7];
}
#line 11419 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11419,"ide_methods.bas");}while(r);
#line 11421 "ide/ide_methods.bas"
S_57529:;
#line 11421 "ide/ide_methods.bas"
fornext_value5959=*_SUB_IDEDELLINE_LONG_I;
#line 11421 "ide/ide_methods.bas"
fornext_finalvalue5959=*__LONG_IDEN- 1 ;
#line 11421 "ide/ide_methods.bas"
fornext_step5959= 1 ;
#line 11421 "ide/ide_methods.bas"
if (fornext_step5959<0) fornext_step_negative5959=1; else fornext_step_negative5959=0;
#line 11421 "ide/ide_methods.bas"
if (is_error_pending()) goto fornext_error5959;
#line 11421 "ide/ide_methods.bas"
goto fornext_entrylabel5959;
#line 11421 "ide/ide_methods.bas"
while(1){
#line 11421 "ide/ide_methods.bas"
fornext_value5959=fornext_step5959+(*_SUB_IDEDELLINE_LONG_B);
#line 11421 "ide/ide_methods.bas"
fornext_entrylabel5959:
#line 11421 "ide/ide_methods.bas"
*_SUB_IDEDELLINE_LONG_B=fornext_value5959;
#line 11421 "ide/ide_methods.bas"
if (fornext_step_negative5959){
#line 11421 "ide/ide_methods.bas"
if (fornext_value5959<fornext_finalvalue5959) break;
#line 11421 "ide/ide_methods.bas"
}else{
#line 11421 "ide/ide_methods.bas"
if (fornext_value5959>fornext_finalvalue5959) break;
#line 11421 "ide/ide_methods.bas"
}
#line 11421 "ide/ide_methods.bas"
fornext_error5959:;
#line 11421 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11421,"ide_methods.bas");if(r)goto S_57529;}
#line 11422 "ide/ide_methods.bas"
do{
#line 11422 "ide/ide_methods.bas"
swap_8(&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])],&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEDELLINE_LONG_B- 1 )-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]);
#line 11422 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11422,"ide_methods.bas");}while(r);
#line 11423 "ide/ide_methods.bas"
fornext_continue_5958:;
#line 11423 "ide/ide_methods.bas"
}
#line 11423 "ide/ide_methods.bas"
fornext_exit_5958:;
#line 11424 "ide/ide_methods.bas"
do{
if (__ARRAY_BYTE_IDESKIPLINES[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*)__ARRAY_BYTE_IDESKIPLINES)[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 (__ARRAY_BYTE_IDESKIPLINES[2]&1){
preserve_old_ptr=__ARRAY_BYTE_IDESKIPLINES[0];
preserve_old_flags=__ARRAY_BYTE_IDESKIPLINES[2];
preserve_old_total=__ARRAY_BYTE_IDESKIPLINES[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]=(*__LONG_IDEN- 1 )-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)(1);
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 (__ARRAY_BYTE_IDESKIPLINES[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*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDESKIPLINES[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
memset((void*)(__ARRAY_BYTE_IDESKIPLINES[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*1);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_BYTE_IDESKIPLINES[0]=preserve_new_ptr;
}else{
__ARRAY_BYTE_IDESKIPLINES[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257);
}
}
__ARRAY_BYTE_IDESKIPLINES[2]|=1;
__ARRAY_BYTE_IDESKIPLINES[4]=alloc_new_desc[4];
__ARRAY_BYTE_IDESKIPLINES[5]=alloc_new_desc[5];
__ARRAY_BYTE_IDESKIPLINES[6]=alloc_new_desc[6];
__ARRAY_BYTE_IDESKIPLINES[7]=alloc_new_desc[7];
}
#line 11424 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11424,"ide_methods.bas");}while(r);
#line 11425 "ide/ide_methods.bas"
}
#line 11427 "ide/ide_methods.bas"
do{
#line 11427 "ide/ide_methods.bas"
SUB_IDEGOTOLINE(_SUB_IDEDELLINE_LONG_I);
#line 11427 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11427,"ide_methods.bas");}while(r);
#line 11428 "ide/ide_methods.bas"
do{
#line 11428 "ide/ide_methods.bas"
*_SUB_IDEDELLINE_LONG_TEXTLEN=string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1));
#line 11428 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11428 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11428,"ide_methods.bas");}while(r);
#line 11429 "ide/ide_methods.bas"
do{
#line 11429 "ide/ide_methods.bas"
qbs_set(__STRING_IDET,qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 - 8 -*_SUB_IDEDELLINE_LONG_TEXTLEN)));
#line 11429 "ide/ide_methods.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 11429 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11429,"ide_methods.bas");}while(r);
#line 11430 "ide/ide_methods.bas"
do{
#line 11430 "ide/ide_methods.bas"
*__LONG_IDEN=*__LONG_IDEN- 1 ;
#line 11430 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11430,"ide_methods.bas");}while(r);
#line 11432 "ide/ide_methods.bas"
S_57538:;
#line 11432 "ide/ide_methods.bas"
if ((-(*_SUB_IDEDELLINE_LONG_I>*__LONG_IDEN))||is_error_pending()){
#line 11432 "ide/ide_methods.bas"
if(qbevent){evnt(28819,11432,"ide_methods.bas");if(r)goto S_57538;}
#line 11432 "ide/ide_methods.bas"
do{
#line 11432 "ide/ide_methods.bas"
SUB_IDEGOTOLINE(__LONG_IDEN);
#line 11432 "ide/ide_methods.bas"
if(!qbevent)break;evnt(28819,11432,"ide_methods.bas");}while(r);
#line 11432 "ide/ide_methods.bas"
}
#line 11434 "ide/ide_methods.bas"
exit_subfunc:;
#line 11434 "ide/ide_methods.bas"
free_mem_lock(sf_mem_lock);
#line 11434 "ide/ide_methods.bas"
#include "free394.txt"
#line 11434 "ide/ide_methods.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 11434 "ide/ide_methods.bas"
cmem_sp=tmp_cmem_sp;
#line 11434 "ide/ide_methods.bas"
}
