Add a couple of missing volatile qualifiers

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index 40aebea36f97c0d56e583f19220bdf70bfc58c13..fd742ebf9cac5c72a1402df39a04e544b8d2a80c 100644 (file)
--- a/indirect.xs
+++ b/indirect.xs
@@ -468,7 +468,7 @@ static SV *indirect_detag(pTHX_ const SV *hint) {
  return I_HINT_CODE(h);
 }
 
-static U32 indirect_hash = 0;
+static VOL U32 indirect_hash = 0;
 
 static SV *indirect_hint(pTHX) {
 #define indirect_hint() indirect_hint(aTHX)
@@ -935,7 +935,7 @@ done:
 
 /* --- Global setup/teardown ------------------------------------------------ */
 
-static U32 indirect_initialized = 0;
+static VOL U32 indirect_initialized = 0;
 
 static void indirect_global_teardown(pTHX_ void *root) {
  if (!indirect_initialized)