| author | Christian Urban <christian dot urban at kcl dot ac dot uk> | 
| Tue, 17 Nov 2015 04:02:08 +0000 | |
| changeset 373 | b018234c9126 | 
| parent 372 | d6af4b1239de | 
| child 374 | 0e25fb72d339 | 
| permissions | -rw-r--r-- | 
| 327 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 1 | \documentclass{article}
 | 
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 2 | \usepackage{../style}
 | 
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 3 | \usepackage{../langs}
 | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 4 | \usepackage{../grammar}
 | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 5 | \usepackage{../graphics}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 6 | |
| 327 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 7 | |
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 8 | \begin{document}
 | 
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 9 | |
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 10 | \section*{Handout 7 (Compilation)}
 | 
| 327 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 11 | |
| 369 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 12 | The purpose of a compiler is to transform a program, a human | 
| 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 13 | can write, into code the machine can run as fast as possible. | 
| 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 14 | The fastest code would be machine code the CPU can run | 
| 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 15 | directly, but it is often enough to improve the speed of a | 
| 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 16 | program by just targeting a virtual machine. This produces not | 
| 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 17 | the fastest possible code, but code that is fast enough and | 
| 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 18 | has the advantage that the virtual machine care of things a | 
| 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 19 | compiler would normally need to take care of (like explicit | 
| 
43c0ed473720
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
327diff
changeset | 20 | memory management). | 
| 327 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 21 | |
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 22 | As an example we will implement a compiler for the very simple | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 23 | While-language. We will be generating code for the Java | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 24 | Virtual Machine. This is a stack-based virtual machine, a fact | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 25 | which will make it easy to generate code for arithmetic | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 26 | expressions. For example for generating code for the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 27 | expression $1 + 2$ we need to generate the following three | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 28 | instructions | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 29 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 30 | \begin{lstlisting}[numbers=none]
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 31 | ldc 1 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 32 | ldc 2 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 33 | iadd | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 34 | \end{lstlisting}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 35 | |
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 36 | \noindent The first instruction loads the constant $1$ onto | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 37 | the stack, the next one $2$, the third instruction adds both | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 38 | numbers together replacing the top elements of the stack with | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 39 | the result $3$. For simplicity, we will throughout consider | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 40 | only integer numbers and results. Therefore we can use the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 41 | instructions \code{iadd}, \code{isub}, \code{imul},
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 42 | \code{idiv} and so on. The \code{i} stands for integer
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 43 | instructions in the JVM (alternatives are \code{d} for doubles,
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 44 | \code{l} for longs and \code{f} for floats).
 | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 45 | |
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 46 | Recall our grammar for arithmetic expressions ($E$ is the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 47 | starting symbol): | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 48 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 49 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 50 | \begin{plstx}[rhs style=, margin=3cm]
: \meta{E} ::= \meta{T} $+$ \meta{E}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 51 |          | \meta{T} $-$ \meta{E}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 52 |          | \meta{T}\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 53 | : \meta{T} ::= \meta{F} $*$ \meta{T}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 54 |           | \meta{F} $\backslash$ \meta{T}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 55 |           | \meta{F}\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 56 | : \meta{F} ::= ( \meta{E} )
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 57 |           | \meta{Id}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 58 |           | \meta{Num}\\
\end{plstx}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 59 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 60 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 61 | \noindent where \meta{Id} stands for variables and
 | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 62 | \meta{Num} for numbers. For the moment let us omit variables from
 | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 63 | arithmetic expressions. Our parser will take this grammar and | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 64 | produce abstract syntax trees. For | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 65 | example for the expression $1 + ((2 * 3) + (4 - 3))$ it will | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 66 | produce the following tree. | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 67 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 68 | \begin{center}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 69 | \begin{tikzpicture}
\Tree [.$+$ [.$1$ ] [.$+$ [.$*$ $2$ $3$ ] [.$-$ $4$ $3$ ]]]
\end{tikzpicture}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 70 | \end{center}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 71 | |
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 72 | \noindent To generate code for this expression, we need to | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 73 | traverse this tree in post-order fashion and emit code for | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 74 | each node---this traversal in post-order fashion will produce | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 75 | code for a stack-machine (what the JVM is). Doing so for the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 76 | tree above generates the instructions | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 77 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 78 | \begin{lstlisting}[numbers=none]
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 79 | ldc 1 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 80 | ldc 2 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 81 | ldc 3 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 82 | imul | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 83 | ldc 4 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 84 | ldc 3 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 85 | isub | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 86 | iadd | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 87 | iadd | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 88 | \end{lstlisting}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 89 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 90 | \noindent If we ``run'' these instructions, the result $8$ | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 91 | will be on top of the stack (I leave this to you to verify; | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 92 | the meaning of each instruction should be clear). The result | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 93 | being on the top of the stack will be a convention we always | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 94 | observe in our compiler, that is the results of arithmetic | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 95 | expressions will always be on top of the stack. Note, that a | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 96 | different bracketing of the expression, for example $(1 + (2 * | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 97 | 3)) + (4 - 3)$, produces a different abstract syntax tree and | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 98 | thus potentially also a different list of instructions. | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 99 | Generating code in this fashion is rather easy to implement: | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 100 | it can be done with the following \textit{compile}-function,
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 101 | which takes the abstract syntax tree as argument: | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 102 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 103 | \begin{center}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 104 | \begin{tabular}{lcl}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 105 | $\textit{compile}(n)$ & $\dn$ & $\pcode{ldc}\; n$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 106 | $\textit{compile}(a_1 + a_2)$ & $\dn$ &
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 107 | $\textit{compile}(a_1) \;@\;\textit{compile}(a_2)\;@\; \pcode{iadd}$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 108 | $\textit{compile}(a_1 - a_2)$ & $\dn$ & 
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 109 | $\textit{compile}(a_1) \;@\; \textit{compile}(a_2)\;@\; \pcode{isub}$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 110 | $\textit{compile}(a_1 * a_2)$ & $\dn$ & 
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 111 | $\textit{compile}(a_1) \;@\; \textit{compile}(a_2)\;@\; \pcode{imul}$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 112 | $\textit{compile}(a_1 \backslash a_2)$ & $\dn$ & 
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 113 | $\textit{compile}(a_1) \;@\; \textit{compile}(a_2)\;@\; \pcode{idiv}$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 114 | \end{tabular}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 115 | \end{center}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 116 | |
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 117 | However, our arithmetic expressions can also contain | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 118 | variables. We will represent them as \emph{local variables} in
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 119 | the JVM. Essentially, local variables are an array or pointers | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 120 | to memory cells, containing in our case only integers. Looking | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 121 | up a variable can be done with the instruction | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 122 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 123 | \begin{lstlisting}[mathescape,numbers=none]
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 124 | iload $index$ | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 125 | \end{lstlisting}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 126 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 127 | \noindent | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 128 | which places the content of the local variable $index$ onto | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 129 | the stack. Storing the top of the stack into a local variable | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 130 | can be done by the instruction | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 131 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 132 | \begin{lstlisting}[mathescape,numbers=none]
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 133 | istore $index$ | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 134 | \end{lstlisting}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 135 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 136 | \noindent Note that this also pops off the top of the stack. | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 137 | One problem we have to overcome, however, is that local | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 138 | variables are addressed, not by identifiers, but by numbers | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 139 | (starting from $0$). Therefore our compiler needs to maintain | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 140 | a kind of environment where variables are associated to | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 141 | numbers. This association needs to be unique: if we muddle up | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 142 | the numbers, then we essentially confuse variables and the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 143 | consequence will usually be an erroneous result. Our extended | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 144 | \textit{compile}-function for arithmetic expressions will
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 145 | therefore take two arguments: the abstract syntax tree and the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 146 | environment, $E$, that maps identifiers to index-numbers. | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 147 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 148 | \begin{center}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 149 | \begin{tabular}{lcl}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 150 | $\textit{compile}(n, E)$ & $\dn$ & $\pcode{ldc}\;n$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 151 | $\textit{compile}(a_1 + a_2, E)$ & $\dn$ & 
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 152 | $\textit{compile}(a_1, E) \;@\;\textit{compile}(a_2, E)\;@\; \pcode{iadd}$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 153 | $\textit{compile}(a_1 - a_2, E)$ & $\dn$ &
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 154 | $\textit{compile}(a_1, E) \;@\; \textit{compile}(a_2, E)\;@\; \pcode{isub}$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 155 | $\textit{compile}(a_1 * a_2, E)$ & $\dn$ &
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 156 | $\textit{compile}(a_1, E) \;@\; \textit{compile}(a_2, E)\;@\; \pcode{imul}$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 157 | $\textit{compile}(a_1 \backslash a_2, E)$ & $\dn$ & 
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 158 | $\textit{compile}(a_1, E) \;@\; \textit{compile}(a_2, E)\;@\; \pcode{idiv}$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 159 | $\textit{compile}(x, E)$ & $\dn$ & $\pcode{iload}\;E(x)$\\
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 160 | \end{tabular}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 161 | \end{center}
 | 
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 162 | |
| 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 163 | \noindent In the last line we generate the code for variables | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 164 | where $E(x)$ stands for looking up the environment to which | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 165 | index the variable $x$ maps to. | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 166 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 167 | There is a similar \textit{compile}-function for boolean
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 168 | expressions, but it includes a ``trick'' to do with | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 169 | \pcode{if}- and \pcode{while}-statements. To explain the issue
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 170 | let us explain first the compilation of statements of the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 171 | While-language. The clause for \pcode{skip} is trivial, since
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 172 | we do not have to generate any instruction | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 173 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 174 | \begin{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 175 | \begin{tabular}{lcl}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 176 | $\textit{compile}(\pcode{skip}, E)$ & $\dn$ & $([], E)$\\
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 177 | \end{tabular}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 178 | \end{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 179 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 180 | \noindent Note that the \textit{compile}-function for
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 181 | statements returns a pair, a list of instructions (in this | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 182 | case the empty list) and an environment for variables. The | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 183 | reason for the environment is that assignments in the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 184 | While-language might change the environment---clearly if a | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 185 | variable is used for the first time, we need to allocate a new | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 186 | index and if it has been used before, we need to be able to | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 187 | retrieve the associated index. This is reflected in | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 188 | the clause for compiling assignments: | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 189 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 190 | \begin{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 191 | \begin{tabular}{lcl}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 192 | $\text{compile}(x := a, E)$ & $\dn$ & 
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 193 | $(\textit{compile}(a, E) \;@\;\pcode{istore}\;index, E')$
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 194 | \end{tabular}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 195 | \end{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 196 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 197 | \noindent We first generate code for the right-hand side of | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 198 | the assignment and then add an \pcode{istore}-instruction at
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 199 | the end. By convention the result of the arithmetic expression | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 200 | $a$ will be on top of the stack. After the \pcode{istore}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 201 | instruction, the result will be stored in the index | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 202 | corresponding to the variable $x$. If the variable $x$ has | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 203 | been used before in the program, we just need to look up what | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 204 | the index is and return the environment unchanged (that is in | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 205 | this case $E' = E$). However, if this is the first encounter | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 206 | of the variable $x$ in the program, then we have to augment | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 207 | the environment and assign $x$ with the largest index in $E$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 208 | plus one (that is $E' = E(x \mapsto largest\_index + 1)$). | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 209 | That means for the assignment $x := x + 1$ we generate the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 210 | following code | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 211 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 212 | \begin{lstlisting}[mathescape,numbers=none]
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 213 | iload $n_x$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 214 | ldc 1 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 215 | iadd | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 216 | istore $n_x$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 217 | \end{lstlisting}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 218 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 219 | \noindent | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 220 | where $n_x$ is the index for the variable $x$. | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 221 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 222 | More complicated is the code for \pcode{if}-statments, say
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 223 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 224 | \begin{lstlisting}[mathescape,language={},numbers=none]
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 225 | if $b$ then $cs_1$ else $cs_2$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 226 | \end{lstlisting}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 227 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 228 | \noindent where $b$ is a boolean expression and the $cs_i$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 229 | are the instructions for each \pcode{if}-branch. Lets assume
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 230 | we already generated code for $b$ and $cs_{1/2}$. Then in the
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 231 | true-case the control-flow of the program needs to be | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 232 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 233 | \begin{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 234 | \begin{tikzpicture}[node distance=2mm and 4mm,
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 235 |  block/.style={rectangle, minimum size=1cm, draw=black, line width=1mm},
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 236 |  point/.style={rectangle, inner sep=0mm, minimum size=0mm, fill=red},
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 237 |  skip loop/.style={black, line width=1mm, to path={-- ++(0,-10mm) -| (\tikztotarget)}}]
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 238 | \node (A1) [point] {};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 239 | \node (b) [block, right=of A1] {code of $b$};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 240 | \node (A2) [point, right=of b] {};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 241 | \node (cs1) [block, right=of A2] {code of $cs_1$};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 242 | \node (A3) [point, right=of cs1] {};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 243 | \node (cs2) [block, right=of A3] {code of $cs_2$};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 244 | \node (A4) [point, right=of cs2] {};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 245 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 246 | \draw (A1) edge [->, black, line width=1mm] (b); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 247 | \draw (b) edge [->, black, line width=1mm] (cs1); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 248 | \draw (cs1) edge [->, black, line width=1mm] (A3); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 249 | \draw (A3) edge [->, black, skip loop] (A4); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 250 | \node [below=of cs2] {\raisebox{-5mm}{\small{}jump}};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 251 | \end{tikzpicture}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 252 | \end{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 253 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 254 | \noindent where we start with running the code for $b$; since | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 255 | we are in the true case we continue with running the code for | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 256 | $cs_1$. After this however, we must not run the code for | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 257 | $cs_2$, but always jump after the last instruction of $cs_2$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 258 | (the code for the \pcode{else}-branch). Note that this jump is
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 259 | unconditional, meaning we always have to jump to the end of | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 260 | $cs_2$. The corresponding instruction of the JVM is | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 261 | \pcode{goto}. In case $b$ turns out to be false we need the
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 262 | control-flow | 
| 370 
a65767fe5d71
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
369diff
changeset | 263 | |
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 264 | \begin{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 265 | \begin{tikzpicture}[node distance=2mm and 4mm,
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 266 |  block/.style={rectangle, minimum size=1cm, draw=black, line width=1mm},
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 267 |  point/.style={rectangle, inner sep=0mm, minimum size=0mm, fill=red},
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 268 |  skip loop/.style={black, line width=1mm, to path={-- ++(0,-10mm) -| (\tikztotarget)}}]
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 269 | \node (A1) [point] {};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 270 | \node (b) [block, right=of A1] {code of $b$};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 271 | \node (A2) [point, right=of b] {};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 272 | \node (cs1) [block, right=of A2] {code of $cs_1$};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 273 | \node (A3) [point, right=of cs1] {};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 274 | \node (cs2) [block, right=of A3] {code of $cs_2$};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 275 | \node (A4) [point, right=of cs2] {};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 276 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 277 | \draw (A1) edge [->, black, line width=1mm] (b); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 278 | \draw (b) edge [->, black, line width=1mm] (A2); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 279 | \draw (A2) edge [skip loop] (A3); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 280 | \draw (A3) edge [->, black, line width=1mm] (cs2); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 281 | \draw (cs2) edge [->,black, line width=1mm] (A4); | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 282 | \node [below=of cs1] {\raisebox{-5mm}{\small{}conditional jump}};
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 283 | \end{tikzpicture}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 284 | \end{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 285 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 286 | \noindent where we now need a conditional jump (if the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 287 | if-condition is false) from the end of the code for the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 288 | boolean to the beginning of the instructions $cs_2$. Once we | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 289 | are finished with running $cs_2$ we can continue with whatever | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 290 | code comes after the if-statement. | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 291 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 292 | The \pcode{goto} and conditional jumps need addresses to where
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 293 | the jump should go. Since we are generating assembly code for | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 294 | the JVM, we do not actually have to give addresses, but need | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 295 | to attach labels to our code. These labels specify a target | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 296 | for a jump. Therefore the labels need to be unique, as | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 297 | otherwise it would be ambiguous where a jump should go. | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 298 | A labels, say \pcode{L}, is attached to code like
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 299 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 300 | \begin{lstlisting}[mathescape,numbers=none]
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 301 | L: | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 302 | $instr_1$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 303 | $instr_2$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 304 | $\vdots$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 305 | \end{lstlisting}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 306 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 307 | Recall the ``trick'' with compiling boolean expressions: the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 308 | \textit{compile}-function for boolean expressions takes three
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 309 | arguments: an abstract syntax tree, an environment for | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 310 | variable indices and also the label, $lab$, to where an conditional | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 311 | jump needs to go. The clause for the expression $a_1 = a_2$, | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 312 | for example, is as follows: | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 313 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 314 | \begin{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 315 | \begin{tabular}{lcl}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 316 | $\textit{compile}(a_1 = a_2, E, lab)$ & $\dn$\\ 
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 317 | \multicolumn{3}{l}{$\qquad\textit{compile}(a_1, E) \;@\;\textit{compile}(a_2, E)\;@\; \pcode{if_icmpne}\;lab$}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 318 | \end{tabular}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 319 | \end{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 320 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 321 | \noindent | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 322 | We are generating code for the subexpressions $a_1$ and $a_2$. | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 323 | This will mean after running the corresponding code there will | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 324 | be two integers on top of the stack. If they are equal, we do | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 325 | not have to do anything and just continue with the next | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 326 | instructions (see control-flow of ifs above). However if they | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 327 | are \emph{not} equal, then we need to (conditionally) jump to 
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 328 | the label $lab$. This can be done with the instruction | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 329 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 330 | \begin{lstlisting}[mathescape,numbers=none]
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 331 | if_icmpne $lab$ | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 332 | \end{lstlisting}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 333 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 334 | \noindent Other jump instructions for boolean operators are | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 335 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 336 | \begin{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 337 | \begin{tabular}{l@{\hspace{10mm}}c@{\hspace{10mm}}l}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 338 | $=$ & $\Rightarrow$ & \pcode{if_icmpne}\\
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 339 | $\not=$ & $\Rightarrow$ & \pcode{if_icmpeq}\\
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 340 | $<$ & $\Rightarrow$ & \pcode{if_icmpge}\\
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 341 | $\le$ & $\Rightarrow$ & \pcode{if_icmpgt}\\
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 342 | \end{tabular}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 343 | \end{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 344 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 345 | \noindent and so on. I leave it to you to extend the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 346 | \textit{compile}-function for the other boolean expressions.
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 347 | Note that we need to jump whenever the boolean is \emph{not}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 348 | true, which means we have to ``negate'' the jump---equals | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 349 | becomes not-equal, less becomes greater-or-equal. If you do | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 350 | not like this design (it can be the source of some nasty, | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 351 | hard-to-detect errors), you can also change the layout of the | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 352 | code and first give the code for the else-branch and then for | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 353 | the if-branch. | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 354 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 355 | We are now ready to give the compile function for | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 356 | if-statments--remember this function returns for staments a | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 357 | pair consisting of the code and an environment: | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 358 | |
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 359 | \begin{center}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 360 | \begin{tabular}{lcl}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 361 | $\textit{compile}(\pcode{if}\;b\;\pcode{then}\; cs_1\;\pcode{else}\; cs_2, E)$ & $\dn$\\ 
 | 
| 373 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 362 | \multicolumn{3}{l}{$\qquad L_\textit{ifelse}\;$ (fresh label)}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 363 | \multicolumn{3}{l}{$\qquad L_\textit{ifend}\;$ (fresh label)}\\
 | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 364 | \multicolumn{3}{l}{$\qquad (is_1, E') = \textit{compile}(cs_1, E)$}\\
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 365 | \multicolumn{3}{l}{$\qquad (is_2, E'') = \textit{compile}(cs_2, E')$}\\
 | 
| 373 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 366 | \multicolumn{3}{l}{$\qquad(\textit{compile}(b, E, L_\textit{ifelse})$}\\
 | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 367 | \multicolumn{3}{l}{$\qquad\phantom{(}@\;is_1$}\\
 | 
| 373 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 368 | \multicolumn{3}{l}{$\qquad\phantom{(}@\; \pcode{goto}\;L_\textit{ifend}$}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 369 | \multicolumn{3}{l}{$\qquad\phantom{(}@\;L_\textit{ifelse}:$}\\
 | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 370 | \multicolumn{3}{l}{$\qquad\phantom{(}@\;is_2$}\\
 | 
| 373 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 371 | \multicolumn{3}{l}{$\qquad\phantom{(}@\;L_\textit{ifend}:, E'')$}\\
 | 
| 372 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 372 | \end{tabular}
 | 
| 
d6af4b1239de
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
370diff
changeset | 373 | \end{center}
 | 
| 327 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 374 | |
| 373 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 375 | \noindent In the first two lines we generate two fresh labels | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 376 | for the jump addresses (just before the else-branch and just | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 377 | after). In the next two lines we generate the instructions for | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 378 | the two branches, $is_1$ and $is_2$. The final code will | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 379 | be first the code for $b$ (including the label | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 380 | just-before-the-else-branch), then the \pcode{goto} for after
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 381 | the else-branch, the label $L_\textit{ifesle}$, followed by
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 382 | the instructions for the else-branch, followed by the | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 383 | after-the-else-branch label. Consider for example the | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 384 | if-statement: | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 385 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 386 | \begin{lstlisting}[mathescape,numbers=none,language={}]
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 387 | if 1 = 1 then x := 2 else y := 3 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 388 | \end{lstlisting}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 389 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 390 | \noindent | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 391 | The generated code is as follows: | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 392 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 393 | \begin{lstlisting}[mathescape,language={}]
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 394 | ldc 1 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 395 | ldc 2 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 396 |    if_icmpne L_ifelse $\quad\tikz[remember picture] \node (C) {\mbox{}};$
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 397 | ldc 2 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 398 | istore 0 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 399 |    goto L_ifend $\quad\tikz[remember picture] \node (A) {\mbox{}};$
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 400 | L_ifelse: $\quad\tikz[remember picture] \node[] (D) {\mbox{}};$
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 401 | ldc 3 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 402 | istore 1 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 403 | L_ifend: $\quad\tikz[remember picture] \node[] (B) {\mbox{}};$
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 404 | \end{lstlisting}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 405 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 406 | \begin{tikzpicture}[remember picture,overlay]
  \draw[->,very thick] (A) edge [->,to path={-- ++(10mm,0mm) 
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 407 | -- ++(0mm,-17.3mm) |- (\tikztotarget)},line width=1mm] (B.east); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 408 |   \draw[->,very thick] (C) edge [->,to path={-- ++(10mm,0mm) 
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 409 |            -- ++(0mm,-17.3mm) |- (\tikztotarget)},line width=1mm] (D.east);
\end{tikzpicture}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 410 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 411 | \noindent The first three lines correspond to the the boolean | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 412 | expression $1 = 1$. The jump for when this boolean expression | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 413 | is false is in Line~3. Lines 4-6 corresponds to the if-branch; | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 414 | the else-branch is in Lines 8 and 9. Note carefully how the | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 415 | environment $E$ is threaded through the calls of | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 416 | \textit{compile}. The function receives an environment $E$, 
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 417 | but it might extend it when compiling the if-branch, yielding | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 418 | $E'$. This happens for example in the if-statement above | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 419 | whenever the variable \code{x} has not been used before. 
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 420 | Similarly with the environment $E''$ for the second call | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 421 | to \textit{compile}. $E''$ is also the environment that need
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 422 | to be returned. | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 423 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 424 | The compilation of the while-loops, say | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 425 | \pcode{while} $b$ \pcode{do} $cs$, is very similar. In case
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 426 | the condition is true and we need to do another iteration, the | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 427 | control-flow needs to be as follows | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 428 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 429 | \begin{center}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 430 | \begin{tikzpicture}[node distance=2mm and 4mm,
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 431 |  block/.style={rectangle, minimum size=1cm, draw=black, line width=1mm},
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 432 |  point/.style={rectangle, inner sep=0mm, minimum size=0mm, fill=red},
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 433 |  skip loop/.style={black, line width=1mm, to path={-- ++(0,-10mm) -| (\tikztotarget)}}]
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 434 | \node (A0) [point, left=of A1] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 435 | \node (A1) [point] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 436 | \node (b) [block, right=of A1] {code of $b$};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 437 | \node (A2) [point, right=of b] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 438 | \node (cs1) [block, right=of A2] {code of $cs$};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 439 | \node (A3) [point, right=of cs1] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 440 | \node (A4) [point, right=of A3] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 441 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 442 | \draw (A0) edge [->, black, line width=1mm] (b); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 443 | \draw (b) edge [->, black, line width=1mm] (cs1); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 444 | \draw (cs1) edge [->, black, line width=1mm] (A3); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 445 | \draw (A3) edge [->,skip loop] (A1); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 446 | \end{tikzpicture}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 447 | \end{center}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 448 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 449 | \noindent While if the condition is \emph{not} true we
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 450 | need to jump out of the loop, which gives the following | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 451 | control flow. | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 452 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 453 | \begin{center}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 454 | \begin{tikzpicture}[node distance=2mm and 4mm,
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 455 |  block/.style={rectangle, minimum size=1cm, draw=black, line width=1mm},
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 456 |  point/.style={rectangle, inner sep=0mm, minimum size=0mm, fill=red},
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 457 |  skip loop/.style={black, line width=1mm, to path={-- ++(0,-10mm) -| (\tikztotarget)}}]
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 458 | \node (A0) [point, left=of A1] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 459 | \node (A1) [point] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 460 | \node (b) [block, right=of A1] {code of $b$};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 461 | \node (A2) [point, right=of b] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 462 | \node (cs1) [block, right=of A2] {code of $cs$};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 463 | \node (A3) [point, right=of cs1] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 464 | \node (A4) [point, right=of A3] {};
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 465 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 466 | \draw (A0) edge [->, black, line width=1mm] (b); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 467 | \draw (b) edge [->, black, line width=1mm] (A2); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 468 | \draw (A2) edge [skip loop] (A3); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 469 | \draw (A3) edge [->, black, line width=1mm] (A4); | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 470 | \end{tikzpicture}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 471 | \end{center}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 472 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 473 | \noindent Again we can use the \textit{compile}-function for
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 474 | boolean expressions to insert the appropriate jump to the | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 475 | end of the loop (label $L_{wend}$).
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 476 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 477 | \begin{center}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 478 | \begin{tabular}{lcl}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 479 | $\textit{compile}(\pcode{while}\; b\; \pcode{do} \;cs, E)$ & $\dn$\\ 
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 480 | \multicolumn{3}{l}{$\qquad L_{wbegin}\;$ (fresh label)}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 481 | \multicolumn{3}{l}{$\qquad L_{wend}\;$ (fresh label)}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 482 | \multicolumn{3}{l}{$\qquad (is, E') = \textit{compile}(cs_1, E)$}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 483 | \multicolumn{3}{l}{$\qquad(L_{wbegin}:$}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 484 | \multicolumn{3}{l}{$\qquad\phantom{(}@\;\textit{compile}(b, E, L_{wend})$}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 485 | \multicolumn{3}{l}{$\qquad\phantom{(}@\;is$}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 486 | \multicolumn{3}{l}{$\qquad\phantom{(}@\; \text{goto}\;l_{wbegin}$}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 487 | \multicolumn{3}{l}{$\qquad\phantom{(}@\;L_{wend}:, E')$}\\
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 488 | \end{tabular}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 489 | \end{center}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 490 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 491 | Next we need to consider the statement \pcode{write x}, which 
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 492 | can be used to write out the content of a variable. For this | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 493 | we need to use a Java library function. In order to avoid | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 494 | having to generate a lot of code for each | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 495 | \pcode{write}-command, we use a separate method and just call
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 496 | this method with an appropriate stack. | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 497 | |
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 498 | \begin{lstlisting}[language=JVMIS]
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 499 | .method public static write(I)V | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 500 | .limit locals 5 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 501 | .limit stack 5 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 502 | getstatic java/lang/System/out Ljava/io/PrintStream; | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 503 | iload 0 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 504 | invokevirtual java/io/PrintStream/println(I)V | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 505 | return | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 506 | .end method | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 507 | \end{lstlisting}
 | 
| 
b018234c9126
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 
372diff
changeset | 508 | |
| 327 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 509 | \end{document}
 | 
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 510 | |
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 511 | %%% Local Variables: | 
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 512 | %%% mode: latex | 
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 513 | %%% TeX-master: t | 
| 
9470cd124667
updated
 Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff
changeset | 514 | %%% End: |