paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 02:59:33 +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

94
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)^.highrange=1) and (parraydef(p)^.lowrange=0) and
(porddef(parraydef(p)^.definition)^.typ in [u32bit,s32bit]) (parraydef(p)^.highrange=1) and
) or (porddef(parraydef(p)^.definition)^.typ in [u32bit,s32bit])
( )
(parraydef(p)^.lowrange=0) and or
(parraydef(p)^.highrange=3) and (
(porddef(parraydef(p)^.definition)^.typ in [u16bit,s16bit]) (parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=3) and
(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,42 +516,50 @@ 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)^.highrange=1) and (parraydef(p)^.lowrange=0) and
(porddef(parraydef(p)^.definition)^.typ in [u32bit,s32bit]) (parraydef(p)^.highrange=1) and
) or (porddef(parraydef(p)^.definition)^.typ in [u32bit,s32bit])
( )
(parraydef(p)^.lowrange=0) and or
(parraydef(p)^.highrange=3) and (
(porddef(parraydef(p)^.definition)^.typ in [u16bit,s16bit]) (parraydef(p)^.lowrange=0) and
) or (parraydef(p)^.highrange=3) and
( (porddef(parraydef(p)^.definition)^.typ in [u16bit,s16bit])
(parraydef(p)^.lowrange=0) and )
(parraydef(p)^.highrange=7) and or
(porddef(parraydef(p)^.definition)^.typ in [u8bit,s8bit]) (
(parraydef(p)^.lowrange=0) and
(parraydef(p)^.highrange=7) and
(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)^.highrange=3) and (parraydef(p)^.lowrange=0) and
(pfloatdef(parraydef(p)^.definition)^.typ=f32bit) (parraydef(p)^.highrange=3) and
) (pfloatdef(parraydef(p)^.definition)^.typ=f32bit)
or )
( or
(parraydef(p)^.lowrange=0) and (
(parraydef(p)^.highrange=1) and (parraydef(p)^.lowrange=0) and
(pfloatdef(parraydef(p)^.definition)^.typ=s32real) (parraydef(p)^.highrange=1) and
(pfloatdef(parraydef(p)^.definition)^.typ=s32real)
)
) )
) )
); );
@ -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