Add ceil & floor to builtin

[perl5.git] / globals.c

diff --git a/globals.c b/globals.c
index 5439ba2..5a78c81 100644 (file)
--- a/globals.c
+++ b/globals.c
@@ -15,7 +15,7 @@
  */
 
 /* This file exists to #include "perl.h" _ONCE_ with
- * PERL_IN_GLOBALS_C defined. That causes various global varaiables
+ * PERL_IN_GLOBALS_C defined. That causes various global variables
  * in perl.h and other files it includes to be _defined_ (and initialized)
  * rather than just declared.
 */
@@ -30,6 +30,14 @@
  */
 #include "regcomp.h"
 
+/* We need somewhere to declare this. This file seems a good place.
+ * This is not a regular "global" in that we don't know whether it needs to
+ * exist until we include threads.h, and we don't want it as part of any
+ * global struct (if that or something similar is re-introduced. */
+
+#if defined(USE_ITHREADS) && defined(PERL_THREAD_LOCAL)
+PERL_THREAD_LOCAL void *PL_current_context;
+#endif
 
 /*
  * ex: set ts=8 sts=4 sw=4 et: