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

Added two new items to CompState, which will help to replace the _sizes suffix

Browse Source
This commit is contained in:
Neil Brown 2009-03-30 15:13:56 +00:00
parent 676bbe34d4
commit b86ffbbf3b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
data/CompState.hs
View File

@ -123,6 +123,10 @@ data CompState = CompState {
csNameCounter :: Int, csNameCounter :: Int,
csNameAttr :: Map String (Set.Set NameAttr), csNameAttr :: Map String (Set.Set NameAttr),
csExternals :: [(String, [A.Formal])], csExternals :: [(String, [A.Formal])],
-- Maps an array variable name to the name of its _sizes array:
csArraySizes :: Map String A.Name,
-- Stores a map of constant sizes arrays declared for that size:
csGlobalSizes :: Map [Int] String,
-- Set by passes -- Set by passes
csTypeContext :: [Maybe A.Type], csTypeContext :: [Maybe A.Type],
@ -169,6 +173,8 @@ emptyState = CompState {
csNameCounter = 0, csNameCounter = 0,
csNameAttr = Map.empty, csNameAttr = Map.empty,
csExternals = [], csExternals = [],
csArraySizes = Map.empty,
csGlobalSizes = Map.empty,
csTypeContext = [], csTypeContext = [],
csNonceCounter = 0, csNonceCounter = 0,