Fix the ReadPackedFile Codegen to go along with the fix for issue #26

iu-parfunc · Jan 3, 2017 · 2efdf00 · 2efdf00
1 parent e4cada0
commit 2efdf00
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/gibbon-compiler/src/Packed/FirstOrder/Passes/Codegen.hs b/gibbon-compiler/src/Packed/FirstOrder/Passes/Codegen.hs
@@ -406,9 +406,8 @@ codegenTail (LetPrimCallT bnds prm rnds body) ty =
                                               Just f  -> [cexp| $string:f |]
                                               Nothing -> [cexp| read_benchfile_param() |] -- Will be set by command line arg.
                                  L1.PackedTy dcon _ = l1ty
-                                 unpackName = mkUnpackerName dcon
-                                 --  FIXME: outV needs to change to PtrTy when the unpackers are fixed.  (Issue #26)
-                                 funcall = LetCallT [(outV,CursorTy),("junk",CursorTy)]
+                                 unpackName = mkUnpackerName dcon                                
+                                 funcall = LetCallT [(outV,PtrTy),("junk",CursorTy)]
                                                     unpackName [VarTriv "ptr"] (AssnValsT [])
                              docall <- codegenTail funcall (codegenTy (ProdTy []))
                              pure $