From 62273909ca91fad6f21cfcb605ef0d99f3d38df3 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 23 Jul 1999 21:31:42 +0000
Subject: [PATCH]   * fixed crash with resourcestring

---
 compiler/pexpr.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 756674ea0d..1930de5598 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -1120,7 +1120,7 @@ unit pexpr;
                                 constresourcestring:
                                   begin
                                      p1:=genloadnode(pvarsym(srsym),srsymtable);
-                                     pd:=cansistringdef;
+                                     p1^.resulttype:=cansistringdef;
                                   end;
                               end;
                               pd:=p1^.resulttype;
@@ -2056,7 +2056,10 @@ unit pexpr;
 end.
 {
   $Log$
-  Revision 1.123  1999-07-23 11:37:46  peter
+  Revision 1.124  1999-07-23 21:31:42  peter
+    * fixed crash with resourcestring
+
+  Revision 1.123  1999/07/23 11:37:46  peter
     * error for illegal type reference, instead of 10998
 
   Revision 1.122  1999/07/22 09:37:52  florian