File: save_clearpadrange.c.inc

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

#ifndef save_clearpadrange

#define save_clearpadrange(padix, count)  S_save_clearpadrange(aTHX_ padix, count)

static void S_save_clearpadrange(pTHX_ PADOFFSET padix, U32 count)
{
  /* Code stolen from PP(pp_padrange) in pp_hot.c */
  const UV payload = (UV)(
                (padix << (OPpPADRANGE_COUNTSHIFT + SAVE_TIGHT_SHIFT))
              | (count << SAVE_TIGHT_SHIFT)
              | SAVEt_CLEARPADRANGE);
  dSS_ADD;
  SS_ADD_UV(payload);
  SS_ADD_END(1);
}

#endif