bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/codegen/utils/SSALambdaLiftingContext.java

   1 package org.simantics.scl.compiler.internal.codegen.utils;\r
   2 \r
   3 import org.simantics.scl.compiler.common.names.Name;\r
   4 import org.simantics.scl.compiler.constants.SCLConstant;\r
   5 import org.simantics.scl.compiler.errors.ErrorLog;\r
   6 import org.simantics.scl.compiler.internal.codegen.ssa.SSAModule;\r
   7 \r
   8 public class SSALambdaLiftingContext {\r
   9     SSAModule module;\r
  10     Name parentName;\r
  11     int count;\r
  12     ErrorLog errorLog;\r
  13     \r
  14     public SSALambdaLiftingContext(SSAModule module, ErrorLog errorLog) {\r
  15         this.module = module;\r
  16         this.errorLog = errorLog;\r
  17     }\r
  18 \r
  19     public void setParentName(Name parentName) {\r
  20         this.parentName = parentName;\r
  21         this.count = 0;\r
  22     }\r
  23     \r
  24     public Name createName() {\r
  25         return Name.create(parentName.module, parentName.name + "$" + (++count));\r
  26     }\r
  27     \r
  28     public void addConstant(SCLConstant constant) {\r
  29         module.put(constant.getName(), constant);        \r
  30     }\r
  31 \r
  32     public void validate() {\r
  33         module.validate();        \r
  34     }\r
  35     \r
  36     public ErrorLog getErrorLog() {\r
  37         return errorLog;\r
  38     }\r
  39 }\r