diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2023-04-18 18:19:46 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-04-19 20:04:35 -0400 |
commit | d442ac053f9ac7dbcc32318802daf686f377fe3d (patch) | |
tree | 0052ad88f5ba0c63ed53cbf29a049a5c462034c6 /compiler | |
parent | df1a581188694479a583270548896245fc23b525 (diff) | |
download | haskell-d442ac053f9ac7dbcc32318802daf686f377fe3d.tar.gz |
JS: fix thread-related primops
Diffstat (limited to 'compiler')
-rw-r--r-- | compiler/GHC/StgToJS/Prim.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/StgToJS/Prim.hs b/compiler/GHC/StgToJS/Prim.hs index 188d6167fa..94fbd7395d 100644 --- a/compiler/GHC/StgToJS/Prim.hs +++ b/compiler/GHC/StgToJS/Prim.hs @@ -925,7 +925,7 @@ genPrim prof bound ty op = case op of IsCurrentThreadBoundOp -> \[r] [] -> PrimInline $ r |= one_ NoDuplicateOp -> \[] [] -> PrimInline mempty -- don't need to do anything as long as we have eager blackholing ThreadStatusOp -> \[stat,cap,locked] [tid] -> PrimInline $ appT [stat, cap, locked] "h$threadStatus" [tid] - ListThreadsOp -> \[r] [] -> PrimInline $ r |= var "h$threads" + ListThreadsOp -> \[r] [] -> PrimInline $ appT [r] "h$listThreads" [] GetThreadLabelOp -> \[r1, r2] [t] -> PrimInline $ appT [r1, r2] "h$getThreadLabel" [t] LabelThreadOp -> \[] [t,l] -> PrimInline $ t .^ "label" |= l |