1 /* run.c 2 * 3 * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 4 * 2000, 2001, by Larry Wall and others 5 * 6 * You may distribute under the terms of either the GNU General Public 7 * License or the Artistic License, as specified in the README file. 8 * 9 */ 10 11 /* This file contains the main Perl opcode execution loop. It just 12 * calls the pp_foo() function associated with each op, and expects that 13 * function to return a pointer to the next op to be executed, or null if 14 * it's the end of the sub or program or whatever. 15 * 16 * There is a similar loop in dump.c, Perl_runops_debug(), which does 17 * the same, but also checks for various debug flags each time round the 18 * loop. 19 * 20 * Why this function requires a file all of its own is anybody's guess. 21 * DAPM. 22 */ 23 24 #include "EXTERN.h" 25 #define PERL_IN_RUN_C 26 #include "perl.h" 27 28 /* 29 * "Away now, Shadowfax! Run, greatheart, run as you have never run before! 30 * Now we are come to the lands where you were foaled, and every stone you 31 * know. Run now! Hope is in speed!" --Gandalf 32 */ 33 34 int 35 Perl_runops_standard(pTHX) 36 { 37 while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) { 38 PERL_ASYNC_CHECK(); 39 } 40 41 TAINT_NOT; 42 return 0; 43 } 44 45 /* 46 * Local variables: 47 * c-indentation-style: bsd 48 * c-basic-offset: 4 49 * indent-tabs-mode: t 50 * End: 51 * 52 * ex: set ts=8 sts=4 sw=4 noet: 53 */ 54