Kernel/src/emu.c

58 #define _GNU_SOURCE     /* to get REG_R13 from ucontext.h */
116  * LOCAL TYPES:	the abstract machine code as seen from the emulator
148  * it from within sigprof_handler() via Int_Pp
415  * the 'from' argument is modified,
419 #define Move_Pw_To_Global_Stack(from, to, check)\
420 	Dereference_Pw(from)			\
421 	if (IsRef((from)->tag) && IsLocal(from)) {	\
422 	    Trail_If_Needed_Eb(from);		\
423 	    from->val.ptr = to;			\
428 	    *(to++) = *from;			\
632 /* get next pair of pointers from the (non-empty) PDL	*/
758  * TG_SL from a control frame. Use the appropriate macros!
821     Set_Det;			/* should be imported from global vmflags */
829  * from the argument registers.
1526 	 * state partially on SUCCESSful return from error handler.
1592  * Apart from that, we are in a return state.
1806  * - PP points to start of procedure (we get the arity from the code header)
3719             /* next line has redundant | to make code different from Trust */
3750 			FTRACE[FDROP].source_pos.from = DFrom(pw1);
4103 	    /* get alternative from oracle or choicepoint */
4230 			FTRACE[FDROP].source_pos.from = DFrom(pw1);
5223 	     * and remove it from its list. Note that these lists have been
5570                         /* from call(','(Goal1, Goal2), CM, LM, Cut) */
5575                         /* from call(','(Goal1), Goal2, CM, LM, Cut) */
5579                         /* from call(',', Goal1, Goal2, CM, LM, Cut) */
5607                             /* from call((G1->G2;G3), CM, LM, Cut) */
5612                             /* from call(;(G1->G2), G3, CM, LM, Cut) */
5617                             /* from call(;, (G1->G2), G3, CM, LM, Cut) */
5663                     /* get the arguments from the goal structure */
5724 	    /* If we have source info in the DBG_ fields from a preceding
6241  * information may be supplied as quadruple (file,line,from,to)
6243  * order of the [port, file, line, from, to] parameter group!
6246 	Case(Debug_call, I_Debug_call)	/* proc, port, file, line, from, to */
6326  * order of the [port, file, line, from, to] parameter group!
6365 	Case(Debug_call_simple, I_Debug_call_simple)	/* proc, port, file, line, from, to, argdesc, argref */
6617 		    /* was the block/3 called from this environment? */
6650 		/* exit an emulator: restore everything from the invoc frame.
6695 			FTRACE[FDROP].source_pos.from = DFrom(td);
7879 	     * Specially compiled call from inside a delay clause: