mpickering

commit a27803fa7ab18582f61558aaf3799d94726a0a1f
Author: Matthew Pickering <matthewtpickering@gmail.com>
Date:   Wed Apr 2 14:16:16 2025 +0100

    Move ModuleGraph into UnitEnv
    
    The ModuleGraph is a piece of information associated with the
    ExternalPackageState and HomeUnitGraph. Therefore we should store it
    inside the HomeUnitEnv.

mpickering

diff --git a/compiler/GHC/Cmm/Info.hs b/compiler/GHC/Cmm/Info.hs
index 06b926aa595..80da422ac77 100644
--- a/compiler/GHC/Cmm/Info.hs
+++ b/compiler/GHC/Cmm/Info.hs
@@ -392,7 +392,7 @@ mkStdInfoTable profile (type_descr, closure_descr) cl_type srt layout_lit
     prof_info
         -- Ticky info (none at present)
         -- Debug info (none at present)
- ++ [layout_lit, tag, srt]
+ ++ [closure_id, layout_lit, tag, srt]

mpickering

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE FlexibleInstances #-}
{-# OPTIONS_GHC -ddump-simpl #-}
module StreamTest where

import Language.Haskell.TH
import Data.Functor.Compose

mpickering

{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE OverloadedStrings #-}

import Data.Map.Strict (Map)
import qualified Data.Map.Strict as Map
import Data.List (nub)
import Data.Maybe (mapMaybe)
import Control.Monad (guard)

-- Basic types

mpickering

#!/usr/bin/env bash

set -e


usage() {
  echo "$0 (job-name)"
  exit 1
}

mpickering

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}

import System.IO
import System.Posix.IO
import System.Posix.Types
import Control.Concurrent
import Control.Monad
import qualified Data.ByteString.Char8 as BS
import GHC.IO.Handle

mpickering

:set -XPatternSynonyms
:set -Wall -Werror
pattern P = 5
f P = 5
{-# COMPLETE P #-}
x P = 5

mpickering

{-# LANGUAGE NamedDefaults #-}
module A (
    Stringify(..),
    default Stringify
  ) where

class Stringify a where
  stringify :: a -> String

instance Stringify Int where

mpickering

956922255 entry and64#_info
593475578 entry +#_info
435057081 entry int64ToWord64#_info
351178432 entry xor64#_info
299285494 entry word64ToInt64#_info
293015499 entry negateInt64#_info
255885159 entry neWord64#_info
227322844 entry eqWord64#_info
218391275 entry word2Int#_info
193188859 entry int2Word#_info

mpickering

100953117 entry stripPrefix_info
30230354 entry +#_info
24580547 entry and64#_info
15904501 entry int2Word#_info
15201107 entry ==#_info
13859003 entry ord#_info
11308421 entry word2Int#_info
10390322 entry *#_info
10073034 entry indexCharOffAddr#_info
9943707 entry xor64#_info