]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Add a couple of missing volatile qualifiers
authorVincent Pit <vince@profvince.com>
Tue, 31 Mar 2015 17:25:53 +0000 (14:25 -0300)
committerVincent Pit <vince@profvince.com>
Tue, 31 Mar 2015 17:25:53 +0000 (14:25 -0300)
indirect.xs

index 40aebea36f97c0d56e583f19220bdf70bfc58c13..fd742ebf9cac5c72a1402df39a04e544b8d2a80c 100644 (file)
@@ -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)