Cumulative updates

Author: amoeller

src/tip/Tip.scala

@@ -179,11 +179,15 @@ object Tip extends App {
           log.error(s"Failure parsing the program: $file", e)
           sys.exit(1)
         case Success(parsedNode: AProgram) =>
-          // run normalizer
-          log.verb("Normalizing")
-          val programNode = options.normalizer.normalizeProgram(parsedNode)
-          if (options.normalizer != NoNormalizer)
-            Output.output(file, OtherOutput(OutputKindE.normalized), programNode.toString, options.out)
+          val programNode =
+            if (options.normalizer == NoNormalizer) parsedNode
+            else {
+              // run normalizer
+              log.verb("Normalizing")
+              val p = options.normalizer.normalizeProgram(parsedNode)
+              Output.output(file, OtherOutput(OutputKindE.normalized), p.toString, options.out)
+              p
+            }
 
           // run declaration analysis
           // (for information about the use of 'implicit', see [[tip.analysis.TypeAnalysis]])

src/tip/analysis/AndersenAnalysis.scala

@@ -18,7 +18,7 @@ class AndersenAnalysis(program: AProgram)(implicit declData: DeclarationData) ex
     override def toString = id.toString
   }
 
-  val solver = new CubicSolver[Cell, Cell]
+  val solver = new SimpleCubicSolver[Cell, Cell]
 
   import AstOps._
   val cells: Set[Cell] = (program.appearingIds.map(Var): Set[Cell]) union program.appearingAllocs.map(Alloc)

src/tip/analysis/ControlFlowAnalysis.scala

@@ -1,7 +1,7 @@
 package tip.analysis
 
 import tip.ast.{AAssignStmt, AIdentifier, AProgram, AstNode, DepthFirstAstVisitor, _}
-import tip.solvers.CubicSolver
+import tip.solvers.SimpleCubicSolver
 import tip.util.Log
 import tip.ast.AstNodeData.{AstNodeWithDeclaration, DeclarationData}
 
@@ -24,7 +24,7 @@ class ControlFlowAnalysis(program: AProgram)(implicit declData: DeclarationData)
     }
   }
 
-  private val solver = new CubicSolver[AstVariable, Decl]
+  private val solver = new SimpleCubicSolver[AstVariable, Decl]
 
   val allFunctions: Set[AFunDeclaration] = program.funs.toSet
 

src/tip/analysis/CopyConstantPropagationAnalysis.scala

@@ -63,7 +63,7 @@ trait CopyConstantPropagationAnalysisFunctions extends IDEAnalysis[ADeclaration,
               case AAssignStmt(id: AIdentifier, right, _) =>
                 val edges = assign(d, id.declaration, right)
                 d match {
-                  case Left(a) if id != a =>
+                  case Left(a) if id.declaration != a =>
                     edges :+ ((d, IdEdge())) // not at the variable being written to, so add identity edge
                   case _ =>
                     edges

src/tip/analysis/Dependencies.scala

@@ -89,7 +89,7 @@ trait ContextSensitiveForwardDependencies[C <: CallContext] extends Dependencies
     */
   override def outdep(n: (C, CfgNode)): Set[(C, CfgNode)] =
     (n._2 match {
-      case call: CfgCallNode => Set()
+      case _: CfgCallNode => Set()
       case _ => n._2.succ.toSet
     }).map { d =>
       (n._1, d)

src/tip/analysis/SteensgaardAnalysis.scala

@@ -112,7 +112,7 @@ sealed trait StTerm
   */
 case class AllocVariable(alloc: AAlloc) extends StTerm with Var[StTerm] {
 
-  override def toString: String = s"\u27E6alloc{${alloc.loc}}]]"
+  override def toString: String = s"\u27E6alloc{${alloc.loc}}\u27E7"
 }
 
 /**

src/tip/analysis/TypeAnalysis.scala

@@ -2,7 +2,7 @@ package tip.analysis
 
 import tip.ast._
 import tip.solvers._
-import tip.types.{AbsentFieldType, _}
+import tip.types._
 import tip.ast.AstNodeData._
 import tip.util.{Log, TipProgramException}
 import AstOps._

src/tip/ast/AstOps.scala

@@ -131,7 +131,7 @@ object AstOps {
       * Checks whether the subtree of the node contains an 'input' expression.
       */
     def containsInput: Boolean = {
-      var res = false;
+      var res = false
       new DepthFirstAstVisitor[Unit] {
         override def visit(node: AstNode, arg: Unit): Unit =
           node match {
@@ -156,6 +156,15 @@ object AstOps {
             case rec: ARecord =>
               fields ++= rec.fields.map { _.field }
               visitChildren(rec, ())
+            case as: AAssignStmt =>
+              as.left match {
+                case dfw: ADirectFieldWrite =>
+                  fields += dfw.field
+                case ifw: AIndirectFieldWrite =>
+                  fields += ifw.field
+                case _ =>
+              }
+              visitChildren(as, ())
             case _ => visitChildren(node, ())
           }
       }

src/tip/ast/TipSublanguages.scala

@@ -39,7 +39,7 @@ class NoFunctionPointers(implicit declData: DeclarationData) extends TipSublangu
             LanguageRestrictionViolation(s"Indirect call not allowed, $targetFun is not a function", ast.loc)
         }
         args.foreach(visit(_, x))
-      case ACallFuncExpr(targetFun, args, _) =>
+      case ACallFuncExpr(targetFun, _, _) =>
         LanguageRestrictionViolation(s"Indirect call not allowed, $targetFun is not a function", ast.loc)
       case id: AIdentifier =>
         id.declaration match {