Browse Source

* handle array of char the same as strings

peter 27 years ago
parent
commit
d008da6845
1 changed files with 8 additions and 3 deletions
  1. 8 3
      compiler/tcadd.pas

+ 8 - 3
compiler/tcadd.pas

@@ -418,8 +418,10 @@ implementation
            end
            end
          else
          else
 
 
-           { is one of the operands a string ? }
-           if (rd^.deftype=stringdef) or (ld^.deftype=stringdef) then
+           { is one of the operands a string?,
+             chararrays are also handled as strings (after conversion) }
+           if (rd^.deftype=stringdef) or (ld^.deftype=stringdef) or
+              is_chararray(rd) or is_chararray(ld) then
             begin
             begin
               if is_widestring(rd) or is_widestring(ld) then
               if is_widestring(rd) or is_widestring(ld) then
                 begin
                 begin
@@ -915,7 +917,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.14  1998-11-17 00:36:47  peter
+  Revision 1.15  1998-11-24 22:59:05  peter
+    * handle array of char the same as strings
+
+  Revision 1.14  1998/11/17 00:36:47  peter
     * more ansistring fixes
     * more ansistring fixes
 
 
   Revision 1.13  1998/11/16 15:33:05  peter
   Revision 1.13  1998/11/16 15:33:05  peter