From 627babd0cb8c3ff67e01d86fb6a7a3f6438ad343 Mon Sep 17 00:00:00 2001 From: Christiaan Baaij Date: Thu, 4 Mar 2010 13:28:12 +0100 Subject: [PATCH] Process most of jan's comments --- 4tapfir.svg | 995 ++++++++++++++++++++++----------------------- "c\316\273ash.lhs" | 247 ++++++----- mac-nocurry.svg | 299 +++++++------- 3 files changed, 756 insertions(+), 785 deletions(-) diff --git a/4tapfir.svg b/4tapfir.svg index 95a1514..34f4dd2 100644 --- a/4tapfir.svg +++ b/4tapfir.svg @@ -24,8 +24,8 @@ inkscape:pageopacity="0.0" inkscape:pageshadow="2" inkscape:zoom="2.8284271" - inkscape:cx="71.67237" - inkscape:cy="86.702549" + inkscape:cx="53.510834" + inkscape:cy="89.603901" inkscape:document-units="px" inkscape:current-layer="layer1" showgrid="false" @@ -39,62 +39,62 @@ showguides="true" inkscape:guide-bbox="true"> + visible="true" + empspacing="5" + id="grid2818" + type="xygrid" /> + refX="0" + refY="0" + orient="auto" + inkscape:stockid="Arrow1Mend"> + d="M 0,0 5,-5 -12.5,0 5,5 0,0 z" + id="path3732" /> + refX="0" + refY="0" + orient="auto" + inkscape:stockid="Arrow1Send"> + d="M 0,0 5,-5 -12.5,0 5,5 0,0 z" + id="path3738" /> - + + inkscape:vp_y="0 : 1000 : 0" + inkscape:vp_z="1 : 0.5 : 1" + inkscape:persp3d-origin="0.5 : 0.33333333 : 1" + id="perspective3128" /> @@ -109,64 +109,22 @@ + inkscape:groupmode="layer" + inkscape:label="Layer 1"> - - - - - - - - + height="141.31805" + width="172.84" + id="rect7593" + style="fill:#ffffff;fill-opacity:1;stroke:#000000;stroke-width:1;stroke-miterlimit:4;stroke-dasharray:none" /> + transform="matrix(0,1,1,0,-270.49455,260.89951)" + id="g3312"> + id="path3209" /> - - - - - - - - + id="g3324" + transform="matrix(0,1,1,0,-230.49455,260.89951)"> + id="g3326"> + id="g3330"> + + + transform="matrix(0,1,1,0,-194.06005,573.4545)" + id="g3586"> + transform="matrix(0,1,1,0,-190.49455,260.89951)" + id="g3749"> + id="path3757" /> + + transform="matrix(0,1,-1,0,532.64902,760.7595)" /> + id="path3775" /> + + + + + + + - + - - - + style="font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;letter-spacing:normal;word-spacing:normal;text-anchor:start;fill:none;stroke:#000000;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:10.43299961;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0" + ns0:preamble="" + ns0:text="$\\mathbf{+}$\n\n\n\n\n" + word-spacing="normal" + letter-spacing="normal" + font-size-adjust="none" + font-stretch="normal" + font-weight="normal" + font-variant="normal" + font-style="normal" + stroke-miterlimit="10.433" + xml:space="preserve" + transform="matrix(0,1,1,0,-114.06005,573.4545)" + id="g3813"> + + + + + + + + - - - - - - - - - + + + + - - - - - - - - + id="g3743" + transform="matrix(1.047619,0,0,1,34.846406,3.21)"> + + + - - - - - - - - + transform="matrix(1.047619,0,0,1,74.746406,3.21)" + id="g3783"> + + + - - - - - - - - + id="g3336" + transform="matrix(1.047619,0,0,1,8.346406,36.61)"> + + + - - - - - + id="g6702" + transform="matrix(1,0,0,-1,244.06996,1384.6445)" + xml:space="preserve" + stroke-miterlimit="10.433" + font-style="normal" + font-variant="normal" + font-weight="normal" + font-stretch="normal" + font-size-adjust="none" + letter-spacing="normal" + word-spacing="normal" + ns0:text="$h_{1}$\n\n\n\n\n\n\n\n\n\n\n" + ns0:preamble="" + style="font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;letter-spacing:normal;word-spacing:normal;text-anchor:start;fill:none;stroke:#000000;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:10.43299961;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0"> - + + + + - - - - - + style="font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;letter-spacing:normal;word-spacing:normal;text-anchor:start;fill:none;stroke:#000000;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:10.43299961;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0" + ns0:preamble="" + ns0:text="$h_{2}$\n\n\n\n\n\n\n\n\n\n\n" + word-spacing="normal" + letter-spacing="normal" + font-size-adjust="none" + font-stretch="normal" + font-weight="normal" + font-variant="normal" + font-style="normal" + stroke-miterlimit="10.433" + xml:space="preserve" + transform="matrix(1,0,0,-1,283.95996,1384.7145)" + id="g7057"> - + + + + - - - - - + id="g7412" + transform="matrix(1,0,0,-1,323.82496,1384.6445)" + xml:space="preserve" + stroke-miterlimit="10.433" + font-style="normal" + font-variant="normal" + font-weight="normal" + font-stretch="normal" + font-size-adjust="none" + letter-spacing="normal" + word-spacing="normal" + ns0:text="$h_{3}$\n\n\n\n\n\n\n\n\n\n\n" + ns0:preamble="" + style="font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;letter-spacing:normal;word-spacing:normal;text-anchor:start;fill:none;stroke:#000000;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:10.43299961;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0"> - - + + + d="m 227.36,661.19 0.02,0 0.02,0 0.02,0 0.02,0 0.02,0 0.01,0 0.02,-0.01 0.02,0 0.01,0 0.01,0 0.02,-0.01 0.01,0 0.01,-0.01 0.01,0 0.01,-0.01 0.01,-0.01 0.01,0 0,-0.01 0.01,-0.02 0,0 0.01,-0.01 0,0 0,-0.01 0,-0.01 0.01,-0.01 0,0 0,-0.01 0,-0.01 0,-0.01 0.01,-0.01 0,-0.01 0,-0.01 0,-0.01 0,-0.01 0,-0.01 0,-0.01 0,-0.02 0,-0.01 0.01,-0.01 0,-0.02 0,-0.01 0,-0.01 0,-0.02 0,-0.01 0,-0.02 v -3.14 h -0.69 v -0.47 c 0.32,0.01 0.8,0.03 1.23,0.03 0.42,0 0.88,-0.02 1.22,-0.03 v 0.47 h -0.69 v 4.06 l -1.75,-0.06 c -0.01,-0.01 -0.01,-0.02 -0.01,-0.04 h -1.46 v 0.97 c 0,0.84 0.67,1.22 1.59,1.22 0.29,0 0.5,-0.05 0.73,-0.18 -0.17,-0.06 -0.44,-0.23 -0.44,-0.63 0,-0.39 0.29,-0.65 0.65,-0.65 0.36,0 0.65,0.25 0.65,0.66 0,0.52 -0.44,1.16 -1.53,1.16 -1.24,0 -2.67,-0.39 -2.67,-1.56 v -0.99 h -0.75 v -0.47 h 0.75 v -3.49 h -0.69 v -0.47 c 0.32,0.01 0.8,0.03 1.23,0.03 0.43,0 0.88,-0.02 1.22,-0.03 v 0.47 h -0.69 v 3.49 z" + id="path8086" /> + + + + + + + + + + + + + + + + transform="matrix(1,0,0,-1,305.85996,1349.9895)" + id="g3594"> - - - - + + + diff --git "a/c\316\273ash.lhs" "b/c\316\273ash.lhs" index e04ef37..cee9045 100644 --- "a/c\316\273ash.lhs" +++ "b/c\316\273ash.lhs" @@ -448,7 +448,6 @@ c.p.r.baaij@@utwente.nl, matthijs@@stdin.nl, j.kuper@@utwente.nl} % make the title area \maketitle - \begin{abstract} %\boldmath \CLaSH\ is a functional hardware description language that borrows both its @@ -459,7 +458,7 @@ he could in the traditional hardware description languages. Circuit descriptions can be translated to synthesizable VHDL using the prototype \CLaSH\ compiler. As the circuit descriptions, simulation code, and -test input are plain Haskell, complete simulations can be compiled to an +test input are also valid Haskell, complete simulations can be compiled to an executable binary by a Haskell compiler allowing high-speed simulation and analysis. @@ -490,7 +489,6 @@ machine. % creates the second title. It will be ignored for other modes. \IEEEpeerreviewmaketitle - \section{Introduction} Hardware description languages have allowed the productivity of hardware engineers to keep pace with the development of chip technology. Standard @@ -506,7 +504,7 @@ descriptions started in the early 1980s \cite{Cardelli1981, muFP,DAISY,FHDL}, a time which also saw the birth of the currently popular hardware description languages such as \VHDL. Functional languages are especially suited to describe hardware because combinational circuits can be directly modeled -as mathematical functions and that functional languages are very good at +as mathematical functions. Furthermore, functional languages are very good at describing and composing mathematical functions. In an attempt to decrease the amount of work involved in creating all the @@ -526,8 +524,8 @@ compiled by the same Haskell compiler as the circuit description itself. The approach taken in this research is not to make another domain specific language embedded in Haskell, but to use (a subset of) the Haskell language -itself for the purpose of describing hardware. By taking this approach, we can -capture certain language constructs, such as Haskell's choice elements +\emph{itself} for the purpose of describing hardware. By taking this approach, +we can capture certain language constructs, such as Haskell's choice elements (if-expressions, case-expressions, pattern matching, etc.), which are not available in the functional hardware description languages that are embedded in Haskell as a domain specific language. As far as the authors know, such @@ -538,16 +536,16 @@ for simulation using an optimizing Haskell compiler such as the Glasgow Haskell Compiler (\GHC)~\cite{ghc}. Where descriptions in a conventional hardware description language have an -explicit clock for the purpose state and synchronicity, the clock is implied -in this research. A developer describes the behavior of the hardware between -clock cycles. Many functional hardware description model signals as a stream -of all values over time; state is then modeled as a delay on this stream of -values. The approach taken in this research is to make the current state of a -circuit part of the input of the function and the updated state part of the -output. The current abstraction of state and time limits the descriptions to -synchronous hardware, there however is room within the language to eventually -add a different abstraction mechanism that will allow for the modeling of -asynchronous systems. +explicit clock for the purposes state and synchronicity, in the research +presented in this paper the clock is implied. A developer describes the +behavior of the hardware between clock cycles. Many functional hardware +description model signals as a stream of all values over time; state is then +modeled as a delay on this stream of values. The approach taken in this +research is to make the current state of a circuit part of the input of the +function and the updated state part of the output. The current abstraction of +state and time limits the descriptions to synchronous hardware, there however +is room within the language to eventually add a different abstraction +mechanism that will allow for the modeling of asynchronous systems. Like the standard hardware description languages, descriptions made in a functional hardware description language must eventually be converted into a @@ -567,7 +565,7 @@ circuit~\cite{reductioncircuit} for floating point numbers. \section{Hardware description in Haskell} \subsection{Function application} - The basic syntactic elements of a functional program are functions + Two basic syntactic elements of a functional program are functions and function application. These have a single obvious translation to a netlist format: \begin{inparaenum} @@ -577,23 +575,25 @@ circuit~\cite{reductioncircuit} for floating point numbers. and \item function applications are translated to component instantiations. \end{inparaenum} - The output port can have a structured type (such as a tuple), so having - just a single output port does not pose any limitation. The actual + The result value can have a composite type (such as a tuple), so having + just a single result value does not pose any limitation. The actual arguments of a function application are assigned to signals, which are then mapped to the corresponding input ports of the component. The output port of the function is also mapped to a signal, which is used as the - result of the application itself. - - Since every top level function generates its own component, the - hierarchy of function calls is reflected in the final netlist,% aswell, - creating a hierarchical description of the hardware. The separation in - different components makes it easier for a developer to understand and - possibly hand-optimize the resulting \VHDL\ output of the \CLaSH\ - compiler. - - As an example we can see the netlist of the |mac| function in - \Cref{img:mac-comb}; the |mac| function applies both the |mul| and |add| - function to calculate $a * b + c$: + result of the application itself. Since every top level function generates + its own component, the hierarchy of function calls is reflected in the + final netlist, creating a hierarchical description of the hardware. + % The separation in different components makes it easier for a developer + % to understand and possibly hand-optimize the resulting \VHDL\ output of + % the \CLaSH\ compiler. + + The short example demonstrated below gives an indication of the level of + conciseness that can be achieved with functional hardware description + languages when compared with the more traditional hardware description + languages. The example is a combinational multiply-accumulate circuit that + works for \emph{any} word length (this type of polymorphism will be + further elaborated in \Cref{sec:polymorhpism}). The corresponding netlist + is depicted in \Cref{img:mac-comb}. \begin{code} mac a b c = add (mul a b) c @@ -605,18 +605,21 @@ circuit~\cite{reductioncircuit} for floating point numbers. \label{img:mac-comb} \end{figure} - The result of using a structural input type can be seen in - \cref{img:mac-comb-nocurry} where the |mac| function now uses a single - input tuple for the |a|, |b|, and |c| arguments: + The use of a composite result value is demonstrated in the next example, + where the multiply-accumulate circuit not only returns the accumulation + result, but also the intermediate multiplication result. Its corresponding + netlist can be see in \Cref{img:mac-comb-composite}. \begin{code} - mac (a, b, c) = add (mul a b) c + mac a b c = (z, add z c) + where + z = mul a b \end{code} \begin{figure} \centerline{\includegraphics{mac-nocurry.svg}} - \caption{Combinatorial Multiply-Accumulate (complex input)} - \label{img:mac-comb-nocurry} + \caption{Combinatorial Multiply-Accumulate (composite output)} + \label{img:mac-comb-composite} \end{figure} \subsection{Choice} @@ -644,7 +647,9 @@ circuit~\cite{reductioncircuit} for floating point numbers. \end{code} The naive netlist corresponding to both versions of the example is - depicted in \Cref{img:choice}. + depicted in \Cref{img:choice}. Note that the \hs{pred} variable is only + compared to the \hs{Equal} value, as an inequality immediately implies + that the \hs{pred} variable has a \hs{NotEqual} value. \begin{code} sumif pred a b = case pred of @@ -670,19 +675,19 @@ circuit~\cite{reductioncircuit} for floating point numbers. \label{img:choice} \end{figure} - A user-friendly and also very powerful form of choice is pattern - matching. A function can be defined in multiple clauses, where each clause - corresponds to a pattern. When an argument matches a pattern, the - corresponding clause will be used. Expressions can also contain guards, - where the expression is only executed if the guard evaluates to true, and - continues with the next clause if the guard evaluates to false. Like - \hs{if-then-else} expressions, pattern matching and guards have a - (straightforward) translation to \hs{case} expressions and can as such be - mapped to multiplexers. A third version of the earlier example, using both - pattern matching and guards, can be seen below. The guard is the - expression that follows the vertical bar (\hs{|}) and precedes the - assignment operator (\hs{=}). The \hs{otherwise} guards always evaluate to - \hs{true}. + A user-friendly and also very powerful form of choice that is not found in + the traditional hardware description languages is pattern matching. A + function can be defined in multiple clauses, where each clause corresponds + to a pattern. When an argument matches a pattern, the corresponding clause + will be used. Expressions can also contain guards, where the expression is + only executed if the guard evaluates to true, and continues with the next + clause if the guard evaluates to false. Like \hs{if-then-else} + expressions, pattern matching and guards have a (straightforward) + translation to \hs{case} expressions and can as such be mapped to + multiplexers. A third version of the earlier example, using both pattern + matching and guards, can be seen below. The guard is the expression that + follows the vertical bar (\hs{|}) and precedes the assignment operator + (\hs{=}). The \hs{otherwise} guards always evaluate to \hs{true}. The version using pattern matching and guards corresponds to the same naive netlist representation (\Cref{img:choice}) as the earlier two @@ -769,7 +774,7 @@ circuit~\cite{reductioncircuit} for floating point numbers. has a fixed length. The \hs{Vector} type constructor takes two type arguments: the length of the vector and the type of the elements contained in it. The short-hand notation used for the vector type in - the rest of paper is: \hs{[a|n]}. Where the \hs{a} is the element + the rest of paper is: \hs{[a|n]}, here \hs{a} is the element type, and \hs{n} is the length of the vector. Note that this is a notation used in this paper only, vectors are slightly more verbose in real \CLaSH\ descriptions. @@ -823,9 +828,9 @@ circuit~\cite{reductioncircuit} for floating point numbers. names for existing types, where synonyms are completely interchangeable and type renaming requires explicit conversions. Therefore, these do not need any particular translation, a synonym or renamed type will just use - the same representation as the original type. For algebraic types, we can - make the following distinctions: - + the same representation as the original type. + + For algebraic types, we can make the following distinctions: \begin{xlist} \item[\bf{Single constructor}] Algebraic datatypes with a single constructor with one or more @@ -860,7 +865,7 @@ circuit~\cite{reductioncircuit} for floating point numbers. supported. \end{xlist} - \subsection{Polymorphism} + \subsection{Polymorphism}\label{sec:polymorhpism} A powerful feature of most (functional) programming languages is polymorphism, it allows a function to handle values of different data types in a uniform way. Haskell supports \emph{parametric @@ -924,10 +929,10 @@ circuit~\cite{reductioncircuit} for floating point numbers. consequently there is no way to determine the actual types for the type parameters. - \CLaSH\ does not support user-defined type classes, but does use some - of the standard Haskell type classes for its built-in function, such as: - \hs{Num} for numerical operations, \hs{Eq} for the equality operators, and - \hs{Ord} for the comparison/order operators. + \CLaSH\ does \emph{currently} not support\emph{ user-defined} type + classes, but does use some of the standard Haskell type classes for its + built-in function, such as: \hs{Num} for numerical operations, \hs{Eq} for + the equality operators, and \hs{Ord} for the comparison/order operators. \subsection{Higher-order functions \& values} Another powerful abstraction mechanism in functional languages, is @@ -936,6 +941,7 @@ circuit~\cite{reductioncircuit} for floating point numbers. value and be passed around, even as the argument of another function. The following example should clarify this concept: +%format not = "\mathit{not}" \begin{code} negateVector xs = map not xs \end{code} @@ -970,11 +976,11 @@ circuit~\cite{reductioncircuit} for floating point numbers. expression, that adds one to every element of a vector: \begin{code} - map (+ 1) xs + map (add 1) xs \end{code} - Here, the expression \hs{(+ 1)} is the partial application of the - plus operator to the value \hs{1}, which is again a function that + Here, the expression \hs{(add 1)} is the partial application of the + addition function to the value \hs{1}, which is again a function that adds one to its (next) argument. A lambda expression allows one to introduce an anonymous function in any expression. Consider the following expression, which again adds one to every element of a vector: @@ -1006,8 +1012,7 @@ circuit~\cite{reductioncircuit} for floating point numbers. \begin{inparaenum} \item given the same arguments twice, it should return the same value in both cases, and - \item when the function is called, it should not have observable - side-effects. + \item that the function has no observable side-effects. \end{inparaenum} % This purity property is important for functional languages, since it % enables all kinds of mathematical reasoning that could not be guaranteed @@ -1038,12 +1043,13 @@ circuit~\cite{reductioncircuit} for floating point numbers. \label{img:mac-state} \end{figure} - The \hs{State} keyword indicates which arguments are part of the current - state, and what part of the output is part of the updated state. This - aspect will also be reflected in the type signature of the function. - Abstracting the state of a circuit in this way makes it very explicit: - which variables are part of the state is completely determined by the - type signature. This approach to state is well suited to be used in + Note that the \hs{macS} function returns bot the new state and the value + of the output port. The \hs{State} keyword indicates which arguments are + part of the current state, and what part of the output is part of the + updated state. This aspect will also be reflected in the type signature of + the function. Abstracting the state of a circuit in this way makes it very + explicit: which variables are part of the state is completely determined + by the type signature. This approach to state is well suited to be used in combination with the existing code and language features, such as all the choice elements, as state values are just normal values. We can simulate stateful descriptions using the recursive \hs{run} function: @@ -1061,20 +1067,20 @@ circuit~\cite{reductioncircuit} for floating point numbers. first input value, \hs{i}. The result is the first output value, \hs{o}, and the updated state \hs{s'}. The next iteration of the \hs{run} function is then called with the updated state, \hs{s'}, and the rest of the - inputs, \hs{inps}. It is assumed that there is one input per clock cycle. + inputs, \hs{inps}. For the time being, and in the context of this paper, + It is assumed that there is one input per clock cycle. Also note how the order of the input, output, and state in the \hs{run} function corresponds with the order of the input, output and state of the \hs{macS} function described earlier. - As both the \hs{run} function, the hardware description, and the test - inputs are plain Haskell, the complete simulation can be compiled to an - executable binary by an optimizing Haskell compiler, or executed in an + As the \hs{run} function, the hardware description, and the test + inputs are also valid Haskell, the complete simulation can be compiled to + an executable binary by an optimizing Haskell compiler, or executed in an Haskell interpreter. Both simulation paths are much faster than first translating the description to \VHDL\ and then running a \VHDL\ - simulation, where the executable binary has an additional simulation speed - bonus in case there is a large set of test inputs. + simulation. -\section{\CLaSH\ compiler} +\section{The \CLaSH\ compiler} An important aspect in this research is the creation of the prototype compiler, which allows us to translate descriptions made in the \CLaSH\ language as described in the previous section to synthesizable \VHDL, allowing @@ -1084,9 +1090,7 @@ The Glasgow Haskell Compiler (\GHC) is an open-source Haskell compiler that also provides a high level API to most of its internals. The availability of this high-level API obviated the need to design many of the tedious parts of the prototype compiler, such as the parser, semantic checker, and especially -the type-checker. The parser, semantic checker, and type-checker together form -the front-end of the prototype compiler pipeline, as depicted in -\Cref{img:compilerpipeline}. +the type-checker. These parts together form the front-end of the prototype compiler pipeline, as seen in \Cref{img:compilerpipeline}. \begin{figure} \centerline{\includegraphics{compilerpipeline.svg}} @@ -1094,21 +1098,7 @@ the front-end of the prototype compiler pipeline, as depicted in \label{img:compilerpipeline} \end{figure} -The output of the \GHC\ front-end is the original Haskell description -translated to \emph{Core}~\cite{Sulzmann2007}, which is smaller, typed, -functional language that is relatively easier to process than the larger -Haskell language. A description in \emph{Core} can still contain properties -which have no direct translation to hardware, such as polymorphic types and -function-valued arguments. Such a description needs to be transformed to a -\emph{normal form}, which only contains properties that have a direct -translation. The second stage of the compiler, the \emph{normalization} phase, -exhaustively applies a set of \emph{meaning-preserving} transformations on the -\emph{Core} description until this description is in a \emph{normal form}. -This set of transformations includes transformations typically found in -reduction systems for lambda calculus~\cite{lambdacalculus}, such a -$\beta$-reduction and $\eta$-expansion, but also includes self-defined -transformations that are responsible for the reduction of higher-order -functions to `regular' first-order functions. +The output of the \GHC\ front-end consists of the translation of the original Haskell description in \emph{Core}~\cite{Sulzmann2007}, which is a smaller, typed, functional language. This \emph{Core} language is relatively easy to process compared to the larger Haskell language. A description in \emph{Core} can still contain elements which have no direct translation to hardware, such as polymorphic types and function-valued arguments. Such a description needs to be transformed to a \emph{normal form}, which only contains elements that have a direct translation. The second stage of the compiler, the \emph{normalization} phase, exhaustively applies a set of \emph{meaning-preserving} transformations on the \emph{Core} description until this description is in a \emph{normal form}. This set of transformations includes transformations typically found in reduction systems and lambda calculus~\cite{lambdacalculus}, such as $\beta$-reduction and $\eta$-expansion. It also includes self-defined transformations that are responsible for the reduction of higher-order functions to `regular' first-order functions. The final step in the compiler pipeline is the translation to a \VHDL\ \emph{netlist}, which is a straightforward process due to resemblance of a @@ -1156,39 +1146,33 @@ vector. This continues until the end of the vector is reached. The result of the \hs{foldl1} function is the result of the last application. It is obvious that the \hs{zipWith (*)} function is pairwise multiplication and that the \hs{foldl1 (+)} function is summation. - -Returning to the actual \acro{FIR} filter, we will slightly change the -equation describing it, so as to make the translation to code more obvious and -concise. What we do is change the definition of the vector of input samples -and delay the computation by one sample. Instead of having the input sample -received at time $t$ stored in $x_t$, $x_0$ now always stores the newest -sample, and $x_i$ stores the $ith$ previous sample. This changes the equation -to the following (note that this is completely equivalent to the original -equation, just with a different definition of $x$ that will better suit the -transformation to code): - -\begin{equation} -y_t = \sum\nolimits_{i = 0}^{n - 1} {x_i \cdot h_i } -\end{equation} - +% Returning to the actual \acro{FIR} filter, we will slightly change the +% equation describing it, so as to make the translation to code more obvious and +% concise. What we do is change the definition of the vector of input samples +% and delay the computation by one sample. Instead of having the input sample +% received at time $t$ stored in $x_t$, $x_0$ now always stores the newest +% sample, and $x_i$ stores the $ith$ previous sample. This changes the equation +% to the following (note that this is completely equivalent to the original +% equation, just with a different definition of $x$ that will better suit the +% transformation to code): +% +% \begin{equation} +% y_t = \sum\nolimits_{i = 0}^{n - 1} {x_i \cdot h_i } +% \end{equation} The complete definition of the \acro{FIR} filter in code then becomes: \begin{code} -fir (State (xs,hs)) x = (State (x >> xs,hs), xs *+* hs) +fir (State (xs,hs)) x = + (State (x >> xs,hs), (x +> xs) *+* hs) \end{code} -Where the vector \hs{hs} contains the \acro{FIR} coefficients and the vector -\hs{xs} contains the previous input sample in front and older samples behind. -The code for the shift (\hs{>>}) operator, that adds the new input sample -(\hs{x}) to the list of previous input samples (\hs{xs}) and removes the -oldest sample, is shown below: +Where the vector \hs{xs} contains the previous input samples, the vector \hs{hs} contains the \acro{FIR} coefficients, and \hs{x} is the current input sample. The concatenate operator (\hs{+>}) creates a new vector by placing the current sample (\hs{x}) in front of the previous samples vector (\hs{xs}). The code for the shift (\hs{>>}) operator, that adds the new input sample (\hs{x}) to the list of previous input samples (\hs{xs}) and removes the oldest sample, is shown below: \begin{code} x >> xs = x +> init xs \end{code} -The \hs{init} function returns all but the last element of a vector, and the -concatenate operator (\hs{+>}) adds a new element to the front of a vector. +Where the \hs{init} function returns all but the last element of a vector. The resulting netlist of a 4-taps \acro{FIR} filter, created by specializing the vectors of the \acro{FIR} code to a length of 4, is depicted in \Cref{img:4tapfir}. @@ -1199,7 +1183,7 @@ the vectors of the \acro{FIR} code to a length of 4, is depicted in \label{img:4tapfir} \end{figure} -\subsection{Higher order CPU} +\subsection{Higher-order CPU} The following simple CPU is an example of user-defined higher order functions and pattern matching. The CPU consists of four function units, of which three have a fixed function and one can perform some less @@ -1305,12 +1289,9 @@ features of \acro{HML} could be translated to hardware. The \CLaSH\ compiler on the other hand can correctly translate all of the language constructs mentioned in this paper to a netlist format. -Like this work, many functional hardware description languages have some sort -of foundation in the functional programming language Haskell. -Hawk~\cite{Hawk1} uses Haskell to describe system-level executable +Like the work presented in this paper, many functional hardware description languages have some sort of foundation in the functional programming language Haskell. Hawk~\cite{Hawk1} uses Haskell to describe system-level executable specifications used to model the behavior of superscalar microprocessors. Hawk -specifications can be simulated, but there seems to be no support for -automated circuit synthesis. +specifications can be simulated; to the best knowledge of the authors there is however no support for automated circuit synthesis. The ForSyDe~\cite{ForSyDe2} system uses Haskell to specify abstract system models, which can (manually) be transformed into an implementation model using @@ -1332,17 +1313,23 @@ generators when viewed from a synthesis viewpoint, in that the language elements of Haskell, such as choice, can be used to guide the circuit generation. If a developer wants to insert a choice element inside an actual circuit he will have to explicitly instantiate a multiplexer-like component. - In this respect \CLaSH\ differs from Lava, in that all the choice elements, such as case-statements and pattern matching, are synthesized to choice elements in the eventual circuit. As such, richer control structures can both -be specified and synthesized in \CLaSH\ compared to any of the languages -mentioned in this section. +be specified and synthesized in \CLaSH\ compared to any of the embedded +languages such as Hawk, ForSyDe and Lava. The merits of polymorphic typing, combined with higher-order functions, are now also recognized in the `main-stream' hardware description languages, exemplified by the new \VHDL-2008 standard~\cite{VHDL2008}. \VHDL-2008 support -for generics has been extended to types and subprograms, allowing a developer to describe components with polymorphic ports and function-valued arguments. Note that the types and subprograms still require an explicit generic map, whereas types can be automatically inferred, and function-values can be automatically propagated by the \CLaSH\ compiler. There are also no (generally available) \VHDL\ synthesis tools that currently support the \VHDL-2008 standard, and thus the synthesis of polymorphic types and function-valued arguments. +for generics has been extended to types and subprograms, allowing a developer +to describe components with polymorphic ports and function-valued arguments. +Note that the types and subprograms still require an explicit generic map, +whereas types can be automatically inferred, and function-values can be +automatically propagated by the \CLaSH\ compiler. There are also no (generally +available) \VHDL\ synthesis tools that currently support the \VHDL-2008 +standard, and thus the synthesis of polymorphic types and function-valued +arguments. % Wired~\cite{Wired},, T-Ruby~\cite{T-Ruby}, Hydra~\cite{Hydra}. % @@ -1481,7 +1468,7 @@ earlier mentioned properties do indeed exist. % number - used to balance the columns on the last page % adjust value as needed - may need to be readjusted if % the document is modified later -\IEEEtriggeratref{14} +% \IEEEtriggeratref{14} % The "triggered" command can be changed if desired: %\IEEEtriggercmd{\enlargethispage{-5in}} diff --git a/mac-nocurry.svg b/mac-nocurry.svg index 2b9653b..a0ecc74 100644 --- a/mac-nocurry.svg +++ b/mac-nocurry.svg @@ -10,12 +10,12 @@ xmlns="http://www.w3.org/2000/svg" xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" - width="167.75" - height="62.249371" + width="131.25" + height="68.14473" id="svg2" version="1.1" inkscape:version="0.47 r22583" - sodipodi:docname="mac-nocurry.svg"> + sodipodi:docname="mac.svg"> + + + + + + + + @@ -87,7 +127,7 @@ image/svg+xml - + @@ -95,93 +135,56 @@ inkscape:label="Layer 1" inkscape:groupmode="layer" id="layer1" - transform="translate(-342.5,-556.3198)"> + transform="translate(-379,-556.3654)"> - + d="m 379.5,593.34948 23,0" + id="path2942" + sodipodi:nodetypes="cc" /> + d="m 379.5,614.34948 73,0" + id="path2944" + sodipodi:nodetypes="cc" /> + d="m 484,604.06917 25,0" + id="path2946" + sodipodi:nodetypes="cc" /> + d="m 434.5,583.34948 9,-3.1e-4 0,11.00031 9,0" + id="path4172" + sodipodi:nodetypes="cccc" /> - - + + - - - - - - + transform="matrix(1,0,0,-1,159.94335,1269.7863)" + id="g3915" + style="font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;letter-spacing:normal;word-spacing:normal;text-anchor:start;fill:none;stroke:#000000;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:10.43299961;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0"> + d="m 224.57,660.78 v -3.08 h -0.69 v -0.47 c 0.28,0.01 0.88,0.03 1.26,0.03 0.38,0 0.97,-0.02 1.25,-0.03 v 0.47 h -0.69 v 2.08 c 0,1.09 0.87,1.58 1.49,1.58 0.34,0 0.56,-0.2 0.56,-0.97 v -2.69 h -0.69 v -0.47 c 0.28,0.01 0.88,0.03 1.25,0.03 0.39,0 0.98,-0.02 1.26,-0.03 v 0.47 h -0.69 v 2.08 c 0,1.09 0.87,1.58 1.49,1.58 0.34,0 0.55,-0.2 0.55,-0.97 v -2.69 h -0.68 v -0.47 c 0.28,0.01 0.87,0.03 1.25,0.03 0.39,0 0.98,-0.02 1.26,-0.03 v 0.47 h -0.69 v 2.58 c 0,1.03 -0.51,1.44 -1.53,1.44 -0.91,0 -1.43,-0.5 -1.69,-0.96 -0.2,0.93 -1.11,0.96 -1.49,0.96 -0.87,0 -1.44,-0.45 -1.76,-1.08 v 1.08 l -1.71,-0.08 v -0.47 c 0.62,0 0.69,0 0.69,-0.39 z" + id="path3973" /> + + + d="m 224.57,660.78 v -3.08 h -0.69 v -0.47 c 0.28,0.01 0.88,0.03 1.26,0.03 0.38,0 0.97,-0.02 1.25,-0.03 v 0.47 h -0.69 v 2.08 c 0,1.09 0.87,1.58 1.49,1.58 0.34,0 0.56,-0.2 0.56,-0.97 v -2.69 h -0.69 v -0.47 c 0.28,0.01 0.88,0.03 1.25,0.03 0.39,0 0.98,-0.02 1.26,-0.03 v 0.47 h -0.69 v 2.08 c 0,1.09 0.87,1.58 1.49,1.58 0.34,0 0.55,-0.2 0.55,-0.97 v -2.69 h -0.68 v -0.47 c 0.28,0.01 0.87,0.03 1.25,0.03 0.39,0 0.98,-0.02 1.26,-0.03 v 0.47 h -0.69 v 2.58 c 0,1.03 -0.51,1.44 -1.53,1.44 -0.91,0 -1.43,-0.5 -1.69,-0.96 -0.2,0.93 -1.11,0.96 -1.49,0.96 -0.87,0 -1.44,-0.45 -1.76,-1.08 v 1.08 l -1.71,-0.08 v -0.47 c 0.62,0 0.69,0 0.69,-0.39 z" + id="path4117" /> + d="m 237.02,657.95 v -0.78 l 1.77,0.06 v 0.47 c -0.62,0 -0.69,0 -0.69,0.39 v 3.63 l -1.83,-0.08 v -0.47 c 0.62,0 0.69,0 0.69,-0.39 v -1.9 c 0,-0.82 -0.51,-1.35 -1.23,-1.35 -0.77,0 -0.8,0.25 -0.8,0.79 v 3.4 l -1.82,-0.08 v -0.47 c 0.61,0 0.68,0 0.68,-0.39 v -2.32 c 0,-1.07 0.81,-1.29 1.8,-1.29 0.26,0 0.97,0 1.43,0.78 z" + id="path4119" /> + d="m 241.26,664.15 -1.77,-0.08 v -0.47 c 0.62,0 0.69,0 0.69,-0.39 v -5.51 h -0.69 v -0.47 c 0.32,0.01 0.8,0.03 1.23,0.03 0.43,0 0.88,-0.02 1.22,-0.03 v 0.47 h -0.68 z" + id="path4121" /> - + transform="matrix(1,0,0,-1,212.81168,1238.8703)" + id="g3214"> - - + + + + -- 2.30.2