Browse Source

* use op_ordinal for dynarr compares

peter 21 years ago
parent
commit
c9ae483263
1 changed files with 12 additions and 5 deletions
  1. 12 5
      compiler/ncgadd.pas

+ 12 - 5
compiler/ncgadd.pas

@@ -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
-                second_opmmx;
+              else
+                if is_mmx_able_array(left.resulttype.def) then
+                  second_opmmx;
 {$endif SUPPORT_MMX}
 {$endif SUPPORT_MMX}
-              { only mmx arrays are possible }
-              internalerror(200306016);
+              else
+                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