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

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/paul@13899 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 0 deletions

diff --git a/features/compiler/pbase.pas b/features/compiler/pbase.pas
index eee84a1a19..178ace0370 100644
--- a/features/compiler/pbase.pas
+++ b/features/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);