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

Made sure to change the abbreviation for VAL array things that are now being assigned to via a loop as initialisation

Browse Source
This commit is contained in:
Neil Brown 2009-02-02 17:34:44 +00:00
parent 88d6136dcf
commit 51acf8abb5
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
transformations/SimplifyExprs.hs
View File

@ -219,6 +219,12 @@ transformConstr = pass "Transform array constructors into initialisation code"
let indexVar = A.Variable m'' indexName let indexVar = A.Variable m'' indexName
tInner <- trivialSubscriptType m t tInner <- trivialSubscriptType m t
-- To avoid confusion in later passes, we must change the abbreviation
-- mode for this thing from ValAbbrev (which it must have been)
-- to Original, since we are now actually declaring it and assigning
-- to it:
modifyName n $ \nd -> nd {A.ndAbbrevMode = A.Original}
return $ declDest $ A.ProcThen m'' return $ declDest $ A.ProcThen m''
(A.Seq m'' $ A.Spec m'' indexVarSpec $ (A.Seq m'' $ A.Spec m'' indexVarSpec $