From 04a68d9b94a756238c1551a6ff9b5b30a35c2729 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 31 May 2016 21:14:53 +0000
Subject: [PATCH] * fix compilation with -Oodfa

git-svn-id: trunk@33865 -
---
 compiler/pgenutil.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas
index a1c7efd4cb..0673e03858 100644
--- a/compiler/pgenutil.pas
+++ b/compiler/pgenutil.pas
@@ -711,6 +711,8 @@ uses
 
         result:=nil;
 
+        pd:=nil;
+
         if not check_generic_constraints(genericdef,context.genericdeflist,context.poslist) then
           begin
             { the parameters didn't fit the constraints, so don't continue with the