compiler: raise an internal error if deprecated message is trying to set to a non clear string pointer

git-svn-id: branches/paul/features@13899 -

compiler/pbase.pas

@@ -325,6 +325,8 @@ implementation
           { handle deprecated message }
           if ((token=_CSTRING) or (token=_CCHAR)) and last_is_deprecated then
             begin
+              if deprecatedmsg<>nil then
+                internalerror(200910181);
               deprecatedmsg:=stringdup(pattern);
               consume(token);
               include(symopt,sp_has_deprecated_msg);