paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug in mmx code removed

Browse Source
This commit is contained in:
pierre 1999-01-15 11:33:03 +00:00
parent 9916a521ba
commit 3f6f33cd60
1 changed files with 55 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/types.pas
View File

@ -485,21 +485,26 @@ unit types;
begin begin
is_mmx_able_array:=(p^.deftype=arraydef) and is_mmx_able_array:=(p^.deftype=arraydef) and
( (
((parraydef(p)^.definition^.deftype=orddef) and (
(parraydef(p)^.definition^.deftype=orddef) and
(
( (
(parraydef(p)^.lowrange=0) and (parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=1) and (parraydef(p)^.highrange=1) and
(porddef(parraydef(p)^.definition)^.typ in [u32bit,s32bit]) (porddef(parraydef(p)^.definition)^.typ in [u32bit,s32bit])
) or )
or
( (
(parraydef(p)^.lowrange=0) and (parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=3) and (parraydef(p)^.highrange=3) and
(porddef(parraydef(p)^.definition)^.typ in [u16bit,s16bit]) (porddef(parraydef(p)^.definition)^.typ in [u16bit,s16bit])
) )
) )
) or )
or
( (
((parraydef(p)^.definition^.deftype=floatdef) and (
(parraydef(p)^.definition^.deftype=floatdef) and
( (
(parraydef(p)^.lowrange=0) and (parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=3) and (parraydef(p)^.highrange=3) and
@ -511,32 +516,39 @@ unit types;
(pfloatdef(parraydef(p)^.definition)^.typ=s32real) (pfloatdef(parraydef(p)^.definition)^.typ=s32real)
) )
) )
)
); );
end end
else else
begin begin
is_mmx_able_array:=(p^.deftype=arraydef) and is_mmx_able_array:=(p^.deftype=arraydef) and
( (
((parraydef(p)^.definition^.deftype=orddef) and (
(parraydef(p)^.definition^.deftype=orddef) and
(
( (
(parraydef(p)^.lowrange=0) and (parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=1) and (parraydef(p)^.highrange=1) and
(porddef(parraydef(p)^.definition)^.typ in [u32bit,s32bit]) (porddef(parraydef(p)^.definition)^.typ in [u32bit,s32bit])
) or )
or
( (
(parraydef(p)^.lowrange=0) and (parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=3) and (parraydef(p)^.highrange=3) and
(porddef(parraydef(p)^.definition)^.typ in [u16bit,s16bit]) (porddef(parraydef(p)^.definition)^.typ in [u16bit,s16bit])
) or )
or
( (
(parraydef(p)^.lowrange=0) and (parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=7) and (parraydef(p)^.highrange=7) and
(porddef(parraydef(p)^.definition)^.typ in [u8bit,s8bit]) (porddef(parraydef(p)^.definition)^.typ in [u8bit,s8bit])
) )
) )
) or )
or
(
(parraydef(p)^.definition^.deftype=floatdef) and
( (
((parraydef(p)^.definition^.deftype=floatdef) and
( (
(parraydef(p)^.lowrange=0) and (parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=3) and (parraydef(p)^.highrange=3) and
@ -549,6 +561,7 @@ unit types;
(pfloatdef(parraydef(p)^.definition)^.typ=s32real) (pfloatdef(parraydef(p)^.definition)^.typ=s32real)
) )
) )
)
); );
end; end;
{$else SUPPORT_MMX} {$else SUPPORT_MMX}
@ -1033,7 +1046,10 @@ unit types;
end. end.
{ {
$Log$ $Log$
Revision 1.43 1998-12-30 13:41:20 peter Revision 1.44 1999-01-15 11:33:03 pierre
* bug in mmx code removed
Revision 1.43 1998/12/30 13:41:20 peter
* released valuepara * released valuepara
Revision 1.42 1998/12/11 00:04:03 peter Revision 1.42 1998/12/11 00:04:03 peter