<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
</head>
<body>
<p>I'm doing some optimisation development for x86_64 currently, so
I can give it a test run if you like - got the Raspberry Pi for
arm-linux and aarch64-linux too, but it might take more then a
day. I'll let you know.</p>
<p>Gareth aka. Kit<br>
</p>
<div class="moz-cite-prefix">On 24/11/2020 01:13, Tomas Hajny via
fpc-devel wrote:<br>
</div>
<blockquote type="cite"
cite="mid:0174d73e2d7e37848aa9a20f9988736c@hajny.biz">On
2020-11-24 01:14, J. Gareth Moreton via fpc-devel wrote:
<br>
<blockquote type="cite">I'd say thie first port of call is
"compiler/comphook.pas", line 258:
<br>
<br>
procedure WriteColoredOutput(var t: Text;color:
TOutputColor;const s :
<br>
AnsiString);
<br>
<br>
It looks like a simple "$if defined".
<br>
</blockquote>
<br>
Yes, and the more platforms are added, the more messy this unit
gets. :-( I tried to clean it up a bit by moving the
platform-specific parts to a new unit - see the attachment
containing a diff for comphook.pas and the new unit. I didn't
commit yet because I couldn't test it on the other platforms (my
new implementation for OS/2 works OK ;-) ). If somebody tests is
under Linux and WinXX, I'll committ it tomorrow.
<br>
<br>
Tomas
<br>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<pre class="moz-quote-pre" wrap="">_______________________________________________
fpc-devel maillist - <a class="moz-txt-link-abbreviated" href="mailto:fpc-devel@lists.freepascal.org">fpc-devel@lists.freepascal.org</a>
<a class="moz-txt-link-freetext" href="https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel">https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel</a>
</pre>
</blockquote>
<div id="DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2"><br />
<table style="border-top: 1px solid #D3D4DE;">
<tr>
<td style="width: 55px; padding-top: 13px;"><a href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient" target="_blank"><img src="https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif" alt="" width="46" height="29" style="width: 46px; height: 29px;" /></a></td>
<td style="width: 470px; padding-top: 12px; color: #41424e; font-size: 13px; font-family: Arial, Helvetica, sans-serif; line-height: 18px;">Virus-free. <a href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient" target="_blank" style="color: #4453ea;">www.avast.com</a>
</td>
</tr>
</table><a href="#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1" height="1"> </a></div></body>
</html>