X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Fstg%2FSMP.h;h=b302f4886bdeaa234955519eaaed18cf0c3011b8;hb=0ee6cfbe62211121fc84a9d2e500f414f9e397f7;hp=8297f5711c32e1f09ff3151f438da7f4ff72a43c;hpb=d20d32d788e2d6c088e6b03776c428df5bb004d3;p=ghc-hetmet.git

diff --git a/includes/stg/SMP.h b/includes/stg/SMP.h
index 8297f57..b302f48 100644
--- a/includes/stg/SMP.h
+++ b/includes/stg/SMP.h
@@ -64,6 +64,13 @@ EXTERN_INLINE StgWord atomic_inc(StgVolatilePtr p);
  */
 EXTERN_INLINE StgWord atomic_dec(StgVolatilePtr p);
 
+/*
+ * Busy-wait nop: this is a hint to the CPU that we are currently in a
+ * busy-wait loop waiting for another CPU to change something.  On a
+ * hypertreaded CPU it should yield to another thread, for example.
+ */
+EXTERN_INLINE void busy_wait_nop(void);
+
 #endif // !IN_STG_CODE
 
 /*
@@ -216,6 +223,17 @@ atomic_dec(StgVolatilePtr p)
 #endif
 }
 
+EXTERN_INLINE void
+busy_wait_nop(void)
+{
+#if defined(i386_HOST_ARCH) || defined(x86_64_HOST_ARCH)
+    __asm__ __volatile__ ("rep; nop");
+    //
+#else
+    // nothing
+#endif
+}
+
 #endif // !IN_STG_CODE
 
 /*