From aefcf9575f400e54745b9411d3587ffc65649602 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 23 Dec 1998 12:26:00 +0000
Subject: [PATCH] [project @ 1998-12-23 12:26:00 by simonm] Add strictness for
 fork# and par#.

---
 ghc/compiler/prelude/PrimOp.lhs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 9d7075acc1eb..3b35044daa6d 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -856,6 +856,9 @@ primOpStrictness :: PrimOp -> ([Demand], Bool)
 	-- Use only the ones you ned.
 
 primOpStrictness SeqOp            = ([wwLazy], False)
+primOpStrictness ParOp            = ([wwLazy], False)
+primOpStrictness ForkOp		  = ([wwLazy, wwPrim], False)
+
 primOpStrictness NewArrayOp       = ([wwPrim, wwLazy, wwPrim], False)
 primOpStrictness WriteArrayOp     = ([wwPrim, wwPrim, wwLazy, wwPrim], False)
 
-- 
GitLab