* fixed pchar and deref detection for assigning

compiler/htypechk.pas

@@ -61,7 +61,7 @@ implementation
        globtype,systems,tokens,
        cobjects,verbose,globals,
        symconst,
-       types,
+       types,pass_1,
 {$ifdef newcg}
        cgbase
 {$else}
@@ -741,9 +741,17 @@ implementation
                  gotderef:=true;
                  hp:=hp^.left;
                end;
-             typeconvn,
-             asn,
+             typeconvn :
+               begin
+                 { pchar -> array conversion is done then we need to see it
+                   as a deref, because a ^ is then not required anymore }
+                 if is_chararray(hp^.resulttype) and
+                    is_pchar(hp^.left^.resulttype) then
+                  gotderef:=true;
+                 hp:=hp^.left;
+               end;
              vecn,
+             asn,
              subscriptn :
                hp:=hp^.left;
              subn,
@@ -826,7 +834,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.43  1999-10-27 16:04:45  peter
+  Revision 1.44  1999-11-04 23:11:21  peter
+    * fixed pchar and deref detection for assigning
+
+  Revision 1.43  1999/10/27 16:04:45  peter
     * valid_for_assign support for calln,asn
 
   Revision 1.42  1999/10/26 12:30:41  peter