From 0fc900da28f3ac5b82a4ce9ca1e25103fef92dd2 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 4 May 1999 14:27:04 +0000
Subject: [PATCH]  * avoid RTE220 in gentypedconstloadnode

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

diff --git a/compiler/tree.pas b/compiler/tree.pas
index 0a765b382d..c48e35214e 100644
--- a/compiler/tree.pas
+++ b/compiler/tree.pas
@@ -992,7 +992,7 @@ unit tree;
          p^.treetype:=loadn;
          p^.left:=nil;
          p^.resulttype:=sym^.definition;
-         p^.symtableentry:=pvarsym(sym);
+         p^.symtableentry:=sym;
          p^.symtable:=st;
          p^.disposetyp:=dt_nothing;
          gentypedconstloadnode:=p;
@@ -1717,7 +1717,10 @@ unit tree;
 end.
 {
   $Log$
-  Revision 1.75  1999-05-01 13:25:02  peter
+  Revision 1.76  1999-05-04 14:27:04  pierre
+   * avoid RTE220 in gentypedconstloadnode
+
+  Revision 1.75  1999/05/01 13:25:02  peter
     * merged nasm compiler
     * old asm moved to oldasm/