support optional crypt() with PERL_OBJECT

[p5sagit/p5-mst-13.2.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 71fcda7..dfdcca8 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -201,6 +201,12 @@ PERLVAR(Ithrsv,            SV *)           /* struct perl_thread for main thread */
 PERLVARI(Ithreadnum,   U32,    0)      /* incremented each thread creation */
 #endif /* USE_THREADS */
 
+PERLVARI(Ibytecode_iv_overflows,int,   0)      /* from bytecode.h */
+PERLVAR(Ibytecode_sv,  SV *)
+PERLVAR(Ibytecode_pv,  XPV)
+PERLVAR(Ibytecode_obj_list,    void **)
+PERLVARI(Ibytecode_obj_list_fill, I32, -1)
+
 #ifdef PERL_OBJECT
 PERLVARI(piMem,                IPerlMem*,  NULL)
 PERLVARI(piENV,                IPerlEnv*,  NULL)