[fpc-pascal] Lazarus + Qt4 in FreeBSD
Den Jean
Den.Jean at telenet.be
Wed Dec 12 19:50:40 CET 2007
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.
More information about the fpc-pascal
mailing list