From a7eb6bf64be0ef0def4c3f8091af6c9d6ec7613c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 4 Jun 2010 15:20:30 +0000
Subject: [PATCH]   * fixed checking validity of temporary parameter location
 that triggered     internalerror(200501281) on some platforms after r15365

git-svn-id: trunk@15374 -
---
 compiler/ncgcal.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ncgcal.pas b/compiler/ncgcal.pas
index 2f3cd59fea..8e6a2e8938 100644
--- a/compiler/ncgcal.pas
+++ b/compiler/ncgcal.pas
@@ -545,7 +545,7 @@ implementation
                                { Can't have a data copied to the stack, every location
                                  must contain a valid size field }
 
-                              if (ppn.tempcgpara.size=OS_NO) and
+                              if (tmpparaloc^.size=OS_NO) and
                                  ((tmpparaloc^.loc<>LOC_REFERENCE) or
                                   assigned(tmpparaloc^.next)) then
                                 internalerror(200501281);