[fpc-pascal] Lazarus + Qt4 in FreeBSD

[papelhigienico at gmail.com]

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 <Den.Jean at telenet.be>:
>
> 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    q at GOT(%ecx),%xmm4
>        psubq     %xmm1,%xmm2
>        psubq     q at GOT(%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 at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20071214/9f083d6d/attachment.html>