From d008da6845b08b9ce0f37463f868ee0bfd4c4127 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 24 Nov 1998 22:59:05 +0000
Subject: [PATCH]   * handle array of char the same as strings

---
 compiler/tcadd.pas | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/compiler/tcadd.pas b/compiler/tcadd.pas
index f3963ec5b3..d6fb0e2db6 100644
--- a/compiler/tcadd.pas
+++ b/compiler/tcadd.pas
@@ -418,8 +418,10 @@ implementation
            end
          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
               if is_widestring(rd) or is_widestring(ld) then
                 begin
@@ -915,7 +917,10 @@ implementation
 end.
 {
   $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
 
   Revision 1.13  1998/11/16 15:33:05  peter