]> gerrit.simantics Code Review - simantics/platform.git/blob
9b556ee7a4759e561695d0ca689d37d6c42b86d8
[simantics/platform.git] /
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