* no longer allow typed files of reference counted data (mantis #15447)

git-svn-id: trunk@14509 -

.gitattributes

@@ -9530,6 +9530,7 @@ tests/webtbf/tw15287.pp svneol=native#text/plain
 tests/webtbf/tw15288.pp svneol=native#text/plain
 tests/webtbf/tw15303.pp svneol=native#text/plain
 tests/webtbf/tw15391a.pp svneol=native#text/plain
+tests/webtbf/tw15447.pp svneol=native#text/plain
 tests/webtbf/tw1599.pp svneol=native#text/plain
 tests/webtbf/tw1599b.pp svneol=native#text/plain
 tests/webtbf/tw1633.pp svneol=native#text/plain

compiler/msg/errore.msg

@@ -366,7 +366,7 @@ scan_w_multiple_main_name_overrides=02086_W_Overriding name of "main" procedure
 #
 # Parser
 #
-# 03281 is the last used one
+# 03282 is the last used one
 #
 % \section{Parser messages}
 % This section lists all parser messages. The parser takes care of the
@@ -1277,6 +1277,9 @@ parser_e_implements_getter_not_default_cc=03281_E_Getter for implements interfac
 % Interface getters are called via a helper in the run time library, and hence
 % have to use the default calling convention for the target (\var{register} on
 % i386 and x86_64, \var{stdcall} on other architectures).
+parser_e_no_refcounted_typed_file=03282_E_Typed files cannot contain reference-counted types.
+% The data in a typed file cannot be of a reference counted type (such as
+% \var{ansistring} or a record containing a field that is reference counted).
 % \end{description}
 #
 # Type Checking

compiler/msgidx.inc

@@ -369,6 +369,7 @@ const
   parser_e_must_use_reintroduce_objc=03279;
   parser_h_should_use_reintroduce_objc=03280;
   parser_e_implements_getter_not_default_cc=03281;
+  parser_e_no_refcounted_typed_file=03282;
   type_e_mismatch=04000;
   type_e_incompatible_types=04001;
   type_e_not_equal_types=04002;
@@ -837,9 +838,9 @@ const
   option_info=11024;
   option_help_pages=11025;
 
-  MsgTxtSize = 55030;
+  MsgTxtSize = 55090;
 
   MsgIdxMax : array[1..20] of longint=(
-    24,87,282,95,71,51,110,22,202,63,
+    24,87,283,95,71,51,110,22,202,63,
     49,20,1,1,1,1,1,1,1,1
   );

compiler/ptype.pas

@@ -440,6 +440,8 @@ implementation
                            Message(parser_e_no_local_para_def);
                          consume(_OF);
                          single_type(t2,false,false);
+                         if is_refcounted_type(t2) then
+                           Message(parser_e_no_refcounted_typed_file);
                          def:=tfiledef.createtyped(t2);
                       end
                     else

tests/webtbf/tw15447.pp

@@ -0,0 +1,7 @@
+{ %fail }
+
+type
+  tf = file of ansistring;
+
+begin
+end.