Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

75 lines
2.0 KiB

  1. #define DOOP(ppname) PUTBACK; PL_op = ppname(aTHX); SPAGAIN
  2. #define CCPP(s) OP * s(pTHX)
  3. #define PP_LIST(g) do { \
  4. dMARK; \
  5. if (g != G_ARRAY) { \
  6. if (++MARK <= SP) \
  7. *MARK = *SP; \
  8. else \
  9. *MARK = &PL_sv_undef; \
  10. SP = MARK; \
  11. } \
  12. } while (0)
  13. #define MAYBE_TAINT_SASSIGN_SRC(sv) \
  14. if (PL_tainting && PL_tainted && (!SvGMAGICAL(left) || !SvSMAGICAL(left) || \
  15. !((mg=mg_find(left, 't')) && mg->mg_len & 1)))\
  16. TAINT_NOT
  17. #define PP_PREINC(sv) do { \
  18. if (SvIOK(sv)) { \
  19. ++SvIVX(sv); \
  20. SvFLAGS(sv) &= ~(SVf_NOK|SVf_POK|SVp_NOK|SVp_POK); \
  21. } \
  22. else \
  23. sv_inc(sv); \
  24. SvSETMAGIC(sv); \
  25. } while (0)
  26. #define PP_UNSTACK do { \
  27. TAINT_NOT; \
  28. PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; \
  29. FREETMPS; \
  30. oldsave = PL_scopestack[PL_scopestack_ix - 1]; \
  31. LEAVE_SCOPE(oldsave); \
  32. SPAGAIN; \
  33. } while(0)
  34. /* Anyone using eval "" deserves this mess */
  35. #define PP_EVAL(ppaddr, nxt) do { \
  36. dJMPENV; \
  37. int ret; \
  38. PUTBACK; \
  39. JMPENV_PUSH(ret); \
  40. switch (ret) { \
  41. case 0: \
  42. PL_op = ppaddr(aTHX); \
  43. PL_retstack[PL_retstack_ix - 1] = Nullop; \
  44. if (PL_op != nxt) CALLRUNOPS(); \
  45. JMPENV_POP; \
  46. break; \
  47. case 1: JMPENV_POP; JMPENV_JUMP(1); \
  48. case 2: JMPENV_POP; JMPENV_JUMP(2); \
  49. case 3: \
  50. JMPENV_POP; \
  51. if (PL_restartop && PL_restartop != nxt) \
  52. JMPENV_JUMP(3); \
  53. } \
  54. PL_op = nxt; \
  55. SPAGAIN; \
  56. } while (0)
  57. #define PP_ENTERTRY(jmpbuf,label) \
  58. STMT_START { \
  59. int ret; \
  60. JMPENV_PUSH_ENV(jmpbuf,ret); \
  61. switch (ret) { \
  62. case 1: JMPENV_POP_ENV(jmpbuf); JMPENV_JUMP(1);\
  63. case 2: JMPENV_POP_ENV(jmpbuf); JMPENV_JUMP(2);\
  64. case 3: JMPENV_POP_ENV(jmpbuf); SPAGAIN; goto label;\
  65. } \
  66. } STMT_END
  67. #define PP_LEAVETRY \
  68. STMT_START{ PL_top_env=PL_top_env->je_prev; }STMT_END