paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 07:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use op_ordinal for dynarr compares

Browse Source
This commit is contained in:
peter 2004-02-26 16:11:29 +00:00
parent 61f824e259
commit c9ae483263
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncgadd.pas
View File

@ -739,12 +739,16 @@ interface
end;
arraydef :
begin
{ support dynarr=nil }
if is_dynamic_array(left.resulttype.def) then
second_opordinal
{$ifdef SUPPORT_MMX}
if is_mmx_able_array(left.resulttype.def) then
second_opmmx;
else
if is_mmx_able_array(left.resulttype.def) then
second_opmmx;
{$endif SUPPORT_MMX}
{ only mmx arrays are possible }
internalerror(200306016);
else
internalerror(200306016);
end;
floatdef :
second_opfloat;
@ -758,7 +762,10 @@ begin
end.
{
$Log$
Revision 1.28 2004-02-04 19:22:27 peter
Revision 1.29 2004-02-26 16:11:29 peter
* use op_ordinal for dynarr compares
Revision 1.28 2004/02/04 19:22:27 peter
*** empty log message ***
Revision 1.27 2004/01/31 17:45:17 peter