Yes, I have an CPU SSE2 enabled (AMD Athlon 64 X2 3600+)
I ran fpc test and the output is:
%fpc teste1.pas
Free Pascal Compiler version 2.2.0 [2007/09/02] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: FreeBSD/ELF for i386
Compiling teste1.pas
teste1.pas(10,2) Note: Local variable "b" not used
Linking teste1
41 lines compiled, 1.1 sec
1 note(s) issued
%./teste1
executing sse2 instructions ...
%
Fabio Luis Girardi
2007/12/12, Den Jean <[EMAIL PROTECTED]>:
>
> On Wednesday 12 December 2007 07:33:15 pm Den Jean wrote:
> > do you have a sse2 capable processor ?
>
> compile and run pure pascal (no qt or lazarus) program below to check
> anyhow
> (more verbose version of testsse2 of svn/fpctrunk/tests/test/testsse2.pp)
>
> { %OPT=-OaVARMAX=16 -OaVARMIN=16 }
> { %CPU=i386 }
> uses
> mmx;
>
> { only a small test to see if it works in principle }
>
> var
> b : byte;
> q : array[0..15] of byte;
>
> begin
> if is_sse2_cpu then
> begin
> writeln('executing sse2 instructions ...');
> asm
> {$ifdef FPC_PIC}
> call .LPIC
> .LPIC:
> popl %ecx
> {$ifdef darwin}
> movdqa %xmm1,%xmm2
> movdqa q-.LPIC(%ecx),%xmm4
> psubq %xmm1,%xmm2
> psubq q-.LPIC(%ecx),%xmm4
> {$else darwin}
> addl $_GLOBAL_OFFSET_TABLE_,%ecx
> movdqa %xmm1,%xmm2
> movdqa [EMAIL PROTECTED](%ecx),%xmm4
> psubq %xmm1,%xmm2
> psubq [EMAIL PROTECTED](%ecx),%xmm4
> {$endif darwin}
> {$else FPC_PIC}
> movdqa %xmm1,%xmm2
> movdqa q,%xmm4
> psubq %xmm1,%xmm2
> psubq q,%xmm4
> {$endif FPC_PIC}
> end;
> end else writeln('not sse2 cpu');
> end.
> _______________________________________________
> fpc-pascal maillist - fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
