scope.h

   1 #define SAVEt_ITEM      0
   2 #define SAVEt_SV        1
   3 #define SAVEt_AV        2
   4 #define SAVEt_HV        3
   5 #define SAVEt_INT       4
   6 #define SAVEt_LONG      5
   7 #define SAVEt_I32       6
   8 #define SAVEt_IV        7
   9 #define SAVEt_SPTR      8
  10 #define SAVEt_APTR      9
  11 #define SAVEt_HPTR      10
  12 #define SAVEt_PPTR      11
  13 #define SAVEt_NSTAB     12
  14 #define SAVEt_SVREF     13
  15 #define SAVEt_GP        14
  16 #define SAVEt_FREESV    15
  17 #define SAVEt_FREEOP    16
  18 #define SAVEt_FREEPV    17
  19 #define SAVEt_CLEARSV   18
  20 #define SAVEt_DELETE    19
  21 #define SAVEt_DESTRUCTOR 20
  22 #define SAVEt_REGCONTEXT 21
  23
  24 #define SSCHECK(need) if (savestack_ix + need > savestack_max) savestack_grow()
  25 #define SSPUSHINT(i) (savestack[savestack_ix++].any_i32 = (I32)(i))
  26 #define SSPUSHLONG(i) (savestack[savestack_ix++].any_long = (long)(i))
  27 #define SSPUSHIV(i) (savestack[savestack_ix++].any_iv = (IV)(i))
  28 #define SSPUSHPTR(p) (savestack[savestack_ix++].any_ptr = (void*)(p))
  29 #define SSPUSHDPTR(p) (savestack[savestack_ix++].any_dptr = (p))
  30 #define SSPOPINT (savestack[--savestack_ix].any_i32)
  31 #define SSPOPLONG (savestack[--savestack_ix].any_long)
  32 #define SSPOPIV (savestack[--savestack_ix].any_iv)
  33 #define SSPOPPTR (savestack[--savestack_ix].any_ptr)
  34 #define SSPOPDPTR (savestack[--savestack_ix].any_dptr)
  35
  36 #define SAVETMPS save_int((int*)&tmps_floor), tmps_floor = tmps_ix
  37 #define FREETMPS if (tmps_ix > tmps_floor) free_tmps()
  38 #ifdef DEPRECATED
  39 #define FREE_TMPS() FREETMPS
  40 #endif
  41
  42 #define ENTER push_scope()
  43 #define LEAVE pop_scope()
  44 #define LEAVE_SCOPE(old) if (savestack_ix > old) leave_scope(old)
  45
  46 #define SAVEINT(i) save_int((int*)(&i));
  47 #define SAVEIV(i) save_iv((IV*)(&i));
  48 #define SAVEI32(i) save_I32((I32*)(&i));
  49 #define SAVELONG(l) save_long((long*)(&l));
  50 #define SAVESPTR(s) save_sptr((SV**)(&s))
  51 #define SAVEPPTR(s) save_pptr((char**)(&s))
  52 #define SAVEFREESV(s) save_freesv((SV*)(s))
  53 #define SAVEFREEOP(o) save_freeop((OP*)(o))
  54 #define SAVEFREEPV(p) save_freepv((char*)(p))
  55 #define SAVECLEARSV(sv) save_clearsv((SV**)(&sv))
  56 #define SAVEDELETE(h,k,l) save_delete((HV*)(h), (char*)(k), (I32)l)
  57 #define SAVEDESTRUCTOR(f,p) save_destructor(f,(void*)p)
  58