I will try disable SSE2 instructions...<br><br><div><span class="gmail_quote">2007/12/14, <a href="mailto:papelhigienico@gmail.com">papelhigienico@gmail.com</a> <<a href="mailto:papelhigienico@gmail.com">papelhigienico@gmail.com
</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Yes, I have an CPU SSE2 enabled (AMD Athlon 64 X2 3600+)<br><br><br>I ran fpc test and the output is:
<br><br>%fpc teste1.pas<br>Free Pascal Compiler version 2.2.0 [2007/09/02] for i386<br>Copyright (c) 1993-2007 by Florian Klaempfl
<br>Target OS: FreeBSD/ELF for i386<br>Compiling teste1.pas<br>teste1.pas(10,2) Note: Local variable "b" not used<br>Linking teste1<br>41 lines compiled, 1.1 sec<br>1 note(s) issued<br>%./teste1<br>executing sse2 instructions ...
<br>%<br><br><br>Fabio Luis Girardi<br><br><div><span class="gmail_quote">2007/12/12, Den Jean <<a href="mailto:Den.Jean@telenet.be" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Den.Jean@telenet.be
</a>>:</span><div><span class="e" id="q_116d99aa3ed8c277_1"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On Wednesday 12 December 2007 07:33:15 pm Den Jean wrote:<br>> do you have a sse2 capable processor ?<br><br>compile and run pure pascal (no qt or lazarus) program below to check anyhow<br>(more verbose version of testsse2 of svn/fpctrunk/tests/test/testsse2.pp)
<br><br>{ %OPT=-OaVARMAX=16 -OaVARMIN=16 }<br>{ %CPU=i386 }<br>uses<br> mmx;<br><br>{ only a small test to see if it works in principle }<br><br>var<br> b : byte;<br> q : array[0..15] of byte;<br><br>begin<br> if is_sse2_cpu then
<br> begin<br> writeln('executing sse2 instructions ...');<br> asm<br>{$ifdef FPC_PIC}<br> call .LPIC<br>.LPIC:<br> popl %ecx<br>{$ifdef darwin}<br> movdqa %xmm1,%xmm2<br> movdqa
q-.LPIC(%ecx),%xmm4<br> psubq %xmm1,%xmm2<br> psubq q-.LPIC(%ecx),%xmm4<br>{$else darwin}<br> addl $_GLOBAL_OFFSET_TABLE_,%ecx<br> movdqa %xmm1,%xmm2<br> movdqa q@GOT(%ecx),%xmm4
<br> psubq %xmm1,%xmm2<br> psubq q@GOT(%ecx),%xmm4<br>{$endif darwin}<br>{$else FPC_PIC}<br> movdqa %xmm1,%xmm2<br> movdqa q,%xmm4<br> psubq %xmm1,%xmm2<br> psubq q,%xmm4
<br>{$endif FPC_PIC}<br> end;<br> end else writeln('not sse2 cpu');<br>end.<br>_______________________________________________<br>fpc-pascal maillist - <a href="mailto:fpc-pascal@lists.freepascal.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
fpc-pascal@lists.freepascal.org
</a><br><a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br></blockquote>
</span></div></div><br>
</blockquote></div><br>