paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 05:29:37 +01: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; end;
arraydef : arraydef :
begin begin
{ support dynarr=nil }
if is_dynamic_array(left.resulttype.def) then
second_opordinal
{$ifdef SUPPORT_MMX} {$ifdef SUPPORT_MMX}
if is_mmx_able_array(left.resulttype.def) then else
second_opmmx; if is_mmx_able_array(left.resulttype.def) then
second_opmmx;
{$endif SUPPORT_MMX} {$endif SUPPORT_MMX}
{ only mmx arrays are possible } else
internalerror(200306016); internalerror(200306016);
end; end;
floatdef : floatdef :
second_opfloat; second_opfloat;
@ -758,7 +762,10 @@ begin
end. end.
{ {
$Log$ $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 *** *** empty log message ***
Revision 1.27 2004/01/31 17:45:17 peter Revision 1.27 2004/01/31 17:45:17 peter