<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>