suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed the filename munging in the generated copy_ procs for records

Browse Source
This commit is contained in:
Neil Brown 2009-04-08 12:13:07 +00:00
parent d782c91ed0
commit dc64b5e664
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
transformations/SimplifyProcs.hs
View File

@ -109,7 +109,8 @@ flattenAssign = pass "Flatten assignment"
makeCopyProcName :: A.Name -> PassM A.Name makeCopyProcName :: A.Name -> PassM A.Name
makeCopyProcName n = do file <- getCompState >>* csCurrentFile makeCopyProcName n = do file <- getCompState >>* csCurrentFile
return $ n {A.nameName = "copy_" ++ file ++ A.nameName n} let m = Meta (Just file) 0 0
return $ n {A.nameName = "copy_" ++ mungeMeta m ++ A.nameName n}
complexAssign :: Meta -> A.Type -> A.Variable -> Meta -> A.Expression -> PassM A.Process complexAssign :: Meta -> A.Type -> A.Variable -> Meta -> A.Expression -> PassM A.Process
complexAssign m t v m' e complexAssign m t v m' e