Home
last modified time | relevance | path

Searched refs:TSD (Results 1 – 25 of 1029) sorted by relevance

12345678910>>...42

/dports/lang/rexx-regina/regina-rexx-3.9.3/
H A Dextern.h145 # 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 Dinterprt.c494 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 Dmacros.c152 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 Dtracing.c69 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 Drexx.c299 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 Dexpr.c25 #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 Darxfuncs.c98 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 Dvariable.c185 # 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 Ddbgfuncs.c28 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 Dlibrary.c73 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 Dstack.c160 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 Drexxsaa.c808 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 Dclient.c108 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 Dshell.c92 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 Dmemory.c373 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 Denvir.c86 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 Dfuncs.c338 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 Dbuiltin.c73 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 Dunxfuncs.c86 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 Dextstack.c121 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 Dsignals.c49 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 Derror.c372 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 Dconvert.c334 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 Dcmsfuncs.c77 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 Da-tags.adb184 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 …]

12345678910>>...42