File: cx_pushblock.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 (16 lines) | stat: -rw-r--r-- 324 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
/* vi: set ft=c inde=: */

#ifndef cx_pushblock

#define cx_pushblock(t, gimme, sp, saveix)  S_cx_pushblock(aTHX_ t, gimme, sp, saveix)

static PERL_CONTEXT *S_cx_pushblock(pTHX_ U32 t, U8 gimme, SV **sp, I32 saveix)
{
  PERL_CONTEXT *cx;
  assert(saveix == PL_savestack_ix);

  PUSHBLOCK(cx, t, sp);
  return cx;
}

#endif