* fixed web bug #3048: comparision of dyn. arrays

compiler/cgobj.pas

@@ -1659,7 +1659,8 @@ implementation
          paraloc2:=paramanager.getintparaloc(pocall_default,2);
          if is_ansistring(t) or
             is_widestring(t) or
-            is_interfacecom(t) then
+            is_interfacecom(t) or
+            is_dynamic_array(t) then
            a_load_const_ref(list,OS_ADDR,0,ref)
          else
            begin
@@ -2110,7 +2111,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.161  2004-03-06 20:35:19  florian
+  Revision 1.162  2004-04-18 07:52:43  florian
+    * fixed web bug 3048: comparision of dyn. arrays
+
+  Revision 1.161  2004/03/06 20:35:19  florian
     * fixed arm compilation
     * cleaned up code generation for exported linux procedures
 

compiler/htypechk.pas

@@ -246,8 +246,10 @@ implementation
                    exit;
                  end;
                 { dynamic array compare with niln }
-                if is_dynamic_array(ld) and
-                   (rt=niln) and
+                if ((is_dynamic_array(ld) and
+                   (rt=niln)) or
+                   (is_dynamic_array(ld) and is_dynamic_array(rd)))
+                   and
                    (treetyp in [equaln,unequaln]) then
                  begin
                    allowed:=false;
@@ -1921,7 +1923,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.84  2004-03-18 16:29:07  peter
+  Revision 1.85  2004-04-18 07:52:43  florian
+    * fixed web bug 3048: comparision of dyn. arrays
+
+  Revision 1.84  2004/03/18 16:29:07  peter
     * missing result initialization in node2opstr
 
   Revision 1.83  2004/03/18 16:19:03  peter

compiler/nadd.pas

@@ -1091,7 +1091,8 @@ implementation
 
        { support dynamicarray=nil,dynamicarray<>nil }
          else if (is_dynamic_array(ld) and (rt=niln)) or
-                 (is_dynamic_array(rd) and (lt=niln)) then
+                 (is_dynamic_array(rd) and (lt=niln)) or
+                 (is_dynamic_array(ld) and is_dynamic_array(rd)) then
           begin
             if not(nodetype in [equaln,unequaln]) then
               CGMessage3(type_e_operator_not_supported_for_types,node2opstr(nodetype),ld.typename,rd.typename);
@@ -1925,7 +1926,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.115  2004-03-29 14:44:10  peter
+  Revision 1.116  2004-04-18 07:52:43  florian
+    * fixed web bug 3048: comparision of dyn. arrays
+
+  Revision 1.115  2004/03/29 14:44:10  peter
     * fixes to previous constant integer commit
 
   Revision 1.114  2004/03/23 22:34:49  peter