Start on Optimizing Compiler

optvm/pom.xml

@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project xmlns="http://maven.apache.org/POM/4.0.0"
+         xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+         xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd">
+    <modelVersion>4.0.0</modelVersion>
+    <parent>
+        <groupId>com.compilerprogramming.ezlang</groupId>
+        <artifactId>compilercraft</artifactId>
+        <version>1.0</version>
+    </parent>
+    <artifactId>optvm</artifactId>
+    <packaging>jar</packaging>
+    <name>Optimizing VM</name>
+    <dependencies>
+        <dependency>
+            <groupId>com.compilerprogramming.ezlang</groupId>
+            <artifactId>parser</artifactId>
+            <version>1.0</version>
+        </dependency>
+        <dependency>
+            <groupId>com.compilerprogramming.ezlang</groupId>
+            <artifactId>types</artifactId>
+            <version>1.0</version>
+        </dependency>
+        <dependency>
+            <groupId>com.compilerprogramming.ezlang</groupId>
+            <artifactId>semantic</artifactId>
+            <version>1.0</version>
+        </dependency>
+    </dependencies>
+</project>

optvm/src/main/java/com/compilerprogramming/ezlang/bytecode/BasicBlock.java

@@ -0,0 +1,156 @@
+package com.compilerprogramming.ezlang.bytecode;
+
+import com.compilerprogramming.ezlang.types.Register;
+
+import java.util.*;
+
+public class BasicBlock {
+    public final int bid;
+    public final boolean loopHead;
+    public final List<BasicBlock> successors = new ArrayList<>(); // successors
+    public final List<BasicBlock> predecessors = new ArrayList<>();
+    public final List<Instruction> instructions = new ArrayList<>();
+    /**
+     * The preorder traversal number, also acts as a flag indicating whether the
+     * BB is yet to be visited (_pre==0 means not yet visited).
+     */
+    int pre;
+    /**
+     * The depth of the BB in the dominator tree
+     */
+    int domDepth;
+    /**
+     * Reverse post order traversal number;
+     * Sort node list in ascending order by this to traverse graph in reverse post order.
+     * In RPO order if an edge exists from A to B we visit A followed by B, but cycles have to
+     * be dealt with in another way.
+     */
+    int rpo;
+    /**
+     * Immediate dominator is the closest strict dominator.
+     * @see DominatorTree
+     */
+    public BasicBlock idom;
+    /**
+     * Nodes for whom this node is the immediate dominator,
+     * thus the dominator tree.
+     */
+    public List<BasicBlock> dominatedChildren = new ArrayList<>();
+    /**
+     * Dominance frontier
+     */
+    public Set<BasicBlock> dominationFrontier = new HashSet<>();
+
+    /**
+     * Nearest Loop to which this BB belongs
+     */
+    public LoopNest loop;
+
+    public BasicBlock(int bid, boolean loopHead) {
+        this.bid = bid;
+        this.loopHead = loopHead;
+    }
+    public BasicBlock(int bid) {
+        this(bid, false);
+    }
+    // For testing only
+    public BasicBlock(int bid, BasicBlock... preds) {
+        this.bid = bid;
+        this.loopHead = false;
+        for (BasicBlock bb : preds)
+            bb.addSuccessor(this);
+    }
+    public void add(Instruction instruction) {
+        instructions.add(instruction);
+    }
+    public void addSuccessor(BasicBlock successor) {
+        successors.add(successor);
+        successor.predecessors.add(this);
+    }
+
+    /**
+     * Initially the phi has the form
+     * v = phi(v,v,...)
+     */
+    public void insertPhiFor(Register var) {
+        for (Instruction i: instructions) {
+            if (i instanceof Instruction.Phi phi) {
+                if (phi.def().id == var.id)
+                    // already added
+                    return;
+            }
+            else break;
+        }
+        List<Register> inputs = new ArrayList<>();
+        for (int i = 0; i < predecessors.size(); i++)
+            inputs.add(var);
+        Instruction.Phi phi = new Instruction.Phi(var, inputs);
+        instructions.add(0, phi);
+    }
+    public List<Instruction.Phi> phis() {
+        List<Instruction.Phi> list = new ArrayList<>();
+        for (Instruction i: instructions) {
+            if (i instanceof Instruction.Phi phi)
+                list.add(phi);
+            else break;
+        }
+        return list;
+    }
+    public static StringBuilder toStr(StringBuilder sb, BasicBlock bb, BitSet visited)
+    {
+        if (visited.get(bb.bid))
+            return sb;
+        visited.set(bb.bid);
+        sb.append("L").append(bb.bid).append(":\n");
+        for (Instruction n: bb.instructions) {
+            sb.append("    ");
+            n.toStr(sb).append("\n");
+        }
+        for (BasicBlock succ: bb.successors) {
+            toStr(sb, succ, visited);
+        }
+        return sb;
+    }
+    @Override
+    public boolean equals(Object o) {
+        if (this == o) return true;
+        if (o == null || getClass() != o.getClass()) return false;
+        BasicBlock that = (BasicBlock) o;
+        return bid == that.bid;
+    }
+
+    @Override
+    public int hashCode() {
+        return Objects.hash(bid);
+    }
+
+    public String label() {
+        return "BB(" + bid + ")";
+    }
+
+    public String uniqueName() {
+        return "BB_" + bid;
+    }
+
+    //////////////// dominator calculations /////////////////////
+
+    public void resetDomInfo() {
+        domDepth = 0;
+        idom = null;
+        dominatedChildren.clear();
+        dominationFrontier.clear();
+    }
+
+    public void resetRPO() {
+        pre = 0;
+        rpo = 0;
+    }
+
+    public boolean dominates(BasicBlock other) {
+        if (this == other) return true;
+        while (other.domDepth > domDepth) other = other.idom;
+        return this == other;
+    }
+
+    /////////////////// End of dominator calculations //////////////////////////////////
+}

optvm/src/main/java/com/compilerprogramming/ezlang/bytecode/BytecodeCompiler.java

@@ -0,0 +1,17 @@
+package com.compilerprogramming.ezlang.bytecode;
+
+import com.compilerprogramming.ezlang.types.Symbol;
+import com.compilerprogramming.ezlang.types.Type;
+import com.compilerprogramming.ezlang.types.TypeDictionary;
+
+public class BytecodeCompiler {
+
+    public void compile(TypeDictionary typeDictionary) {
+        for (Symbol symbol: typeDictionary.getLocalSymbols()) {
+            if (symbol instanceof Symbol.FunctionTypeSymbol functionSymbol) {
+                Type.TypeFunction functionType = (Type.TypeFunction) functionSymbol.type;
+                functionType.code = new BytecodeFunction(functionSymbol);
+            }
+        }
+    }
+}