+ can't write type syms anymore

compiler/pass_1.pas

@@ -4093,6 +4093,9 @@ unit pass_1;
                             hp:=p^.left;
                             while assigned(hp) do
                               begin
+                                if not assigned(hp^.left^.symtableentry) or 
+                                   (hp^.left^.symtableentry^.typ in [typesym]) then
+                                  Message(type_e_cant_read_write_type);
                                 if assigned(hp^.left^.resulttype) then
                                   begin
                                     isreal:=false;
@@ -5484,7 +5487,10 @@ unit pass_1;
 end.
 {
   $Log$
-  Revision 1.77  1998-09-07 22:25:52  peter
+  Revision 1.78  1998-09-08 13:36:24  peter
+    + can't write type syms anymore
+
+  Revision 1.77  1998/09/07 22:25:52  peter
     * fixed str(boolean,string) which was allowed
     * fixed write(' ':<int expression>) only constants where allowed :(