/dports/lang/rexx-regina/regina-rexx-3.9.3/ |
H A D | extern.h | 145 # define Malloc_TSD(TSD,bytes) mymallocTSD(TSD,bytes) argument 148 # define Free_TSD(TSD,ptr) myfreeTSD(TSD,ptr) argument 151 # define Free_string_TSD(TSD,ptr) myfreeTSD(TSD,ptr) argument 155 # define Malloc_TSD(TSD,bytes) get_a_chunkTSD(TSD,bytes) argument 158 # define Free_TSD(TSD,ptr) give_a_chunkTSD(TSD,ptr) argument 161 # define Free_string_TSD(TSD,ptr) give_a_strengTSD(TSD,ptr) argument 165 # define Malloc_TSD(TSD,bytes) (TSD)->MTMalloc(TSD,bytes) argument 168 # define Free_TSD(TSD,ptr) (TSD)->MTFree(TSD,ptr) argument 174 # define Free_string_TSD(TSD,ptr) give_a_strengTSD(TSD,ptr) argument 178 # define Free_string_TSD(TSD,ptr) (TSD)->MTFree(TSD,ptr) argument [all …]
|
H A D | interprt.c | 494 TSD->currlevel = newlevel( TSD, TSD->currlevel ); in CallInternalFunction() 503 removelevel( TSD, TSD->currlevel ); in CallInternalFunction() 506 TSD->trace_stat = TSD->currlevel->tracestat; in CallInternalFunction() 590 if ( TSD->trace_stat != 'O' && TSD->trace_stat != 'N' && TSD->trace_stat != 'F' ) in interpret() 1479 update_envirs( TSD, TSD->currlevel ) ; in interpret() 1494 update_envirs( TSD, TSD->currlevel ) ; in interpret() 1833 update_envirs( TSD, TSD->currlevel ); in interpret() 2380 TSD->currlevel->sig = TSD->nextsig ; in interpret() 2414 TSD->currlevel = newlevel( TSD, TSD->currlevel ); in interpret() 2415 TSD->currlevel->sig = TSD->nextsig; in interpret() [all …]
|
H A D | macros.c | 152 TSD->systeminfo->currlevel0 = TSD->currlevel = newlevel( TSD, NULL ); 165 memset( &TSD->systeminfo->tree, 0, sizeof( TSD->systeminfo->tree ) ); 173 ptr = interpret( TSD, TSD->systeminfo->tree.root ); 190 tmpsys = TSD->systeminfo; 191 TSD->systeminfo = TSD->systeminfo->previous; 192 TSD->currlevel = oldlevel; 193 TSD->trace_stat = TSD->currlevel->tracestat; 334 TSD->systeminfo->currlevel0 = TSD->currlevel = newlevel( TSD, NULL ); 356 ptr = interpret( TSD, TSD->systeminfo->tree.root ); 384 TSD->systeminfo = TSD->systeminfo->previous; [all …]
|
H A D | tracing.c | 69 if ( TSD->tra_tsd ) in purge_tracing() 83 if ( TSD->systeminfo->cstackcnt >= TSD->systeminfo->cstackmax ) in pushcallstack() 85 assert( TSD->systeminfo->cstackcnt == TSD->systeminfo->cstackmax ); in pushcallstack() 99 TSD->systeminfo->callstack[TSD->systeminfo->cstackcnt++] = thisptr; in pushcallstack() 177 …if ( ( TSD->trace_stat == 'E' ) || ( RC < 0 && ( TSD->trace_stat == 'F' || TSD->trace_stat == 'N' … in traceerror() 199 indent = TSD->systeminfo->cstackcnt + TSD->systeminfo->ctrlcounter; in tracecompound() 330 indent = TSD->systeminfo->cstackcnt + TSD->systeminfo->ctrlcounter; in tracenumber() 358 indent = TSD->systeminfo->cstackcnt + TSD->systeminfo->ctrlcounter; in tracebool() 645 TSD->systeminfo->interactive = TSD->currlevel->traceint = 0; in set_trace_char() 646 TSD->trace_stat = TSD->currlevel->tracestat; in set_trace_char() [all …]
|
H A D | rexx.c | 299 TSD->systeminfo = creat_sysinfo( TSD, Str_creTSD( "SYSTEM" ) ); in setup_system() 301 TSD->systeminfo->currlevel0 = TSD->currlevel = newlevel( TSD, NULL ); in setup_system() 499 do_options( TSD, TSD->currlevel, opts, 0 ); in check_args() 770 string = interpret( TSD, TSD->systeminfo->tree.root ); in execute_file() 790 tsd_t *TSD; in __regina_faked_main() local 857 TSD->systeminfo->input_file = get_external_routine( TSD, in __regina_faked_main() 936 killsystem( TSD, TSD->systeminfo ); in __regina_faked_main() 959 tsd_t *TSD; in __regina_reexecute_main() local 1134 Exit( TSD ) ; in call_unknown_external() 1141 Exit( TSD ) ; in call_known_external() [all …]
|
H A D | expr.c | 25 #define TRACEVALUE(a,b) if (TSD->trace_stat=='I') tracevalue(TSD,a,b) 30 if (TSD->rdes.num) in mark_in_expr() 32 if (TSD->ldes.num) in mark_in_expr() 386 numthr = bool_to_num( TSD, isboolean( TSD, thisptr, 0, NULL )) ; in calcul() 611 traceline( TSD, entry, TSD->trace_stat, 0 ); in evaluate() 615 ptr = CallInternalFunction( TSD, entry->next, TSD->currentnode, in evaluate() 659 update_envirs( TSD, TSD->currlevel ); in evaluate() 662 stackmark = pushcallstack( TSD, TSD->currentnode ); in evaluate() 789 stmp1 = bool_to_str( TSD, isboolean( TSD, thisptr, 0, NULL )) ; in evaluate() 993 if (!lnum && !getdescr( TSD, lval, &TSD->ldes )) in isboolean() [all …]
|
H A D | arxfuncs.c | 98 int init_arexxf( tsd_t *TSD ) in init_arexxf() argument 288 setvalue( TSD, _fname, Str_cre_TSD( TSD, "STDIN" ), -1 ); in setamilevel() 290 setvalue( TSD, _fstem, Str_cre_TSD( TSD, txt ), -1 ); in setamilevel() 292 setvalue( TSD, _fname, Str_cre_TSD( TSD, "STDOUT" ), -1 ); in setamilevel() 294 setvalue( TSD, _fstem, Str_cre_TSD( TSD, txt ), -1 ); in setamilevel() 296 setvalue( TSD, _fname, Str_cre_TSD( TSD, "STDERR" ), -1 ); in setamilevel() 298 setvalue( TSD, _fstem, Str_cre_TSD( TSD, txt ), -1 ); in setamilevel() 313 setvalue( TSD, _fname, Str_dup_TSD( TSD, name ), -1 ); in getfile() 387 setvalue( TSD, _fname, Str_dup_TSD( TSD, name ), -1 ); in addfile() 402 drop_var( TSD, name ); in rmfile() [all …]
|
H A D | variable.c | 185 # define DSTART DPRINT(( TSD, "%2u %4d ", TSD->thread_id, __LINE__ )) 272 #define DNUM(TSD,name,n) if ( vt->DoDebug & 1 ) DNUM2( TSD, name, n ) argument 325 #define DVAR(TSD,name,v) if ( vt->DoDebug & 1 ) DVAR2( TSD, name, v ) argument 663 DSTART;DPRINT((TSD,"newbox: "));DNAME(TSD,NULL,name);DPRINT((TSD," replaces ")); in newbox() 1047 DSTART;DPRINT((TSD,"get_it_anyway: "));DNAME(TSD,"str",str);DVALUE(TSD,", rc",ptr);DEND; in get_it_anyway() 1061 ptr = getdirvalue_compound( TSD, TSD->currlevel->vars, str ); in get_it_anyway_compound() 1068 DSTART;DPRINT((TSD,"get_it_anyway_compound:"));DNAME(TSD,"str",str);DVALUE(TSD,", rc",ptr);DEND; in get_it_anyway_compound() 2591 DSTART;DPRINT((TSD,"drop_var_simple: "));DNAME(TSD,"name",name);DVAR(TSD,", var",ptr); in drop_var_simple() 3563 reorgHashtable( TSD, TSD->currlevel->vars ); in fix_compound() 3800 reorgHashtable( TSD, TSD->currlevel->vars ); [all …]
|
H A D | dbgfuncs.c | 28 show_free_lists(TSD); in dbg_freelists() 35 traceback(TSD) ; in dbg_traceback() 44 dumpvars(TSD); in dbg_dumpvars() 53 memory_stats(TSD) ; in dbg_memorystats() 72 ptr = int_to_streng( TSD,have_allocated(TSD, MEM_ALLOC)) ; in dbg_allocated() 76 ptr = int_to_streng( TSD,have_allocated(TSD, MEM_LEAKED)) ; in dbg_allocated() 80 ptr = int_to_streng( TSD,have_allocated(TSD, MEM_CURRENT)) ; in dbg_allocated() 105 dumptree( TSD, TSD->systeminfo->tree.root, 1, 1 ) ; in dbg_dumptree() 126 i = listleaked( TSD, MEMTRC_NONE ) ; in dbg_listleaked() 130 i = listleaked( TSD, MEMTRC_ALL ) ; in dbg_listleaked() [all …]
|
H A D | library.c | 73 int init_library( tsd_t *TSD ) in init_library() argument 76 if ( TSD->lib_tsd != NULL ) in init_library() 85 TSD->lib_tsd = ltGlobal; in init_library() 89 if ( TSD->lib_tsd != NULL ) in init_library() 94 lt = (lib_tsd_t *)TSD->lib_tsd; in init_library() 155 if ( TSD->systeminfo ) in unlink_orphaned_libs() 157 if ( TSD->systeminfo->previous || TSD->systeminfo->input_file ) in unlink_orphaned_libs() 268 void purge_library( tsd_t *TSD ) in purge_library() argument 977 if ( TSD->restricted ) in rex_rxfuncadd() 1015 if ( TSD->restricted ) in rex_rxfuncdefine() [all …]
|
H A D | stack.c | 160 int init_stacks( tsd_t *TSD ) in init_stacks() argument 164 if (TSD->stk_tsd != NULL) in init_stacks() 362 if ( !TSD->called_from_saa ) in find_free_slot() 1067 int make_buffer( tsd_t *TSD ) in make_buffer() argument 1099 void type_buffer( tsd_t *TSD ) in type_buffer() argument 1109 if (TSD->stddump == NULL) in type_buffer() 1113 name = get_queue( TSD ) ; in type_buffer() 1115 fprintf(TSD->stddump,"==> Lines: %d\n", lines_in_stack( TSD, NULL )) ; in type_buffer() 1140 fflush(TSD->stddump) ; in type_buffer() 1286 (TSD); in SetCurrentQueue() [all …]
|
H A D | rexxsaa.c | 808 tsd_t *TSD; in RexxStart() local 954 starttrace( TSD ); in RexxStart() 964 TSD->MTFree( TSD, Handlers ); in RexxStart() 1018 tsd_t *TSD; in RexxCallBack() local 1026 if ( TSD == NULL ) in RexxCallBack() 1029 if ( TSD == NULL || TSD->systeminfo == NULL ) in RexxCallBack() 1106 if ( TSD == NULL ) in RexxRegisterSubcomExe() 1128 if ( TSD == NULL ) in RexxRegisterSubcomDll() 1714 tsd_t *TSD; in RexxSetHalt() local 1748 tsd_t *TSD; in RexxSetTrace() local [all …]
|
H A D | client.c | 108 int init_client( tsd_t *TSD ) in init_client() argument 112 if ( TSD->cli_tsd != NULL ) in init_client() 378 saved_TSD = TSD; in IfcExecScript() 398 TSD = saved_TSD; in IfcExecScript() 414 ScriptSetup( TSD, in IfcExecScript() 505 result = CallInternalFunction( TSD, node, TSD->currentnode, args ); in IfcExecCallBack() 587 if (TSD->var_indicator==0) in get_next_var() 921 *rc = IfcSubCmd( TSD, in SubCom() 1207 RemoveParams(TSD); in MakeParams() 1280 queue = get_queue( TSD ); in do_an_external() [all …]
|
H A D | shell.c | 92 int init_shell( tsd_t *TSD ) in init_shell() argument 96 if ( TSD->shl_tsd != NULL ) in init_shell() 203 set_currname(TSD, e); in open_env_io() 902 if ( TSD->OS->open_subprocess_connection( TSD, &env->input ) != 0 ) in setup_io() 904 cleanup( TSD, env ); in setup_io() 911 if ( TSD->OS->open_subprocess_connection( TSD, &env->output ) != 0 ) in setup_io() 922 if ( TSD->OS->open_subprocess_connection( TSD, &env->error ) != 0 ) in setup_io() 931 st->AsyncInfo = TSD->OS->create_async_info( TSD ); in setup_io() 1297 child = TSD->OS->fork_exec( TSD, env, cmdline, &rc ); in posix_do_command() 1302 cleanup( TSD, env ) ; in posix_do_command() [all …]
|
H A D | memory.c | 373 if ( ( TSD->mem_tsd = TSD->MTMalloc( TSD, sizeof(mem_tsd_t) ) ) == NULL ) in init_memory() 620 if ((result=TSD->MTMalloc( TSD, size )) != NULL) in get_a_chunkTSD() 650 vptr = (char *)TSD->MTMalloc( TSD, CHUNK_SIZE ) ; in get_a_chunkTSD() 772 vptr = (char *)TSD->MTMalloc( TSD, CHUNK_SIZE ) ; in get_a_strengTSD() 869 TSD->MTFree(TSD, ptr ) ; in give_a_strengTSD() 975 TSD->MTFree(TSD, ptr ) ; in give_a_chunkTSD() 995 TSD->MTFree(TSD, ptr ) ; in purge_flists() 1251 TSD->MTFree(TSD,memptr) ; in myfreeTSD() 1288 void regmarker( const tsd_t *TSD, void (*marker)(const tsd_t *TSD) ) in regmarker() argument 1504 TSD->MTFree(TSD,ptr->value); in give_a_strengTSD() [all …]
|
H A D | envir.c | 86 TSD->firstenvir = ptr; in add_envir() 147 ptr = find_envir( TSD, name ); in get_envir_details() 256 cleanup_envirpart(TSD, e); in del_envirpart() 274 if (TSD->firstenvir==ptr) in del_envir() 291 del_envirpart( TSD, e ) ; in update_environpart() 376 int init_envir( tsd_t *TSD ) in init_envir() argument 401 regmarker( TSD, markenvir ) ; in init_envir() 629 traps = gettraps( TSD, TSD->currlevel ); in post_process_system_call() 666 if ( TSD->restricted in perform() 733 del_envir( TSD, envir ) ; in perform() [all …]
|
H A D | funcs.c | 338 if (TSD->bif_first) in buildtinfunc() 339 deallocplink( TSD, TSD->bif_first ) ; in buildtinfunc() 346 TSD->bif_first = initplist( TSD, thisptr ) ; in buildtinfunc() 352 ptr = (*func)(TSD, TSD->bif_first /* ->next */ ) ; in buildtinfunc() 353 TSD->BIFname = NULL; in buildtinfunc() 356 deallocplink( TSD, TSD->bif_first ) ; in buildtinfunc() 365 deallocplink( TSD, TSD->bif_first ) ; in buildtinfunc() 373 TSD->bif_first = initplist( TSD, thisptr ) ; in buildtinfunc() 375 deallocplink( TSD, TSD->bif_first ) ; in buildtinfunc() 391 if (TSD->par_stack) in initplist() [all …]
|
H A D | builtin.c | 73 int init_builtin( tsd_t *TSD ) in init_builtin() argument 77 if (TSD->bui_tsd != NULL) in init_builtin() 618 if ( TSD->restricted ) in ext_pool_value() 778 traps = gettraps( TSD, TSD->currlevel ) ; in std_condition() 949 if (TSD->currentnode->now) in std_time() 1407 update_envirs( TSD, TSD->currlevel ) ; in std_address() 1412 return get_envir_details( TSD, opt, TSD->currlevel->environment ); in std_address() 1420 return int_to_streng( TSD, TSD->currlevel->currnumsize ) ; in std_digits() 1434 return int_to_streng( TSD, TSD->currlevel->numfuzz ) ; in std_fuzz() 2132 free_a_descr( TSD, m ); in minmax() [all …]
|
H A D | unxfuncs.c | 86 if ( TSD->restricted ) in unx_popen() 106 lines = lines_in_stack( TSD, NULL ); in unx_popen() 111 result = perform( TSD, cptr, TSD->currlevel->environment, TSD->currentnode, NULL ) ; in unx_popen() 134 hl = lines_in_stack( TSD, NULL ); in unx_popen() 163 return int_to_streng( TSD, getpid() ) ; in unx_getpid() 169 return rx64u_to_streng( TSD, (rx_64u)TSD->thread_id ) ; in unx_gettid() 195 if (TSD->OS->uname( &utsbox ) <0) in unx_uname() 234 return int_to_streng( TSD, i ) ; in unx_fork() 265 path = str_of( TSD, parms->value ) ; in unx_chdir() 269 return int_to_streng( TSD, rc!=0 ) ; in unx_chdir() [all …]
|
H A D | extstack.c | 121 if ( TSD == NULL ) in init_external_queue() 218 if ( TSD == NULL ) in connect_to_rxstack() 355 if ( TSD == NULL ) in parse_queue() 375 if ( TSD == NULL ) in parse_queue() 408 if ( TSD == NULL ) in parse_queue() 493 if ( TSD == NULL ) in get_number_in_queue_from_rxstack() 532 if ( TSD == NULL ) in get_queues_from_rxstack() 583 if ( TSD == NULL ) in init_connect_string() 660 if ( TSD == NULL ) in get_queue_from_rxstack() 744 if ( TSD == NULL ) in create_queue_on_rxstack() [all …]
|
H A D | signals.c | 49 if (TSD->nextsig) in mark_signals() 52 if (TSD->nextsig->descr) in mark_signals() 105 traps = gettraps( TSD, TSD->currlevel ) ; in condition_hook() 117 if (TSD->currentnode) in condition_hook() 240 void halt_raised( tsd_t *TSD ) in halt_raised() argument 242 int sig = TSD->HaltRaised; in halt_raised() 244 TSD->HaltRaised = 0; in halt_raised() 246 if ( condition_hook( TSD, in halt_raised() 258 vms_killproc( TSD ); in halt_raised() 282 TSD->HaltRaised = num; in halt_handler() [all …]
|
H A D | error.c | 372 int init_error( tsd_t *TSD ) in init_error() argument 376 if (TSD->err_tsd != NULL) in init_error() 381 et = (err_tsd_t *)TSD->err_tsd; in init_error() 474 et = (err_tsd_t *)TSD->err_tsd; in get_text_message() 540 et = (err_tsd_t *)TSD->err_tsd; in exiterror() 572 if ( TSD->currentnode ) in exiterror() 660 clear_errortext_buffers( TSD ); in exiterror() 700 traceback( TSD ); in exiterror() 799 clear_errortext_buffers( TSD ); in exiterror() 816 free_orphaned_libs( TSD ); in exiterror() [all …]
|
H A D | convert.c | 334 return int_to_streng( TSD, 0 ) ; in numerize() 370 streng *std_x2d( tsd_t *TSD, cparamboxptr parms ) in std_x2d() argument 412 result = numerize( TSD, in std_x2d() 432 streng *std_x2c( tsd_t *TSD, cparamboxptr parms ) in std_x2c() argument 435 return pack_hex( TSD, "X2C", parms->value ) ; in std_x2c() 460 streng *std_b2x( tsd_t *TSD, cparamboxptr parms ) in std_b2x() argument 591 streng *std_x2b( tsd_t *TSD, cparamboxptr parms ) in std_x2b() argument 703 streng *std_c2d( tsd_t *TSD, cparamboxptr parms ) in std_c2d() argument 725 return unpack_hex( TSD, parms->value ) ; in std_c2x() 731 if ( !myiswnumber( TSD, arg, num, in check_wholenum() [all …]
|
H A D | cmsfuncs.c | 77 streng *cms_sleep( tsd_t *TSD, cparamboxptr parms ) in cms_sleep() argument 96 return int_to_streng( TSD,make_buffer( TSD )) ; in cms_makebuf() 217 return std_wordpos( TSD, newparms ) ; in cms_find() 239 return std_pos( TSD, newparms ) ; in cms_index() 245 return( int_to_streng( TSD,drop_buffer( TSD, 0))) ; in cms_desbuf() 252 type_buffer( TSD ) ; in cms_buftype() 263 buffer = myatol(TSD, parms->value) ; in cms_dropbuf() 265 return( int_to_streng( TSD,drop_buffer(TSD, buffer))) ; in cms_dropbuf() 301 return int_to_streng( TSD,result==1) ; in cms_state() 318 fn = str_of(TSD,parms->value); in cms_state() [all …]
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | a-tags.adb | 184 return T.TSD.HT_Link; 206 T.TSD.HT_Link := Next; 231 Pos : constant Integer := Obj_Tag.TSD.Idepth - Typ_Tag.TSD.Idepth; 283 return T.TSD.Idepth; 305 return T.TSD.RC_Offset; 323 return To_Address (T.TSD); 352 if TSD /= null then 355 := TSD.Ancestor_Tags (0 .. TSD.Idepth); 442 return T.TSD.Ancestor_Tags (1); 481 T.TSD.Idepth := Value; [all …]
|