I will try disable SSE2 instructions...
2007/12/14, [EMAIL PROTECTED] <[EMAIL PROTECTED]>:
>
> 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
