summary |
shortlog |
log |
commit | commitdiff |
review |
tree
raw |
patch |
inline | side by side (from parent 1:
3d5ad70)
refs #7402
Change-Id: Ic0a6263df965117eab72f1495dfdafb68135ce9d
SSABlock headBlock = getParent();
SSAFunction thisFunction = headBlock.getParent();
SSABlock headBlock = getParent();
SSAFunction thisFunction = headBlock.getParent();
+ if(thisFunction == function)
+ return;
/*System.out.println("--- INLINING -------------------------------");
System.out.println(thisFunction);
/*System.out.println("--- INLINING -------------------------------");
System.out.println(thisFunction);
import org.simantics.scl.compiler.types.Type;
import org.simantics.scl.compiler.types.Types;
import org.simantics.scl.compiler.types.Type;
import org.simantics.scl.compiler.types.Types;
-public class MemoryLeakTest {
+public class MemoryLeakExperiment {
ModuleRepository moduleRepository;
EnvironmentSpecification environmentSpecification;
ModuleRepository moduleRepository;
EnvironmentSpecification environmentSpecification;
@Test public void Record1() { test(); }
@Test public void Record2() { test(); }
@Test public void RecordShorthand() { test(); }
@Test public void Record1() { test(); }
@Test public void Record2() { test(); }
@Test public void RecordShorthand() { test(); }
+ @Test public void RecursionBug() { test(); }
@Test public void RecursiveContext() { test(); }
@Test public void RecursiveValues2() { test(); }
@Test public void RecursiveValues3() { test(); }
@Test public void RecursiveValues4() { test(); }
@Test public void RedBlackTrees() { test(); }
@Test public void Relations1() { test(); }
@Test public void RecursiveContext() { test(); }
@Test public void RecursiveValues2() { test(); }
@Test public void RecursiveValues3() { test(); }
@Test public void RecursiveValues4() { test(); }
@Test public void RedBlackTrees() { test(); }
@Test public void Relations1() { test(); }
- @Test public void Relations2() { test(); }
+ @Test public void Relations2() { test(); }
@Test public void RepeatedVariableInPattern() { test(); }
@Test public void Scanl() { test(); }
@Test public void Search() { test(); }
@Test public void RepeatedVariableInPattern() { test(); }
@Test public void Scanl() { test(); }
@Test public void Search() { test(); }
--- /dev/null
+module {
+ export = [main]
+}
+
+import "Prelude"
+
+data Path = EmptyPath | ConsPath String Path
+
+showR :: Path -> String
+showR EmptyPath = "@"
+showR (ConsPath h EmptyPath) = h
+showR (ConsPath h t) = "\(h)-\(showR t)"
+
+main = "Hello world!"
+--
+Hello world!
\ No newline at end of file