File: cx_pusheval.c.inc

package info (click to toggle)
libfuture-asyncawait-perl 0.70-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 528 kB
  • sloc: perl: 2,647; ansic: 118; pascal: 34; makefile: 3
file content (15 lines) | stat: -rw-r--r-- 306 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
/* vi: set ft=c inde=: */

#ifndef cx_pusheval

#define cx_pusheval(cx, retop, n)  S_cx_pusheval(aTHX_ cx, retop, n)

static void S_cx_pusheval(pTHX_ PERL_CONTEXT *cx, OP *retop, SV *namesv)
{
  PUSHEVAL(cx, NULL);
  cx->blk_eval.retop = retop;
  if(namesv)
    cx->blk_eval.old_namesv = namesv;
}

#endif