9j      !"#$%&'()*+,- . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ ABCDEFGHIJKLMNOPQRS T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h ijklmnopqrstuvwx y z { | } ~       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEF G H I J K L M N O P Q R S T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c!d!e!f!g!h!i!j!k!l!m"n"o"p"q"r#s#t#u#v#w#x#y#z#{#|#}#~##$%%%%%%)&Safe  #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>Safe  #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None35UExternally defined primitiveLA primitive that has a template that can be filled out by the backend renderName of the primitive Either a  declaration or an  expression template. /A primitive that carries additional information Additional information Primitive Definitions      '(C) 2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None35<FIN(A class that can generate unique numbersGet a new unique^Create a TH expression that returns the a formatted string containing the name of the module 4 is spliced into, and the line where it was spliced.$Cache the result of a monadic actionICache the result of a monadic action in a State 3 transformer layers downSpine-strict cache variant of  mkCachedT3IRun a State-action using the State that is stored in a higher-layer MonadFunctorial version of ()Functorial version of (*0Performs trace when first argument evaluates to Monadic version of +,Monadic version of +-6Composition of a unary function with a binary function)if-then-else as a function on an argument &Applicative version of 'GHC.Types.(:)'!Safe indexing, returns a  if the index does not exist"BUnsafe indexing, return a custom error message when indexing fails#5Split the second list at the length of the first list%,x y -> ceiling (logBase x y), x > 1 && y > 0%The key the action is associated with)The Lens to the HashMap that is the cacheThe action to cache%The key the action is associated with)The Lens to the HashMap that is the cacheThe action to cache+Lens to the State in the higher-layer monadThe State-action to perform !"#$%&  !"#$%& !"#$% !"#$%& .#(C) 2015-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneMParse a ByteString according to the given JSON template. Prints failures on stdout, and returns  if parsing fails.Bytestring to parse#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None'hGenerate a set of primitives that are found in the primitive definition files in the given directories.'/Directories to search for primitive definitions'''/#(C) 2015-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None357 #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None027- Type variable. Term variable/Variables in CoreHW0Constructor for type variables3Constructor for term variables5Change the name of a variable -./012345 -./012345 /031214.-5-./0312145 #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None02357 6DataCon reference7:Syntactical position of the DataCon in the type definition8Data Constructor:Name of the DataCon;+Syntactical position in the type definition<Type of the 'DataCon=mUniversally quantified type-variables, these type variables are also part of the result type of the DataCon>Existentially quantified type-variables, these type variables are not part of the result of the DataCon, but only of the arguments.?Argument types@Given a DataCon and a list of types, the type variables of the DataCon type are substituted for the list of types. The argument types are returned.NThe list of types should be equal to the number of type variables, otherwise Nothing is returned.6789:;<=>?@ 6789:;<=>?@ 89:;<=>?67@ 6789:;<=>?@#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None02357 TyCon referenceType ConstructorA The RHS of an Algebraic DatatypeCThe DataCons of a TyConEThe newtype DataConFThe argument type of the newtype DataCon in eta-reduced form, which is just the representation of the TyCon. The TyName's are the type-variables from the corresponding TyCon.GAlgorithmic DataConsHName of the TyConIKind of the TyConJNumber of type argumentsKDataCon definitionsL$Function TyCons (e.g. type families)M&List of: ([LHS match types], RHS type)NPrimitive TyConsO'To close the loop on the type hierarchyP Create a Kind out of a TyConNameQ&Does the TyCon look like a tuple TyConR%Get the DataCons belonging to a TyCon ABCDEFGHIJKLMNOPQR ABCDEFGHIJKLMNOPQRGLNOHIJKHIJMHIJH ABDCEFPQR GLNOHIJKHIJMHIJHABDCEFPQR #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None Builtin Name Builtin Name Builtin Name Builtin Name Builtin Kind Builtin Kind Builtin Kind Builtin Kind Builtin Type Builtin Type Builtin Type Builtin Type Builtin Type Builtin Type Builtin Type Builtin Type&STUVWXYZ[\]^ STUVWXYZ[\]^ STUVWXYZ[\]^&STUVWXYZ[\]^ #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None02357_ Term Literalh Determines the Type of a Literal _`abcdefgh _`abcdefgh _`abcdefgh_`abcdefgh#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None02357Term referenceDTerm representation in the CoreHW language: System F + LetRec + Casei+Patterns in the LHS of a case-decompositionjVDatatype pattern, '[TyVar]' bind existentially-quantified type-variables of a DataConkLiteral patternlDefault patternmBinding in a LetRec constructnVariable referenceoDatatype constructorpLiteralq PrimitiverTerm-abstractionsType-abstractiont ApplicationuType-applicationvRecursive let-bindingwECase-expression: subject, type of alternatives, list of alternativesijklmnopqrstuvwijklmnopqrstuvwnopqrstuvwmijkl  nopqrstuvwijklm #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NonexSubstitutes types in a typeySubstitutes a type in a typezSubstitutes kinds in a kind{Substitutes a type in a term|Substitutes types in a term}Substitutes a term in a term~Substitutes terms in a termxyz{|}~xyz{|}~xyz{|}~xyz{|}~#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None 02357'(Reference to a Kind)Reference to a Type*The level above types+/Types in CoreHW: function and polymorphic types,Make a Type out of a TyConEither a Kind or a Type Literal TypesType Constants TyCon type Function typeAn easier view on types Function type Applied TyConNeither of the above Type variable Type constantPolymorphic TypeType Application Type literalAn easier view on typesA transformation that renders Signal types transparentA view on types in which SignalU types and newtypes are transparent, and type functions are evaluated when possible.ZInstantiate and Apply the RHS/Original of a NewType with the given list of argument types3Make a function type of an argument and result typeDMake a TyCon Application out of a TyCon and a list of argument types6Split a TyCon Application in a TyCon and its argumentsIs a type a Superkind?Determine the kind of a typeIs a type polymorphic?4Split a function type in an argument and result type^Split a poly-function type in a: list of type-binders and argument types, and the result typenSplit a poly-function type in a: list of type-binders and argument types, and the result type. Looks through Signal and type functions.)Is a type a polymorphic or function type?/Is a type a polymorphic or function type under ?Is a type a function type?AApply a function type to an argument type and get the result type(Substitute the type variable of a type () with another typeCSplit a type application in the applied type and the argument types-The type of GHC.Err.undefined :: forall a . a5()*+,)()*+,-)+*()-,)()*+,#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None'Gives the free type-variables in a Type'Gives the free term-variables of a Term'Gives the free type-variables of a Term#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None 35#Pretty printing Show-like typeclass Print a Pretty thing to a String?      !"#$7      !"#$#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None Kind environment/contextType environment/contextDetermine the type of a term>Split a (Type)Application in the applied term and it argumentsHSplit a (Type)Abstraction in the bound variables and the abstracted termGGet the result type of a polymorphic function given a list of arguments6Get the list of term-binders out of a DataType patternMake a type variableMake a term variable6Abstract a term over a list of term and type variables-Abstract a term over a list of term variables-Abstract a term over a list of type variables)Apply a list of types and terms to a termApply a list of terms to a termApply a list of types to a term!Does a term have a function type?0Does a term have a function or polymorphic type?Is a term a term-abstraction?"Is a term a recursive let-binding?Is a term a variable reference?!Is a term a datatype constructor?Is a term a primitive?,Make variable reference out of term variable0Make a term variable out of a variable reference$Create a vector of supplied elements&Append elements to the supplied vectorCreate let-bindings with case-statements that select elements out of a vector. Returns both the variables to which element-selections are bound and the let-bindings*Determine whether a type is isomorphic to CLaSH.Signal.Internal.Signal' It is i.e.: Signal' clk a(Signal' clk a, Signal' clk b)Vec n (Signal' clk a)data Wrap = W (Signal clk' Int)etc.The Nil constructorThe Cons (:>) constructor Element typeLength of the vectorElements to put in the vectorThe Cons (:>) constructor Element type$The vector to append the elements toLength of the vectorElements to appendThe Cons (:>) constructorThe element type*Char to append to the bound variable namesLength of the vector The vector#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>SafeComponent instantiation hole. First argument indicates which function argument to instantiate. Second argument corresponds to output and input assignments, where the first element is the output assignment, and the subsequent elements are the consecutive input assignments.eThe LHS of the tuple is the name of the signal, while the RHS of the tuple is the type of the signalElements of a blackbox contextConstantComponent instantiation hole Output hole Input hole Literal hole Symbol holeVClock hole (Maybe clk corresponding to input, clk corresponding to output if Nothing) Reset holeType declaration holeType root holeError value hole&Select element type from a vector typeIHole for the name of the component in which the blackbox is instantiatedAIndex data type hole, the field is the (exclusive) maximum indexSize of a type holeLength of a vector hole*Hole containing a filepath for a data fileGHole marking beginning (True) or end (False) of a generative constructHole indicating whether IntWordInteger are 64-Bit>Hole indicating which synthesis tool we're generating HDL for*Convert to (True)/from(False) a bit-vector)A BlackBox Template is a List of Elements####(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneSParse a text as a BlackBoxTemplate, returns a list of errors in case parsing fails%7Parse a BlackBoxTemplate (Declarations and Expressions)&Parse a single Template Element'!Parse the Text part of a Template()Parse a Declaration or Expression element)Parse a Declaration*#Parse the output tag of Declaration+"Parse the input tag of Declaration,Parse an Expression element-Parse a bracketed text.)Parse a token and eat trailing whitespace//Parse the expression part of Blackbox Templates0Parse an Expression or Text1 Parse SigD2%&'()*+,-./012%&'()*+,-./01#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None0C?\Either the name of the identifier, or a tuple of the identifier and the corresponding clock8Context used to fill in the holes of a BlackBox templateResult name and type2Argument names, types, and whether it is a literal&Function arguments (subset of inputs):,(Blackbox Template,Partial Blackbox Concext) Bit literalHighLow UndefinedHigh-impedanceLiterals used in an expressionNumber literal Bit literalBoolean literalVector literalString literal'Expression used in RHS of a declarationLiteral expressionDataCon applicationSignal referenceLeft e : tagToEnum, @Right e@: dataToTag&Instantiation of a BlackBox expressionExpression Modifier@Index the expression: (Type of expression,DataCon tag,Field Tag)JSee expression in a DataCon context: (Type of the expression, DataCon tag)>See the expression in the context of a Vector append operation Internals of a Component Signal assignment:Signal to assignAssigned expression Conditional signal assignment:Signal to assignType of the result/alternativesScrutinized expressionType of the scrutineeVList of: (Maybe expression scrutinized expression is compared with,RHS of alternative) "Instantiation of another component%Instantiation of blackbox declarationSignal declarationRepresentable hardware types Empty type String type Boolean typeBitVector of a specified size9Unsigned integer with specified (exclusive) upper bounder"Signed integer of a specified size$Unsigned integer of a specified size Vector type$Sum type: Name and Constructor names"Product type: Name and field types=Sum-of-Product type: Name and Constructor names + field types)Clock type with specified name and periodBReset type corresponding to clock with a specified name and period?Size indication of a type (e.g. bit-size or number of elements)!Component: base unit of a Netlist!Name of the component"BPorts that have no correspondence the original function definition# Input ports$ Output ports%Internal declarations&Signal reference'State of the NetlistMonad)Global binders*Type environment/context+Number of signal declarations,Cached components-Primitive Definitions.#Hardcoded Type -> HWType translator/ TyCon cache7}Monad that caches generated components (StateT) and remembers hidden inputs of components that are being generated (WriterT)b      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKL^      !"#$%&'()*+,-./0123456789:?@ABCDEFGHIJKLb789'()*+,-./0123456& !"#$%>=<     ;:LKJIHGFEDCBA@?"       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKL#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None357C MState of a rewriting sessionO!Number of applied transformationsPGlobal bindersQSupply of unique numbersR&Function which is currently normalizedS Used for 3TAdditional stateUContext in which a term appearsV#Function position of an applicationW#Argument position of an applicationX'Function position of a type applicationY)RHS of a Let-binder with the sibling LHS'Z)Body of a Let-binding with the bound LHS'[2Body of a lambda-term with the abstracted variable\:Body of a TyLambda-term with the abstracted type-variable]MRHS of a case-alternative with the variables bound by the pattern on the LHS^Subject of a case-decomposition_,Read-only environment of a rewriting sessiona(Lvl at which we print debugging messagesb"Hardcode Type -> HWType translatorc TyCon cachedTuple TyCon cachee&Hardcoded evaluator (delta-reduction)}fDebug Message VerbositygDon't show debug messagesh&Show completely normalized expressionsi Names of applied transformationsj/Show sub-expressions after a successful rewritek8Show all sub-expressions on which a rewrite is attemptedrA s action in the context of the ts=Monadic action that transforms a term given a certain contexttMonad that keeps track how many transformations have been applied and can generate fresh variables and unique identifiers. In addition, it keeps track if a transformation/rewrite has been successfully applied.8MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~/MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{8UVWXYZ[\]^MNOPQRSTqponmlfghijk_`abcde{zyxwtuv~}|srMNOPQRSTU VWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~#(C) 2013-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneGlobal function binders #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None  State of the Global binders*Cache of previously specialised functions:NKey: (name of the original function, argument position, specialised term/type)AElem: (name of specialised function,type of specialised function)2Cache of how many times a function was specializedNumber of time a function f can be specialized,Cache of function where inlining took place:'Key: function where inlining took place=Elem: (functions which were inlined, number of times inlined)Number of times a function f can be inlined in a function gKSize of a function below which it is always inlined if it is not recursivePrimitive Definitions=Map telling whether a components is part of a recursive groupA  Transform action in the context of the t and 3RewriteSession with extra Normalisation information?State monad that stores specialisation and inlining information  #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneN 1Apply a transformation on the subtrees of an term'Apply two transformations in successionJApply two transformations in succession, and perform a deepseq in between.-Apply a transformation in a topdown traversalOApply a transformation in a topdown traversal. Doesn't freshen bound variables.Apply a transformation in a bottomup traversalPApply a transformation in a bottomup traversal. Doesn't freshen bound variables?Only apply the second transformation if the first one succeeds.<Only apply the second transformation if the first one fails..Keep applying a transformation until it fails.<Only traverse downwards when the assertion evaluates to true /Freshen variable references in abstracted terms+The transformation to apply to the subtrees   #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None Split a normalized term into: a list of arguments, a list of let-bindings, and a variable reference that is the body of the let-binding. Returns a String containing the error is the term was not in a normalized form.Converts a Core type to a HWType given a function that translates certain builtin types. Errors if the Core type is not translatable.KConverts a Core type to a HWType within the NetlistMonad; errors on failure:Converts a Core type to a HWType within the NetlistMonad;  on failure@Returns the name and period of the clock corresponding to a typeConverts a Core type to a HWType given a function that translates certain builtin types. Returns a string containing the error message when the Core type is not translatable.RConverts an algebraic Core type (split into a TyCon and its argument) to a HWType./Simple check if a TyCon is recursively defined.nDetermines if a Core type is translatable to a HWType given a function that translates certain builtin types. Determines the bitsize of a type3Determines the bitsize of the constructor of a type(Gives the length of length-indexed types}Gives the HWType corresponding to a term. Returns an error if the term has a Core type that is not translatable to a HWType.2Gives the HWType corresponding to a term. Returns C if the term has a Core type that is not translatable to a HWType.LUniquely rename all the variables and their references in a normalized term\Make a set of IDs unique; also returns a substitution from old ID to new updated unique ID.Append a string to a namePreserve the Netlist * and + when executing a monadic action TyCon cache#Hardcoded Type -> HWType translator TyCon cache9String representation of the Core type for error messages The TyConIts applied argumentsExisting substitutionIDs to make unique!(Unique IDs, update substitution)#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneINLift an action working in the T state to the t1Record if a transformation is succesfully applied"Perform a transformation on a Term,Evaluate a RewriteSession to its inner monad7Notify that a transformation has changed the expression^Identity function that additionally notifies that a transformation has changed the expression>Create a type and kind context out of a transformation contextaCreate a complete type and kind context out of the global binders and the transformation context3Make a new binder and variable reference for a termDMake a new binder and variable reference for either a term or a typeCMake a new, unique, identifier and corresponding variable reference@Inline the binders in a let-binding that have a certain propertyRDetermine whether a binder is a join-point created for a complex case expression.lA join-point is when a local function only occurs in tail-call positions, and when it does, more than once.GCount the number of (only) tail calls of a function in an expression. B indicates that the function was used in a non-tail call position.Substitute the RHS of the first set of Let-binders for references to the first set of Let-binders in: the second set of Let-binders and the additional termCalculate the localb free variable of an expression: the free variables that are not bound in the global environment.Create a global function for a Let-binding and return a Let-binding where the RHS is a reference to the new global function applied to the free variables of the original RHS,Make a global function for a name-term tuple+Add a function to the set of global binders@Create a new name out of the given name, but with another unique=Test whether a term is a variable reference to a local binder5Determine if a term cannot be represented in hardware5Determine if a type cannot be represented in hardware1Is the Context a Lambda/Term-abstraction context?+Make a binder that should not be referencedNMake a case-decomposition that extracts a field out of a (Sum-of-)Product type)Specialise an application on its argument)Specialise an application on its argument=Create binders and variable references for free variables in specArg Name of the transformationTransformation to be appliedName of the transformationTransformation to performTerm to transform TyCon cacheName of the new binder Term to bind TyCon cacheName of the new binderType or Term to bindName of the identifier Property test. of the local binder'Expression in which the binder is boundFunction to checkExpression to check it inLet-binders to substitute*Let-binders where substitution takes place)Expression where substitution takes place Property testTest whether to lift or inline True: inline False: liftName of the functionTerm bound to the function6Name with a proper unique and the type of the function#Name of the caller of this function TyCon cacheSubject of the case-composition"Lens into previous specialisations$Lens into the specialisation history"Lens into the specialisation limit"Lens into previous specialisations Lens into specialisation history"Lens into the specialisation limit Original term@Function part of the term, split into root and applied argumentsArgument to specialize on   #(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneUADetermine if a function is already inlined in the context of the  NetlistMonad(Specialize under the Normalization MonadDetermine if a term is closed)Determine if a term represents a constant=Create a call graph for a set of global binders, given a rootIDetermine the sets of recursive components given the edges of a callgraph Function we want to inline1Function in which we want to perform the inliningFunction we want to inline1Function in which we want to perform the inlining.List of functions that should not be inspectedGlobal bindersRoot of the call graph "(calling function,[called function)]Original BindersDependency GraphRecursive blockLambda-dropped BindersDependency GraphRecursive blockRecursive block dominatorOriginal BindersRecursive block dominatorRecursive block dominator rootBlock sank binder   #(C) 2015-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None -/DF  Test if a 4 collected from an expression indicates that application of a global binder is disjoint: occur in separate branches of a case-expression.57Test if all elements in a list are equal to each other.Collect 4s for (potentially) disjoint applications of globals out of an expression. Also substitute truly disjoint applications of globals by a reference to a lifted out application.6Collect 4s for (potentially) disjoint applications of globals out of a list of application arguments. Also substitute truly disjoint applications of globals by a reference to a lifted out application.7Collect 4s for (potentially) disjoint applications of globals out of a list of alternatives. Also substitute truly disjoint applications of globals by a reference to a lifted out application.8Collect 4s for (potentially) disjoint applications of globals out of a list of let-bindings. Also substitute truly disjoint applications of globals by a reference to a lifted out application.Given a case-tree corresponding to a disjoint interesting "term-in-a- function-position", return a let-expression: where the let-binding holds a case-expression selecting between the uncommon arguments of the case-tree, and the body is an application of the term applied to the common arguments of the case tree, and projections of let-binding corresponding to the uncommon argument positions.9{Create a single selector for all the representable uncommon arguments by selecting between tuples. This selector is only (:j) created when the number of representable uncommmon arguments is larger than one, otherwise it is not ().It also returns:<For all the non-representable uncommon arguments: a selectorFor all the representable uncommon arguments: a projection out of the tuple created by the larger selector. If this larger selector does not exist, a single selector is created for the single representable uncommon argument.;aCreate a list of arguments given a map of positions to common arguments, and a list of arguments<WCreate a case-expression that selects between the uncommon arguments given a case-tree=_Determine if a term in a function position is interesting to lift out of of a case-expression.]This holds for all global functions, and certain primitives. Currently those primitives are:$All non-power-of-two multiplications<All division-like operations with a non-power-of-two divisor4>?@A5SSubstitution of (applications of) a global binder by a reference to a lifted term.#List of already seen global bindersThe expression6SSubstitution of (applications of) a global binder by a reference to a lifted term.#List of already seen global bindersThe list of arguments7SSubstitution of (applications of) a global binder by a reference to a lifted term.#List of already seen global bindersThe subject termThe list of alternatives8SSubstitution of (applications of) a global binder by a reference to a lifted term.#List of already seen global bindersThe list let-bindingsCurrent free variables.5Case-tree of arguments belonging to the applied term.9Types of the argumentsB;Current position$map from position to common argument$(projections for) uncommon arguments<Type of the alternatives"DataCon to pack multiple argumentsTypes of the argumentsCaseTree of arguments=in scope EvaluatorTerm in function position Arguments4>?@A56789B;<=#(C) 2015-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None Replace an application of the CLaSH.Sized.Vector.zipWith) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.zipWithReplace an application of the CLaSH.Sized.Vector.map) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.mapReplace an application of the CLaSH.Sized.Vector.imap) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.imapReplace an application of the CLaSH.Sized.Vector.traverse#) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.traverse#Create the traversable vectore.g. for a length '2' input vector, we get *(:>) <$> x0 <*> ((:>) <$> x1 <*> pure Nil)Replace an application of the CLaSH.Sized.Vector.foldr) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.foldrReplace an application of the CLaSH.Sized.Vector.fold) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.foldReplace an application of the CLaSH.Sized.Vector.dfold) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.dfoldReplace an application of the CLaSH.Sized.Vector.head) primitive on vectors of a known length n4, by a projection of the first element of a vector.Replace an application of the CLaSH.Sized.Vector.tail) primitive on vectors of a known length n+, by a projection of the tail of a vector.Replace an application of the CLaSH.Sized.Vector.(++)) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.(++)Replace an application of the CLaSH.Sized.Vector.unconcat) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.unconcatReplace an application of the CLaSH.Sized.Vector.transpose) primitive on vectors of a known length n3, by the fully unrolled recursive "definition" of CLaSH.Sized.Vector.transposeLength of the vector(s)Type of the lhs of the functionType of the rhs of the function"Type of the result of the functionThe zipWith'd functionsThe 1st vector argumentThe 2nd vector argumentLength of the vectorArgument type of the functionResult type of the functionThe map'd functionThe map'd over vectorLength of the vectorArgument type of the functionResult type of the functionThe imap'd functionThe imap'd over vectorLength of the vector#Element type of the argument vectorThe type of the applicative!Element type of the result vectorThe  Applicative dictionaryThe function to traverse withThe argument vector Vec tconNil conCons con term termC termb tyLength of the vectorElements of the vectorLength of the vector#Element type of the argument vectorType of the starting elementThe function to fold withThe starting valueThe argument vectorLength of the vector#Element type of the argument vectorThe function to fold withThe argument vectorLength of the vector#Element type of the argument vectorFunction to fold withStarting valueThe vector to foldLength of the vectorElement type of the vectorThe argument vectorLength of the vectorElement type of the vectorThe argument vectorLength of the LHS argLenght of the RHS argElement type of the vectorsThe LHS argumentThe RHS argumentLength of the result vector+Length of the elements of the result vector Element typeArgument vectorLength of the result vector+Length of the elements of the result vector Element typeArgument vector    #(C) 2015-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneInitial state for state monad&Location for the primitive definitionsmName of backend, used for directory to put output files in. Should be | constant function / ignore argument."File extension for target langauge!Get the set of types out of state$Generate HDL for a Netlist componentHGenerate a HDL package containing type definitions for the given HWTypes-Convert a Netlist HWType to a target HDL type<Convert a Netlist HWType to an HDL error value for that type9Convert a Netlist HWType to the root of a target HDL typeHCreate a signal declaration from an identifier (Text) and Netlist HWType*Create a generative block statement marker4Turn a Netlist Declaration to a HDL concurrent block/Turn a Netlist expression into a HDL expressionBit-width of IntWordIntegerConvert to a bit-vectorConvert from a bit-vector'Synthesis tool we're generating HDL for  mkBasicId! setModName" setSrcSpan# getSrcSpan  !"#$  !"#$$  !"#  !"#$#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None 4U%!Determine if the number of normalliteralqfunction inputs of a blackbox context at least matches the number of argument that is expected by the template.'uUpdate all the symbol references in a template, and increment the symbol counter for every newly encountered symbol.,*Get the name of the clock of an identifier-XRender a blackbox given a certain context. Returns a filled out template and a list of hidden9 inputs that must be added to the encompassing component.. Render a single template element1Fill out the template corresponding to an output/input assignment of a component instantiation, and turn it into a single identifier so it can be used for a new blackbox context.3pGive a context and a tagged hole (of a template), returns part of the context that matches the tag of the hole.%Blackbox to verifyTemplate to check against&'()*+,-Blackbox template Context used to fill in the hole./0123456%&'()*+,-./0123456%&'()*+,-./0123456%&'()*+,-./0123456#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneF72Generate the context for a BlackBox instantiation.;Create an template instantiation text and a partial blackbox content for an argument term, given that the term is a function. Errors if the term is not a function<>Instantiate symbols references with a new symbol and increment symbol counter instantiateSym :: BlackBoxTemplate -> NetlistMonad BlackBoxTemplate instantiateSym l = do i <- Lens.use varCount ids <- Lens.use seenIds let (l',(ids',i')) = setSym ids i l varCount .= i' seenIds .= ids' return l'75Identifier binding the primitive/blackbox application/Arguments of the primitive/blackbox application89LHS of the original let-binder:&Put BlackBox expression in parenthesis(Treat BlackBox expression as declarationId to assign the result to;BIdentifier binding the encompassing primitive/blackbox applicationThe function argument term<=789:;<=789:;<=789:;<=#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneF UGenerate an expression for a DataCon application occurring on the RHS of a let-binder FGenerate an expression for a term occurring on the RHS of a let-binder 3Generate a component for a given function (caching)>EGenerate a hierarchical netlist out of a set of global binders with  topEntity at the top.?0Run a NetlistMonad action in a given environmentA)Generate a component for a given functionC0Generate a list of Declarations for a let-binderDXGenerate a list of Declarations for a let-binder where the RHS is a function application  #HWType of the LHS of the let-binderId to assign the result toApplied DataConDataCon Arguments@Returned expression and a list of generate BlackBox declarations (Treat BlackBox expression as declarationId to assign the result to!Type of the LHS of the let-binder Term to convert to an expression@Returned expression and a list of generate BlackBox declarations Name of the function$Starting value of the unique counter> Global bindersPrimitive definitions TyCon cache#Hardcoded Type -> HWType translator Symbol count"Name of the module containing the  topEntitySet of collected data-filesIntWordInteger bit-widthvalid identifiers Seen components  Name of the  topEntity? Global bindersPrimitive Definitions TyCon cache"Hardcode Type -> HWType translator"Name of the module containing the  topEntitySet of collected data-filesIntWordInteger bit-widthvalid identifiersSeen components  Action to run@AName of the functionCorresponding term$Starting value of the unique counterBCLHS of the let-binderRHS of the let-binderDLHS of the let-binderName of the applied functionFunction argumentsE    >?@ABCDE >?@ ABCDE     >?@ABCDE #(C) 2015-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneF FICreate a wrapper around a component, potentially initiating clock sourcesG(Create extra input ports for the wrapperH)Create extra output ports for the wrapperIGenerate input port mappingsJ$Create a Vector chain for a list of &sKGenerate output port mappingsLCreate clock generatorsNCreate a single clock generatorPCreate a single clock pathQGenerate resetsRYGenerate a reset synchroniser that synchronously de-asserts an asynchronous reset signalSThe  NetListMonad is a transformer stack with D at the bottom. So we must use E.FTopEntity specifications"Name of the module containing the  topEntityIntWordInteger bit-widthEntity to wrapGHIJKLMNOPQRSFGHIJKLMNOPQRSFGHIJKLMNOPQRSFGHIJKLMNOPQRS!#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>None U"Specialize functions on their typeV8Specialize functions on their non-representable argumentW@Lift the let-bindings out of the subject of a Case-decompositionXVMove a Case-decomposition from the subject of a Case-decomposition to the alternativesY\Inline function with a non-representable result if it's the subject of a Case-decompositionZSpecialize a Case-decomposition (replace by the RHS of an alternative) if the subject is (an application of) a DataCon; or if there is only a single alternative that doesn't reference variables bound by the pattern.[lBring an application of a DataCon or Primitive in ANF, when the argument is is considered non-representable\kEnsure that top-level lambda's eventually bind a let-expression of which the body is a variable-reference.]Remove unused let-bindings_UInline let-bindings when the RHS is either a local variable reference or is constant`Inline nullary/closed functionsaInline small functionsb4Specialise functions on arguments which are constantc7Propagate arguments of application inwards; except for r' where the argument becomes let-bound.d3Flatten ridiculous case-statements generated by GHC+For case-statements in haskell of the form: Rf :: Unsigned 4 -> Unsigned 4 f x = case x of 0 -> 3 1 -> 2 2 -> 1 3 -> 0 #GHC generates Core that looks like: f = (x :: Unsigned 4) -> case x == fromInteger 3 of False -> case x == fromInteger 2 of False -> case x == fromInteger 1 of False -> case x == fromInteger 0 of False -> error "incomplete case" True -> fromInteger 3 True -> fromInteger 2 True -> fromInteger 1 True -> fromInteger 0 ]Which would result in a priority decoder circuit where a normal decoder circuit was desired.;This transformation transforms the above Core to the saner: f = (x :: Unsigned 4) -> case x of _ -> error "incomplete case" 0 -> fromInteger 3 1 -> fromInteger 2 2 -> fromInteger 1 3 -> fromInteger 0 elTurn an expression into a modified ANF-form. As opposed to standard ANF, constants do not become let-bound.f9Eta-expand top-level lambda's (DON'T use in a traversal!)gTurn a normalized recursive function, where the recursive calls only pass along the unchanged original arguments, into let-recursive function. This means that all recursive calls are replaced by the same variable reference as found in the body of the top-level let-expression.h+Inline a function with functional argumentsiDSimplified CSE, only works on let-bindings, works from top to bottomkReplace primitives by their "definition" if they would lead to let-bindings with a non-representable type when a function is in ANF. This happens for example when CLaSH.Size.Vector.map consumes or produces a vector of non-representable elements.Basically what this transformation does is replace a primitive the completely unrolled recursive definition that it represents. e.g. 8zipWith ($) (xs :: Vec 2 (Int -> Int)) (ys :: Vec 2 Int)is replaced by: let (x0 :: (Int -> Int)) = case xs of (:>) _ x xr -> x (xr0 :: Vec 1 (Int -> Int)) = case xs of (:>) _ x xr -> xr (x1 :: (Int -> Int)( = case xr0 of (:>) _ x xr -> x (y0 :: Int) = case ys of (:>) _ y yr -> y (yr0 :: Vec 1 Int) = case ys of (:>) _ y yr -> xr (y1 :: Int = case yr0 of (:>) _ y yr -> y in (($) x0 y0 :> ($) x1 y1 :> Nil)3Currently, it only handles the following functions: CLaSH.Sized.Vector.mapCLaSH.Sized.Vector.zipWithCLaSH.Sized.Vector.traverse#CLaSH.Sized.Vector.foldrCLaSH.Sized.Vector.foldCLaSH.Sized.Vector.dfoldCLaSH.Sized.Vector.(++)CLaSH.Sized.Vector.headCLaSH.Sized.Vector.tailCLaSH.Sized.Vector.unconcatCLaSH.Sized.Vector.transposeCLaSH.Sized.Vector.replicatelaThis transformation lifts applications of global binders out of alternatives of case-statements.e.g. It converts: /case x of A -> f 3 y B -> f x x C -> h x into: let f_arg0 = case x of {A -> 3; B -> x} f_arg1 = case x of {A -> y; B -> x} f_out = f f_arg0 f_arg1 in case x of A -> f_out B -> f_out C -> h x !FTUVWXYZG[\]^_`abcdHIJeKfghiLMjklTUVWXYZ[\]^_`abcdefghijklcWZXYTUVf[_be]\g`haijkdl^!FTUVWXYZG[\]^_`abcdHIJeKfghiLMjkl"#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NonemNormalisation transformationo+Topdown traversal, stops upon first successmnopqmnopqmnopqmnopq##(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>Noneu-Run a NormalizeSession in a given environmentx7Rewrite a term according to the provided transformationy;Check if the call graph (second argument), starting at the topEnity (first argument) is non-recursive. Returns the list of normalized terms if call graph is indeed non-recursive, errors otherwise.z`Perform general "clean up" of the normalized (non-recursive) function hierarchy. This includes:6Inlining functions that simply "wrap" another functionrstu  Level of debug messages to print UniqueSupplyGlobal Binders#Hardcoded Type -> HWType translator TyCon cacheTuple TyCon cache%Hardcoded evaluator (delta-reduction)Primitive Definitions=Map telling whether a components is part of a recursive group NormalizeSession to runvwxTransformation to applyTerm to transformy  topEntityList of normalized bindersz{VisitedGlobal bindersRoot of the call graph|}~rstuvwxyz{|}~uvwxyzrst{|}~ rstuvwxyz{|}~$#(C) 2013-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NonegGenerate a HDL testbench for a component given a set of stimuli and a set of matching expected outputs Primitives Global binders Stimuli Expected output "Name of the module containing the  topEntity Set of collected data-filesComponent to generate TB forNOPQRSNOPQRS%#(C) 2012-2016, University of TwenteBSD2 (see the file LICENSE)-Christiaan Baaij <christiaan.baaij@gmail.com>NoneN7Create a set of target HDL files for a set of functions(Pretty print Components to HDL DocumentsPrepares the directory for writing HDL files. This means creating the dir if it does not exist and removing all existing .hdl files from it.(Writes a HDL file to the given directory Set of functions Primitive / BlackBox Definitions TyCon cacheTuple TyCon cache Hardcoded + ->  translator%Hardcoded evaluator (delta-reduction)-topEntity bndr + (maybe) TopEntity annotationtestInput bndr expectedOutput bndr 5Debug information level for the normalization processBackendList of componentsRemove existing HDL files File extension of the HDL files.T012013456789:;<9=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ ` a b ` c d a e f g h i j k l m n o p qrstuvwxyz{|}~          b A      !"#$%i&'()*+,-./0123456789:;<=>?@ABCDDEFGHI&JJKLMNOPQRSTUVWXYYZ[\]^_`abcdefghijklmnnoKpqrstuvwxyz{|}}~PQ`jkOg      !";#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV W X Y Z [ \ ] ^ _ ` a b c d!e!f!g!h!i!j!k!l!m!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}"~""""##############$%%%%%%&&&&&&&&&&&&&'()((*.////                                          !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^!_!`!a!b!c!d!e!f$g$h$i$j$k$lmKq4fZepoCJMCw2EnpwVmvZCLaSH.Driver.Types CLaSH.UtilCLaSH.Netlist.IdCLaSH.Primitives.TypesCLaSH.Core.TyConCLaSH.Core.TermCLaSH.Primitives.UtilCLaSH.Core.TypeCLaSH.Core.VarCLaSH.Core.DataConCLaSH.Core.TysPrimCLaSH.Core.LiteralCLaSH.Core.SubstCLaSH.Core.FreeVarsCLaSH.Core.PrettyCLaSH.Core.UtilCLaSH.Netlist.BlackBox.TypesCLaSH.Netlist.BlackBox.ParserCLaSH.Netlist.TypesCLaSH.Rewrite.TypesCLaSH.Normalize.TypesCLaSH.Rewrite.CombinatorsCLaSH.Netlist.UtilCLaSH.Rewrite.UtilCLaSH.Normalize.UtilCLaSH.Normalize.DEC#CLaSH.Normalize.PrimitiveReductions CLaSH.Netlist CLaSH.BackendCLaSH.Netlist.BlackBox.UtilCLaSH.Netlist.BlackBoxCLaSH.Driver.TopWrapperCLaSH.Normalize.TransformationsCLaSH.Normalize.StrategyCLaSH.NormalizeCLaSH.Driver.TestbenchGen CLaSH.DriverPaths_clash_lib GHC.Extra Control.Arrowfirstsecond Data.List partition mapAccumLData.Aeson.Extra&Unbound.Generics.LocallyNameless.ExtraghcSrcLoc noSrcSpanSrcSpanlens_4MswxG07GoqHrcPQt7HSypControl.Lens.TH makeLenses mkBasicId'stripDollarPrefixes PrimitiveBlackBoxnametemplateprimTypePrimMap$fFromJSONPrimitive TyConNameTyConTmNameTerm MonadUnique getUniqueMcurLoc makeCached makeCachedT3 makeCachedT3S liftStatefirstMsecondMcombineMtraceIf partitionM mapAccumLMdot ifThenElse<:> indexMaybe indexNote splitAtListclashLibVersionclogBase$fMonadUniqueStateTgeneratePrimMapKiNameTyNameKindType mkTyConTyTyVarIdVarvarNamevarKindvarType modifyVarNameDcNameConTagDataConMkDatadcNamedcTagdcType dcUnivTyVars dcExtTyVarsdcArgTysdataConInstArgTys AlgTyConRhs DataTyCondataConsNewTyCondataCon ntEtadRhsAlgTyCon tyConName tyConKind tyConArityalgTcRhsFunTyCon tyConSubst PrimTyConSuperKindTyCon mkKindTyConisTupleTyConLike tyConDataConsliftedTypeKind typeNatKindtypeSymbolKind intPrimTy integerPrimTy charPrimTy stringPrimTy voidPrimTy wordPrimTy int64PrimTy word64PrimTy tysPrimMapLiteralIntegerLiteral IntLiteral WordLiteral Int64Literal Word64Literal StringLiteralRationalLiteral CharLiteral literalTypePatDataPatLitPat DefaultPat LetBindingDataPrimLamTyLamAppTyAppLetrecCasesubstTyssubstTy substKindWith substTyInTm substTysinTmsubstTmsubstTms KindOrTypeLitTyNumTySymTyConstTyArrowTypeViewFunTyTyConApp OtherTypeVarTyForAllTyAppTytyView transparentTycoreViewmkFunTy mkTyConAppsplitTyConAppMtypeKindisPolyTy splitFunTy splitFunTyssplitFunForallTysplitCoreFunForallTy isPolyFunTyisPolyFunCoreTyisFunTy applyFunTyapplyTy findFunSubst undefinedTy typeFreeVars termFreeIdstermFreeTyVarsPrettypprpprPrecshowDocDeltaGammatermType collectArgs collectBndrsapplyTypeToArgspatIdsmkTyVarmkId mkAbstractionmkTyLamsmkLamsmkAppsmkTmAppsmkTyAppsisFun isPolyFunisLamisLetisVarisConisPrimidToVarvarToIdtermSizemkVec appendToVec extractElems isSignalType tyNatSizeHdlSynVivadoOtherDeclElementCDOILSymClkRstTypTypMErrTypElemCompName IndexTypeSizeLengthFilePathGenIFAndIW64BVIsLitIsVarVarsGenSymSigDBlackBoxTemplaterunParseSyncExprSyncIdentifierBlackBoxContextContextbbResultbbInputs bbFunctionsBitHUZNumLitBitLitBoolLitVecLit StringLitExpr IdentifierDataTag BlackBoxEModifierIndexedDC VecAppend PortDirectionInOut Declaration AssignmentCondAssignmentInstDecl BlackBoxDNetDeclHWTypeVoidStringBool BitVectorIndexSignedUnsignedVectorSumProductSPClockReset Component componentName hiddenPortsinputsoutputs declarations NetlistState _bindings_varEnv _varCount _components _primitives_typeTranslator_tcCache _curCompNm _dataFiles _intWidth _mkBasicIdFn_seenIds _seenComps_componentNames NetlistMonad runNetlistemptyBBContext$fNFDataDeclaration$fNFDataHWType$fHashableHWType$fNFDataComponentbindingscomponentNames components curCompNm dataFilesintWidth mkBasicIdFn primitives seenCompsseenIdstcCachetypeTranslatorvarCountvarEnv RewriteState_transformCounter _uniqSupply_curFun _nameCounter_extra CoreContextAppFunAppArgTyAppCLetBodyLamBody TyLamBodyCaseAlt CaseScrut RewriteEnv _dbgLevel _tupleTcCache _evaluator DebugLevel DebugNone DebugFinal DebugName DebugAppliedDebugAllcurFunextra nameCountertransformCounter uniqSupplyRewrite Transform RewriteMonadRrunRdbgLevel evaluator tupleTcCache$fMonadFixRewriteMonad#$fMonadReaderRewriteEnvRewriteMonad$fMonadWriterAnyRewriteMonad$fMonadUniqueRewriteMonad$fFreshRewriteMonad$$fMonadStateRewriteStateRewriteMonad$fMonadRewriteMonad$fApplicativeRewriteMonad$fFunctorRewriteMonadCLaSHException CLaSHOptsopt_inlineLimit opt_specLimitopt_inlineBelow opt_dbgLevel opt_cleanhdl opt_intWidth opt_hdlDir opt_hdlSynopt_errorExtra BindingMap$fExceptionCLaSHException$fShowCLaSHExceptionNormalizeState _normalized_specialisationCache_specialisationHistory_specialisationLimit_inlineHistory _inlineLimit _inlineBelow_recursiveComponents NormRewriteNormalizeSessionNormalizeMonad inlineBelow inlineHistory inlineLimit normalizedrecursiveComponentsspecialisationCachespecialisationHistoryspecialisationLimitallR>->>-!->topdownRunsafeTopdownR bottomupRunsafeBottomupR!->>-!repeatRwhenR bottomupWhenR mkBasicIdsplitNormalizedunsafeCoreTypeToHWTypeunsafeCoreTypeToHWTypeMcoreTypeToHWTypeMsynchronizedClkcoreTypeToHWTypemkADT isRecursiveTyrepresentableTypetypeSizeconSize typeLength termHWType termHWTypeMmkUniqueNormalizedmkUniquemkUniqueIdentifier appendToNamepreserveVarEnv dcToLiteral zoomExtraapply runRewriterunRewriteSession setChangedchanged contextEnvclosestLetBinder mkDerivedNamemkEnv mkTmBinderFor mkBinderFor mkInternalVar inlineBinders isJoinPointIn tailCallssubstituteBinders localFreeIdsinlineOrLiftBinders liftBinding mkFunction addGlobalBindcloneVar isLocalVarisUntranslatableisUntranslatableTypeisLambdaBodyCtxmkWildValBindermkSelectorCase specialise specialise'specArgBndrsAndVarsalreadyInlined addNewInlinespecializeNormisClosed isConstantisRecursiveBndr callGraphmkRecursiveComponentslambdaDropPrep lambdaDrop dominator blockSink isDisjointcollectGlobalsmkDisjointGroup reduceZipWith reduceMap reduceImapreduceTraverse mkTravVec reduceFoldr reduceFold reduceDFold reduceHead reduceTail reduceAppendreduceUnconcatreduceTransposereduceReplicatemkDcApplicationmkExpr genComponentBackend initBackendprimDir extension extractTypesgenHDL mkTyPackagehdlTypehdlTypeErrValue hdlTypeMarkhdlSiggenStmtinstexpriwWidthtoBVfromBVhdlSyn setModName setSrcSpan getSrcSpanModNameverifyBlackBoxContextextractLiteralssetSym setCompName setClocksfindAndSetDataFilesrenderFilePath clkSyncIdrenderBlackBox renderElem parseFailsyncIdToSyncExprlineToIdentifier lineToType renderTagprettyBlackBox prettyElem usedArgumentsmkBlackBoxContextprepareBlackBox mkArgument mkPrimitive mkFunInputinstantiateCompNamecollectFilePaths genNetlistrunNetlistMonadgenNames genComponentTgenComponentNamemkDeclarationsmkFunApp toSimpleVar mkTopWrapperextraInextraOutmkInput mkVectorChainmkOutputmkClocks stringToVarmkClock mkClockDecl clockPortsmkResets genSyncResetunsafeRunNetlistinlineOrLiftNonReptypeSpec nonRepSpeccaseLetcaseCase inlineNonRepcaseCon nonRepANFtopLetdeadCoderemoveUnusedExprbindConstantVar inlineClosed inlineSmall constantSpecappPropcaseFlatmakeANFetaExpansionTL recToLetRecinlineHO simpleCSE reduceConstreduceNonRepPrimdisjointExpressionConsolidation normalizationconstantPropgation topdownSucR innerMost applyManyCallTreeCLeafCBranchrunNormalization normalize normalize' rewriteExprcheckNonRecursive cleanupGraph mkCallTree stripArgs flattenNodeflattenCallTreecallTreeToList genTestBench generateHDLparsePrimitive createHDL prepareDirwriteHDL copyDataFilescatchIOversionbindirlibdirdatadir libexecdir sysconfdir getBinDir getLibDir getDataDir getLibexecDir getSysconfDirgetDataFileName EncodedString UserStringzEncode encodeDigitChencodeCh unencodedChar maybeTuple countCommas$fNFDataSrcSpanghc-prim GHC.TypesTruebaseGHC.BaseNothing<*>pure Applicative Data.Functor<$> Control.Monad<=<>=>*** Data.FunctionondecodeAndReport $fSubstbText $fAlphaText$fHashableName $fSubstbRatio$fSubstTypeVar$fSubstTermVar $fAlphaVar$fSubstaDataCon$fAlphaDataCon $fOrdDataCon $fEqDataCon $fShowDataCon $fAlphaTyCon $fOrdTyCon $fEqTyCon $fShowTyContySuperKindTyConNameliftedTypeKindTyConNametypeNatKindTyConNametypeSymbolKindTyConName tySuperKindtcliftedTypeKindtc typeNatKindtctypeSymbolKindtc intPrimTc integerPrimTc charPrimTc stringPrimTc voidPrimTc wordPrimTc int64PrimTc word64PrimTc tySuperKindintPrimTyConNameintegerPrimTyConNamestringPrimTyConNamecharPrimTyConNamevoidPrimTyConNamewordPrimTyConNameint64PrimTyConNameword64PrimTyConName liftedPrimTC$fSubstaLiteral$fAlphaLiteral$fSubstTypeTerm$fSubstTermTerm$fSubstTermPat$fSubstTypePat $fAlphaTerm $fOrdTerm$fEqTermnewTyConInstRhs isSuperKind splitTyAppM kindFunResult funSubstsfunSubst $fOrdType$fEqType$fSubstTypeType$fSubstTermType$fSubstaConstTy $fSubstaLitTy $fAlphaTypeTypePrecTopPrecFunPrec TyConPrec BindingSite LambdaBindCaseBindLetBindnoPrecopPrecappPrec prettyParenpprTopLevelBndrdcolonperiodrarrow pprPrecLam pprPrecTyLam pprPrecApp pprPrecTyApp pprPrecLetrec pprPrecCase pprPrecAltpprBndr maybeParenpprType pprParendTypeppr_type pprForAllType pprSigmaType pprForAll pprTvBndrpprKindpprTcApppprTypeNameApp pprInfixApp pprPrefixApp pprPrefixVar pprInfixVar pprArrowChain isSymNameisLexSym isLexConSym isLexVarSym startsConSym startsVarSym isSymbolASCII $fPrettyPat$fPrettyLiteral$fPrettyDataCon $fPrettyVar $fPrettyTerm $fPrettyLitTy $fPrettyTyCon $fPrettyVar0 $fPrettyType $fPretty(,) $fPretty[] $fPrettyName pBlackBoxDpElementpTextpTagDpDeclpOutputpInputpTagE pBracketspTokenWS pBlackBoxEpElemEpSigDParserunbou_DGmPUJnpktdKwKXvNkNiYw&Unbound.Generics.LocallyNameless.FreshFreshCaseTreeallEqualcollectGlobalsArgscollectGlobalsAltscollectGlobalsLbsdisJointSelProjJustmkDJArgsgenCaseinterestingToLiftLeafLBBranch removeEmptyisCommonfmapIOGHC.IOunsafePerformIO NormRewriteW caseOneAlt collectFlatisEq isFromInt collectANFreduceBindersFix reduceBindersgenClockgenReset genFinishgenDone genStimuli genVerifier