1 files changed, 6 insertions, 0 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index 1108ca8ed0..f8885cdbce 100644
--- a/rts/Interpreter.c
+++ b/rts/Interpreter.c
@@ -2038,6 +2038,12 @@ run_BCO:
             goto nextInsn;
         }
 
+        case bci_PRIMCALL: {
+            Sp_subW(1);
+            SpW(0) = (W_)&stg_primcall_info;
+            RETURN_TO_SCHEDULER_NO_PAUSE(ThreadRunGHC, ThreadYielding);
+        }
+
         case bci_CCALL: {
             void *tok;
             int stk_offset            = BCO_NEXT;