github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 02:14:20 +03:00
Code Issues Projects Releases Wiki Activity

Don't construct new scopes for every local assignment

Browse Source 
Only construct a new scope for a local assignment if its rhs has an associated scope.
This commit is contained in:
joshvera 2018-09-17 13:29:50 -04:00
parent 659c51305f
commit 82b6b7c52e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Syntax/Statement.hs
View File

@ -146,9 +146,11 @@ instance Evaluatable Assignment where
case declaredName (subterm assignmentValue) of case declaredName (subterm assignmentValue) of
Just rhsName -> do Just rhsName -> do
assocScope <- associatedScope (Declaration rhsName) assocScope <- associatedScope (Declaration rhsName)
let edges = maybe mempty (Map.singleton I . pure) assocScope case assocScope of
objectScope <- newScope edges Just assocScope' -> do
objectScope <- newScope (Map.singleton I [ assocScope' ])
putDeclarationScope (Declaration name) objectScope putDeclarationScope (Declaration name) objectScope
Nothing -> pure ()
Nothing -> Nothing ->
-- The rhs wasn't assigned to a reference/declaration. -- The rhs wasn't assigned to a reference/declaration.
pure () pure ()