diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2022-05-16 13:43:53 +0200 |
|---|---|---|
| committer | doyougnu <jeffrey.young@iohk.io> | 2022-06-13 13:42:42 -0400 |
| commit | 643620074c07f158dc8afefe57b24c7a2f171a29 (patch) | |
| tree | 172928b78836b748adac803f768de270519e5b7f | |
| parent | 0d26db7306d39388b93eb7508741d5d5f46d705e (diff) | |
| download | haskell-643620074c07f158dc8afefe57b24c7a2f171a29.tar.gz | |
CodeGen: support StackSnapshot# in primTypeVt
| -rw-r--r-- | compiler/GHC/StgToJS/CoreUtils.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/StgToJS/CoreUtils.hs b/compiler/GHC/StgToJS/CoreUtils.hs index a99518ed7a..8519aa47d1 100644 --- a/compiler/GHC/StgToJS/CoreUtils.hs +++ b/compiler/GHC/StgToJS/CoreUtils.hs @@ -200,6 +200,7 @@ primTypeVt t = case tyConAppTyCon_maybe (unwrapType t) of | tc == mVarPrimTyCon -> RtsObjV | tc == tVarPrimTyCon -> RtsObjV | tc == bcoPrimTyCon -> RtsObjV -- fixme what do we need here? + | tc == stackSnapshotPrimTyCon -> RtsObjV | tc == ioPortPrimTyCon -> RtsObjV -- FIXME: Jeff (2022, 05) IOPort, how to handle in JS? | tc == anyTyCon -> PtrV | tc == compactPrimTyCon -> ObjV -- unsupported? |