diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-10-04 12:10:30 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-10-04 12:11:57 +0100 |
| commit | 429397f2cca3b6e7a74b6a24132eae8008accc14 (patch) | |
| tree | d0dca72d18a6b9fa956a531636d72aac3144ac0b /compiler/ghci | |
| parent | 30a046fbe5c7d890bc4518b2cd1b925ac060aed8 (diff) | |
| download | haskell-429397f2cca3b6e7a74b6a24132eae8008accc14.tar.gz | |
Comments only
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/ByteCodeGen.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/ghci/ByteCodeGen.lhs b/compiler/ghci/ByteCodeGen.lhs index 25f6b6693d..9a5a95270c 100644 --- a/compiler/ghci/ByteCodeGen.lhs +++ b/compiler/ghci/ByteCodeGen.lhs @@ -1166,6 +1166,7 @@ maybe_getCCallReturnRep fn_ty -- Compile code which expects an unboxed Int on the top of stack, -- (call it i), and pushes the i'th closure in the supplied list -- as a consequence. +-- The [Name] is a list of the constructors of this (enumeration) type implement_tagToId :: [Name] -> BcM BCInstrList implement_tagToId names = ASSERT( notNull names ) |