X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Generate.hs;h=0a9e9b590eab31c3157c3b6c5ac807beabcef163;hb=c154f599b83d1a91e99993666139e01f10033d5c;hp=f55aa3d9e5e029312cb19a1de239d3e226497b98;hpb=fc9e13429a9f75f03ef75b91ca540c08b40083a2;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Generate.hs b/Generate.hs
index f55aa3d..0a9e9b5 100644
--- a/Generate.hs
+++ b/Generate.hs
@@ -490,8 +490,8 @@ genUnconsVectorFuns elemTM vectorTM  =
     -- return res
     copyExpr = AST.ReturnSm (Just $ AST.PrimName $ AST.NSimple resId)
     selSpec = AST.Function (mkVHDLExtId selId) [AST.IfaceVarDec fPar   naturalTM,
-                               AST.IfaceVarDec nPar   naturalTM,
                                AST.IfaceVarDec sPar   naturalTM,
+                               AST.IfaceVarDec nPar   naturalTM,
                                AST.IfaceVarDec vecPar vectorTM ] vectorTM
     -- variable res : fsvec_x (0 to n-1);
     selVar =