Kernel/src/emu_c_env.c

1253     register pword *arg_i;
1274 	    arg_i = val.ptr++;
1275 	    Dereference_(arg_i);
1276 	    if (IsRef(arg_i->tag))
1277 		res = insert_suspension(arg_i, position, susp, slot);
1279 		res = deep_suspend(arg_i->val, arg_i->tag, position,
1284 	arg_i = val.ptr;		/* tail recursion */
1285 	Dereference_(arg_i);
1286 	val.all = arg_i->val.all;
1287 	tag.all = arg_i->tag.all;
1841     register pword *arg_i;
1860 	    arg_i = val.ptr++;
1861 	    Dereference_(arg_i);
1862 	    if (pvar = ec_nonground(arg_i->val,arg_i->tag))
1865 	arg_i = val.ptr;		/* tail recursion */
1866 	Dereference_(arg_i);
1867 	val.all = arg_i->val.all;
1868 	tag.all = arg_i->tag.all;