From 2efdf0023e5efb6013b12e8ec696780040eda69e Mon Sep 17 00:00:00 2001 From: Ryan Newton Date: Tue, 3 Jan 2017 16:07:36 -0500 Subject: [PATCH] Fix the ReadPackedFile Codegen to go along with the fix for issue #26 --- gibbon-compiler/src/Packed/FirstOrder/Passes/Codegen.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/gibbon-compiler/src/Packed/FirstOrder/Passes/Codegen.hs b/gibbon-compiler/src/Packed/FirstOrder/Passes/Codegen.hs index 9ef8ce69b..d146c0417 100644 --- 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 $