Fix NUMA support on Windows (#15049)

[ghc.git] / rts / Interpreter.h

diff --git a/rts/Interpreter.h b/rts/Interpreter.h
index d66e636..fa341f2 100644 (file)
--- a/rts/Interpreter.h
+++ b/rts/Interpreter.h
@@ -6,9 +6,6 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef INTERPRETER_H
-#define INTERPRETER_H
+#pragma once
 
-extern Capability *interpretBCO (Capability* cap);
-
-#endif /* INTERPRETER_H */
+RTS_PRIVATE Capability *interpretBCO (Capability* cap);