projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use HscEnv from initial HsToCore transformation when translating tfp to int
[matthijs/master-project/cλash.git]
/
VHDLTools.hs
diff --git
a/VHDLTools.hs
b/VHDLTools.hs
index 1e6e5bc1d09e6a956bb5b53fc7039e2985afb406..a66f92dd4592d181152343909b72393a8d39948f 100644
(file)
--- a/
VHDLTools.hs
+++ b/
VHDLTools.hs
@@
-527,10
+527,11
@@
isReprType ty = do
tfp_to_int :: Type.Type -> TypeSession Int
tfp_to_int ty = do
lens <- getA vsTfpInts
tfp_to_int :: Type.Type -> TypeSession Int
tfp_to_int ty = do
lens <- getA vsTfpInts
+ hscenv <- getA vsHscEnv
let existing_len = Map.lookup (OrdType ty) lens
case existing_len of
Just len -> return len
Nothing -> do
let existing_len = Map.lookup (OrdType ty) lens
case existing_len of
Just len -> return len
Nothing -> do
- let new_len = eval_tfp_int ty
+ let new_len = eval_tfp_int
hscenv
ty
modA vsTfpInts (Map.insert (OrdType ty) (new_len))
return new_len
\ No newline at end of file
modA vsTfpInts (Map.insert (OrdType ty) (new_len))
return new_len
\ No newline at end of file