Pārlūkot izejas kodu

* use op_ordinal for dynarr compares

peter 21 gadi atpakaļ
vecāks
revīzija
c9ae483263
1 mainītis faili ar 12 papildinājumiem un 5 dzēšanām
  1. 12 5
      compiler/ncgadd.pas

+ 12 - 5
compiler/ncgadd.pas

@@ -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