[asperl] fixups to make it build and pass tests under both compilers

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

diff --git a/perlvars.h b/perlvars.h
index 69206a5..9f801fb 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -25,6 +25,11 @@ PERLVARI(Gthreadsv_names,    char *, THREADSV_NAMES)
 PERLVAR(Gcurthr,       struct perl_thread *)   /* Currently executing (fake) thread */
 #endif
 #endif /* USE_THREADS */
+#ifdef PERL_OBJECT
+#ifdef WIN32
+PERLVAR(Gerror_no,    int)     /* errno for each interpreter */
+#endif
+#endif
 
 PERLVAR(Guid,  int)            /* current real user id */
 PERLVAR(Geuid, int)            /* current effective user id */
@@ -54,7 +59,11 @@ PERLVAR(Ghe_root,    HE *)           /* free he list--shared by interpreters */
 PERLVAR(Gnice_chunk,   char *)         /* a nice chunk of memory to reuse */
 PERLVAR(Gnice_chunk_size,      U32)            /* how nice the chunk of memory is */
 
+#ifdef PERL_OBJECT
+PERLVARI(Grunops,      runops_proc_t,  FUNC_NAME_TO_PTR(RUNOPS_DEFAULT))       
+#else
 PERLVARI(Grunops,      runops_proc_t *,        RUNOPS_DEFAULT) 
+#endif
 
 PERLVAR(Gtokenbuf[256],        char)           
 PERLVAR(Gna,   STRLEN)         /* for use in SvPV when length is Not Applicable */