X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Frts%2FLinker.c;h=fe9d98bc606e28935d92e2a38be4ae558a74c850;hp=87fda47c61fcb64d5e9a8053b4fbd2986a237fd6;hb=beb5737b7ee42c4e9373a505e7d957206d69a30e;hpb=76e3742711eb9eb2fed7654c56e602b54c517e87

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 87fda47..fe9d98b 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -26,6 +26,7 @@
 #include "RtsUtils.h"
 #include "Schedule.h"
 #include "Storage.h"
+#include "Sparks.h"
 
 #ifdef HAVE_SYS_TYPES_H
 #include <sys/types.h>
@@ -527,6 +528,7 @@ typedef struct _RtsSymbolVal {
       SymX(newTVarzh_fast)			\
       SymX(atomicModifyMutVarzh_fast)		\
       SymX(newPinnedByteArrayzh_fast)		\
+      SymX(newSpark)				\
       SymX(orIntegerzh_fast)			\
       SymX(performGC)				\
       SymX(performMajorGC)			\