From 96698994f310da5fb5432470bb7ea98d62966cbb Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 28 Dec 2015 15:06:36 +0000
Subject: [PATCH]   * ensure that we don't firstpass a tcgnestloadnode twice,
 as it     changes left (should be solved in a cleaner way, by transforming   
  the whole load node into an equivalent construct)

git-svn-id: trunk@32780 -
---
 compiler/ncgnstld.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/ncgnstld.pas b/compiler/ncgnstld.pas
index 13ff3f6759..9c511bb123 100644
--- a/compiler/ncgnstld.pas
+++ b/compiler/ncgnstld.pas
@@ -179,9 +179,12 @@ implementation
                   if not assigned(left) then
                     internalerror(2011060104);
                   firstpass(left);
+                  if left.resultdef.typ<>pointerdef then
+                    internalerror(2015122801);
                   { subscript it to get the variable }
                   left:=csubscriptnode.create(thissym,cderefnode.create(left));
                   firstpass(left);
+                  include(flags,nf_internal);
                  end;
             end;
         end;