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