<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<pre class="laz" style="margin: 0px; padding: 0px; font-family:
monospace; white-space: normal; color: rgb(0, 0, 0); font-size:
13px; font-style: normal; font-variant-ligatures: normal;
font-variant-caps: normal; font-weight: 400; letter-spacing:
normal; orphans: 2; text-align: start; text-indent: 0px;
text-transform: none; widows: 2; word-spacing: 0px;
-webkit-text-stroke-width: 0px; background-color: rgb(255, 255,
255); text-decoration-style: initial; text-decoration-color:
initial;"><span class="co1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 255); font-weight: bold;"><font color="#000000">Hello
Lazarus team,<br>
<br>
i build an AVR package for the Lazarus IDE.<br>
It is absolutely necessary, that I can enter something with
compiler commands, with "afterwards". There comes in an
avrdude call.<br>
<br>
This works, I made the following changes in Lazarus.<br>
It would be nice who the Lazarus team could put this firmly in
place.<br>
<br>
Even more ingenious would be who you could even read it out,
eg. with "GetAlternativeCompile"<br>
<br>
The current state of my AVR package I have on GitHub.
<a class="moz-txt-link-freetext" href="https://github.com/sechshelme/AVR-Lazarus/tree/master/AVR_Package">https://github.com/sechshelme/AVR-Lazarus/tree/master/AVR_Package</a></font><br>
<br>
<br>
<br>
// === Lazarus 1.9.0 r58920M ===</span><br style="margin: 0px;
padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">//
components/ideintf/compoptsintf.pas: Zeile 454</span><br
style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">// old</span><br style="margin:
0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">procedure</span><span> </span>SetAlternativeCompile<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">(</span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">)</span>; virtual; abstract;<span> </span><span class="co1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 255);
font-weight: bold;">// disable normal compile and call this
instead</span><br style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">// new</span><br style="margin:
0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">procedure</span><span> </span>SetAlternativeCompile<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">(</span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean; After<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span>Boolean<span> </span><span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">=</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">False</span><span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">)</span>; virtual; abstract;<span> </span><span class="co1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 255);
font-weight: bold;">// disable normal compile and call this
instead</span><br style="margin: 0px; padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">// ide/compileroptions.pp: Zeile
499 + 3695</span><br style="margin: 0px; padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">// </span><span class="co1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 255);
font-weight: bold;">old</span>
<br>
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">procedure</span><span> </span>SetAlternativeCompile<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">(</span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">)</span>; override;<br style="margin: 0px; padding: 0px;">
.....<br style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">procedure</span><span> </span>TBaseCompilerOptions.<span
class="me1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0);">SetAlternativeCompile</span><span class="br0"
style="margin: 0px; padding: 0px; color: rgb(0, 153, 0);">(</span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;<br
style="margin: 0px; padding: 0px;">
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">)</span>;<br style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">begin</span><br style="margin: 0px;
padding: 0px;">
CompilerPath<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:=</span><span class="st0"
style="margin: 0px; padding: 0px; color: rgb(255, 0, 0);">''</span>;<br
style="margin: 0px; padding: 0px;">
ExecuteBefore.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Command</span><span class="sy0"
style="margin: 0px; padding: 0px; color: rgb(255, 0, 0);">:=</span>Command;<br
style="margin: 0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">if</span><span> </span>ScanFPCMsgs<span> </span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">then</span><br style="margin: 0px;
padding: 0px;">
ExecuteBefore.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Parsers</span>.<span class="me1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 0);">Text</span><span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:=</span>SubToolFPC<span class="sy0" style="margin: 0px;
padding: 0px; color: rgb(255, 0, 0);">+</span>LineEnding<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">+</span>SubToolMake<br style="margin: 0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">else</span><br
style="margin: 0px; padding: 0px;">
ExecuteBefore.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Parsers</span>.<span class="me1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 0);">Clear</span>;<br
style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">end</span>;<br style="margin: 0px;
padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">// new</span><br style="margin:
0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">procedure</span><span> </span>SetAlternativeCompile<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">(</span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean; After<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span>Boolen<span class="br0" style="margin: 0px;
padding: 0px; color: rgb(0, 153, 0);">)</span>; override;<br
style="margin: 0px; padding: 0px;">
.....<br style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">procedure</span><span> </span>TBaseCompilerOptions.<span
class="me1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0);">SetAlternativeCompile</span><span class="br0"
style="margin: 0px; padding: 0px; color: rgb(0, 153, 0);">(</span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;<br
style="margin: 0px; padding: 0px;">
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean; After<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span>Boolen<span class="br0"
style="margin: 0px; padding: 0px; color: rgb(0, 153, 0);">)</span>;<br
style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">begin</span><br style="margin: 0px;
padding: 0px;">
CompilerPath<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:=</span><span class="st0"
style="margin: 0px; padding: 0px; color: rgb(255, 0, 0);">''</span>;<br
style="margin: 0px; padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">if</span><span> </span>After<span> </span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">then</span><span> </span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">begin</span><br style="margin: 0px;
padding: 0px;">
ExecuteAfter.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Command</span><span class="sy0"
style="margin: 0px; padding: 0px; color: rgb(255, 0, 0);">:=</span>Command;<br
style="margin: 0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">if</span><span> </span>ScanFPCMsgs<span> </span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">then</span><br style="margin: 0px;
padding: 0px;">
ExecuteAfter.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Parsers</span>.<span class="me1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 0);">Text</span><span> </span><span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:=</span><span> </span>SubToolFPC<span> </span><span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">+</span><span> </span>LineEnding<span> </span><span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">+</span><span> </span>SubToolMake<br style="margin: 0px;
padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">else</span><br
style="margin: 0px; padding: 0px;">
ExecuteAfter.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Parsers</span>.<span class="me1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 0);">Clear</span>;<br
style="margin: 0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">end</span><span> </span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">else</span><span> </span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">begin</span><br style="margin: 0px;
padding: 0px;">
ExecuteBefore.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Command</span><span class="sy0"
style="margin: 0px; padding: 0px; color: rgb(255, 0, 0);">:=</span>Command;<br
style="margin: 0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">if</span><span> </span>ScanFPCMsgs<span> </span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">then</span><br style="margin: 0px;
padding: 0px;">
ExecuteBefore.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Parsers</span>.<span class="me1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 0);">Text</span><span> </span><span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:=</span><span> </span>SubToolFPC<span> </span><span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">+</span><span> </span>LineEnding<span> </span><span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">+</span><span> </span>SubToolMake<br style="margin: 0px;
padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">else</span><br
style="margin: 0px; padding: 0px;">
ExecuteBefore.<span class="me1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0);">Parsers</span>.<span class="me1"
style="margin: 0px; padding: 0px; color: rgb(0, 0, 0);">Clear</span>;<br
style="margin: 0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">end</span>;<br
style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">end</span>;<br style="margin: 0px;
padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">// ide/project.pp: Zeile 551 + 6255</span><br
style="margin: 0px; padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">// old</span><br style="margin:
0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">procedure</span><span> </span>SetAlternativeCompile<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">(</span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">)</span>; override;<br style="margin: 0px; padding: 0px;">
.....<br style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">procedure</span><span> </span>TProjectCompilerOptions.<span
class="me1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0);">SetAlternativeCompile</span><span class="br0"
style="margin: 0px; padding: 0px; color: rgb(0, 153, 0);">(</span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;<br
style="margin: 0px; padding: 0px;">
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">)</span>;<br style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">begin</span><br style="margin: 0px;
padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">inherited</span><span> </span>SetAlternativeCompile<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">(</span>Command<span class="sy0" style="margin: 0px;
padding: 0px; color: rgb(255, 0, 0);">,</span><span> </span>ScanFPCMsgs<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">)</span>;<br style="margin: 0px; padding: 0px;">
CompileReasons<span class="sy0" style="margin: 0px; padding:
0px; color: rgb(255, 0, 0);">:=</span><span class="br0"
style="margin: 0px; padding: 0px; color: rgb(0, 153, 0);">[</span><span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">]</span>;<br style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">end</span>;<br style="margin: 0px;
padding: 0px;">
<br style="margin: 0px; padding: 0px;">
<span class="co1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 255); font-weight: bold;">// new</span><br style="margin:
0px; padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding:
0px; color: rgb(0, 0, 0); font-weight: bold;">procedure</span><span> </span>SetAlternativeCompile<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">(</span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean; After<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span>Boolean<span class="br0" style="margin: 0px;
padding: 0px; color: rgb(0, 153, 0);">)</span>; override;<br
style="margin: 0px; padding: 0px;">
.....<br style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">procedure</span><span> </span>TProjectCompilerOptions.<span
class="me1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0);">SetAlternativeCompile</span><span class="br0"
style="margin: 0px; padding: 0px; color: rgb(0, 153, 0);">(</span><span
class="kw1" style="margin: 0px; padding: 0px; color: rgb(0, 0,
0); font-weight: bold;">const</span><span> </span>Command<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span><span class="kw1" style="margin: 0px;
padding: 0px; color: rgb(0, 0, 0); font-weight: bold;">string</span>;<br
style="margin: 0px; padding: 0px;">
ScanFPCMsgs<span class="sy0" style="margin: 0px; padding: 0px;
color: rgb(255, 0, 0);">:</span><span> </span>boolean; After<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">:</span><span> </span>Boolean<span class="br0"
style="margin: 0px; padding: 0px; color: rgb(0, 153, 0);">)</span>;<br
style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">begin</span><br style="margin: 0px;
padding: 0px;">
<span> </span><span class="kw1" style="margin: 0px; padding: 0px;
color: rgb(0, 0, 0); font-weight: bold;">inherited</span><span> </span>SetAlternativeCompile<span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">(</span>Command<span class="sy0" style="margin: 0px;
padding: 0px; color: rgb(255, 0, 0);">,</span><span> </span>ScanFPCMsgs<span
class="sy0" style="margin: 0px; padding: 0px; color: rgb(255, 0,
0);">,</span><span> </span>After<span class="br0" style="margin:
0px; padding: 0px; color: rgb(0, 153, 0);">)</span>;<br
style="margin: 0px; padding: 0px;">
CompileReasons<span class="sy0" style="margin: 0px; padding:
0px; color: rgb(255, 0, 0);">:=</span><span class="br0"
style="margin: 0px; padding: 0px; color: rgb(0, 153, 0);">[</span><span
class="br0" style="margin: 0px; padding: 0px; color: rgb(0, 153,
0);">]</span>;<br style="margin: 0px; padding: 0px;">
<span class="kw1" style="margin: 0px; padding: 0px; color: rgb(0,
0, 0); font-weight: bold;">end</span>;</pre>
</body>
</html>