فهرست منبع

* fix compilation with -Oodfa

git-svn-id: trunk@33865 -
florian 9 سال پیش
والد
کامیت
04a68d9b94
1فایلهای تغییر یافته به همراه2 افزوده شده و 0 حذف شده
  1. 2 0
      compiler/pgenutil.pas

+ 2 - 0
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